! { dg-do compile }
! { dg-options "-Wunused-parameter -Wunused-dummy-argument" }
!
! PR fortran/52789
!
! Contributed by Mat Cross
!
!  Check for unused parameter and dummy argument
!

subroutine s(x)             ! { dg-warning "Unused dummy argument" }
integer, parameter :: i = 0 ! { dg-warning "Unused parameter" }
end