2 ! { dg-options "-fno-range-check" }
3 ! { dg-options "-fno-range-check -mieee" { target sh*-*-* } }
7 ! Infinity and NaN were not properly written to the .mod file.
11 real, parameter :: inf
= 1./0., nan
= 0./0., minf
= -1./0.0
17 character(len
=20) :: str
18 if (log(abs(inf
)) < huge(inf
)) call abort()
19 if (log(abs(minf
)) < huge(inf
)) call abort()
20 if (.not
. isnan(nan
)) call abort()
22 if (adjustl(str
) /= "+Infinity") call abort()
24 if (adjustl(str
) /= "-Infinity") call abort()
26 if (adjustl(str
) /= "NaN") call abort()
29 ! { dg-final { cleanup-modules "nonordinal" } }