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
7subroutine sub()
8  implicit real(8) (A-Z)
9  parameter pi = 3.1415926535d0 ! { dg-error "Legacy Extension: PARAMETER" }
10  print *, pi
11end subroutine
12
13end
14