2 ! { dg-options "-Wunused-parameter -Wunused-dummy-argument" }
6 ! Contributed by Mat Cross
8 ! Check for unused parameter and dummy argument
11 subroutine s(x
) ! { dg-warning "Unused dummy argument" }
12 integer, parameter :: i
= 0 ! { dg-warning "Unused parameter" }