Sign in
gnu
/
gcc
/
ad820b0bb5f8342a8db2831d1f15c103583a3ba0
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
initialization_5.f90
blob: e73a4cc97ec85ca9b68c5c5168eb1f0c783903a5 [
file
] [
log
] [
blame
]
!
initialization expression
,
now allowed
in
Fortran
2003
!
PR fortran
/
29962
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=f2003 "
}
real
,
parameter
::
three
=
27.0
**(
1.0
/
3.0
)
if
(
abs
(
three
-
3.0
)>
epsilon
(
three
))
STOP
1
end