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