Sign in
gnu
/
gcc
/
2eaa0cc45e8eae0fc4a440d28c602964bcb1014d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
warn_unused_dummy_argument_1.f90
blob: 66b0f1a58335fb854fc4cb12cf08d8c33b038d51 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wall"
}
!
!
PR fortran
/
38407
!
SUBROUTINE s
(
dummy
)
!
{
dg
-
warning
"Unused dummy"
}
INTEGER
,
INTENT
(
in
)
::
dummy
INTEGER
::
variable
!
{
dg
-
warning
"Unused variable"
}
END
SUBROUTINE