2 ! { dg-additional-options "-Wall" }
4 ! Ensure that only those parameters are warned for which are actually used
8 integer, parameter :: parm
= 4 ! unused
9 integer, parameter :: parm2
= 4 ! used in the main program
10 integer, parameter :: parm3
= 4 ! used in "f()" - { dg-warning "Using parameter 'parm3' declared at .1. is deprecated" }
11 integer, save :: var
, var2
12 !GCC$ ATTRIBUTES DEPRECATED :: parm, parm2, parm3, var, var2
15 print *, parm3
! warning shown above
19 use m
! { dg-warning "Using parameter 'parm2' declared at .1. is deprecated" }
21 print *, var2
, parm2
! { dg-warning "Using variable 'var2' at .1. is deprecated" }