2 ! { dg-options "-fno-range-check" }
3 ! { dg-add-options ieee }
4 ! { dg-skip-if "NaN not supported" { spu-*-* } }
8 ! Check support of INF/NaN for I/O.
14 character(len
=30) :: str
18 if (.not
.isnan(r
)) STOP 1
21 if (.not
.isnan(real(z
)) .or
. aimag(z
) /= 4.0) STOP 2
24 if (.not
.isnan(aimag(z
)) .or
. real(z
) /= 7.0) STOP 3
28 if (r
<= huge(r
)) STOP 4
29 str
= "(+inFinity,4.0)"
31 if ((real(z
) <= huge(r
)) .or
. aimag(z
) /= 4.0) STOP 5
32 str
= "(7.0,-inFinity)"
34 if ((aimag(z
) >= -huge(r
)) .or
. real(z
) /= 7.0) STOP 6
38 if (r
<= huge(r
)) STOP 7
41 if ((real(z
) <= huge(r
)) .or
. aimag(z
) /= 4.0) STOP 8
44 if ((aimag(z
) >= -huge(r
)) .or
. real(z
) /= 7.0) STOP 9