OSDN Git Service

gcc/fortran/:
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / warn_unused_dummy_argument_2.f90
1 ! { dg-do "compile" }
2 ! { dg-options "-Wall -Wno-unused-dummy-argument" }
3 !
4 ! PR fortran/38407
5 !
6
7 SUBROUTINE s(dummy)
8   INTEGER, INTENT(in) :: dummy
9   INTEGER :: variable              ! { dg-warning "Unused variable" }
10 END SUBROUTINE