summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/initialization_5.f90
blob: b5cfe0f0e6b67eba125619a87be47192cf1a1d3c (plain)
1
2
3
4
5
6
7
! initialization expression, now allowed in Fortran 2003
! PR fortran/29962
! { dg-do run }
! { dg-options "-std=f2003 -fall-intrinsics" }
  real, parameter :: three = 27.0**(1.0/3.0)
  if(abs(three-3.0)>epsilon(three)) call abort()
end