1! { dg-do compile } 2! { dg-options "-Wall" } 3! 4! PR fortran/38407 5! 6 7SUBROUTINE s(dummy) ! { dg-warning "Unused dummy" } 8 INTEGER, INTENT(in) :: dummy 9 INTEGER :: variable ! { dg-warning "Unused variable" } 10END SUBROUTINE 11