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