gcc/testsuite/gfortran.dg/initialization_4.f90

   1 ! PR 29441 : No error was given for disallowed function in
   2 ! initialization expression, even if -std=f95 was used
   3 ! { dg-do compile }
   4 ! { dg-options "-std=f95" }
   5 real, parameter :: pi = 4.0*Atan(1.0) ! { dg-error "Evaluation of nonstandard initialization expression" }
   6 end