1! { dg-do compile }
2! { dg-options "-Wall" }
3!
4! PR fortran/57469
5!
6! Contributed by Vladimir Fuka
7!
8! Don't warn for unused dummy arguments when they are used in namelists
9!
10   subroutine read_command_line(line,a,b)
11     character(*),intent(in) :: line
12     intent(inout) :: a,b
13     namelist /cmd/ a,b
14
15     read(line,nml = cmd)
16   end
17