gcc/testsuite/gfortran.dg/dec_parameter_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-ffree-form -std=gnu" }
   3 !
   4 ! Test warnings for DEC-style PARAMETER statements with std=gnu.
   5 !
   6
   7 subroutine sub()
   8   implicit real(8) (A-Z)
   9   parameter pi = 3.1415926535d0 ! { dg-warning "Legacy Extension: PARAMETER" }
  10   print *, pi
  11 end subroutine
  12
  13 end