gcc/testsuite/gfortran.dg/dec_parameter_4.f90

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