blob: f627461397757e79a64128f3d66a085ed18af0e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
