lto: Remove random_seed from section name.
[official-gcc.git] / gcc / testsuite / gfortran.dg / warn_unused_dummy_argument_1.f90
blob66b0f1a58335fb854fc4cb12cf08d8c33b038d51
1 ! { dg-do compile }
2 ! { dg-options "-Wall" }
4 ! PR fortran/38407
7 SUBROUTINE s(dummy) ! { dg-warning "Unused dummy" }
8 INTEGER, INTENT(in) :: dummy
9 INTEGER :: variable ! { dg-warning "Unused variable" }
10 END SUBROUTINE