2 ! { dg-options "-fno-range-check" }
3 ! { dg-options "-fno-range-check -mieee" { target sh*-*-* } }
7 ! Check support of INF/NaN for I/O.
13 character(len
=30) :: str
17 if (.not
.isnan(r
)) call abort()
20 if (.not
.isnan(real(z
)) .or
. aimag(z
) /= 4.0) call abort()
23 if (.not
.isnan(aimag(z
)) .or
. real(z
) /= 7.0) call abort()
27 if (r
<= huge(r
)) call abort()
28 str
= "(+inFinity,4.0)"
30 if ((real(z
) <= huge(r
)) .or
. aimag(z
) /= 4.0) call abort()
31 str
= "(7.0,-inFinity)"
33 if ((aimag(z
) >= -huge(r
)) .or
. real(z
) /= 7.0) call abort()
37 if (r
<= huge(r
)) call abort()
40 if ((real(z
) <= huge(r
)) .or
. aimag(z
) /= 4.0) call abort()
43 if ((aimag(z
) >= -huge(r
)) .or
. real(z
) /= 7.0) call abort()