repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merged revisions 196716,196830,198094,198116,198502,198877,199007,199262,199319,19946...
[official-gcc.git]
/
main
/
gcc
/
testsuite
/
gfortran.dg
/
warn_unused_dummy_argument_4.f90
blob
79e5fa1bf13f59cf9744feeea611ce66409bcb86
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