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