gcc/testsuite/gfortran.dg/wunused-parameter_2.f90 - gcc - Git at Google

 ! { 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
	! { 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