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