Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
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