nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / initialization_5.f90
blobe73a4cc97ec85ca9b68c5c5168eb1f0c783903a5
1 ! initialization expression, now allowed in Fortran 2003
2 ! PR fortran/29962
3 ! { dg-do run }
4 ! { dg-options "-std=f2003 " }
5 real, parameter :: three = 27.0**(1.0/3.0)
6 if(abs(three-3.0)>epsilon(three)) STOP 1
7 end