1! initialization expression, now allowed in Fortran 2003 2! PR fortran/29962 3! { dg-do run } 4! { dg-options "-std=f2003 -fall-intrinsics" } 5 real, parameter :: three = 27.0**(1.0/3.0) 6 if(abs(three-3.0)>epsilon(three)) call abort() 7end 8