1! { dg-compile } 2! { dg-options "-Wsurprising" } 3 4! There should be no surprising warnings 5 6program p 7 Integer :: nargs 8 intrinsic :: command_argument_count 9 nargs = command_argument_count() 10end 11 12