1! { dg-do compile }
2! { dg-options "-Wunused-parameter -Wunused-dummy-argument" }
3!
4! PR fortran/52789
5!
6! Contributed by Mat Cross
7!
8!  Check for unused parameter and dummy argument
9!
10
11subroutine s(x)             ! { dg-warning "Unused dummy argument" }
12integer, parameter :: i = 0 ! { dg-warning "Unused parameter" }
13end
14