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()