projects / thirdparty / gcc.git / blame
| Commit | Line | Data |
|---|---|---|
| 83377c6a TB |
1 | ! { dg-do run } |
| 2 | ! { dg-add-options ieee } | |
| 83377c6a TB |
3 | ! |
| 4 | ! List-directed part of PR fortran/43298 | |
| 5 | ! and follow up to PR fortran/34319. | |
| 6 | ! | |
| 7 | ! Check handling of "NAN(alphanum)" | |
| 8 | ! | |
| 9 | character(len=200) :: str | |
| 10 | real :: r | |
| 11 | complex :: z | |
| 12 | ||
| 13 | ! read_real: | |
| 14 | ||
| 15 | r = 1.0 | |
| 16 | str = 'INfinity' ; read(str,*) r | |
| 7d6ce202 | 17 | if (r < 0 .or. r /= r*1.1) STOP 1 |
| 83377c6a TB |
18 | |
| 19 | r = 1.0 | |
| 20 | str = '-INF' ; read(str,*) r | |
| 7d6ce202 | 21 | if (r > 0 .or. r /= r*1.1) STOP 2 |
| 83377c6a TB |
22 | |
| 23 | r = 1.0 | |
| 24 | str = '+INF' ; read(str,*) r | |
| 7d6ce202 | 25 | if (r < 0 .or. r /= r*1.1) STOP 3 |
| 83377c6a TB |
26 | |
| 27 | r = 1.0 | |
| 28 | str = '-inFiniTY' ; read(str,*) r | |
| 7d6ce202 | 29 | if (r > 0 .or. r /= r*1.1) STOP 4 |
| 83377c6a TB |
30 | |
| 31 | r = 1.0 | |
| 32 | str = 'NAN' ; read(str,*) r | |
| 7d6ce202 | 33 | if (.not. isnan(r)) STOP 5 |
| 83377c6a TB |
34 | |
| 35 | r = 1.0 | |
| 36 | str = '-NAN' ; read(str,*) r | |
| 7d6ce202 | 37 | if (.not. isnan(r)) STOP 6 |
| 83377c6a TB |
38 | |
| 39 | r = 1.0 | |
| 40 | str = '+NAN' ; read(str,*) r | |
| 7d6ce202 | 41 | if (.not. isnan(r)) STOP 7 |
| 83377c6a TB |
42 | |
| 43 | r = 1.0 | |
| 44 | str = 'NAN(0x111)' ; read(str,*) r | |
| 7d6ce202 | 45 | if (.not. isnan(r)) STOP 8 |
| 83377c6a TB |
46 | |
| 47 | r = 1.0 | |
| 48 | str = '-NAN(123)' ; read(str,*) r | |
| 7d6ce202 | 49 | if (.not. isnan(r)) STOP 9 |
| 83377c6a TB |
50 | |
| 51 | r = 1.0 | |
| 52 | str = '+NAN(0xFFE)' ; read(str,*) r | |
| 7d6ce202 | 53 | if (.not. isnan(r)) STOP 10 |
| 83377c6a TB |
54 | |
| 55 | ||
| 56 | ! parse_real | |
| 57 | ||
| 58 | z = cmplx(-2.0,-4.0) | |
| 59 | str = '(0.0,INfinity)' ; read(str,*) z | |
| 7d6ce202 | 60 | if (aimag(z) < 0 .or. aimag(z) /= aimag(z)*1.1) STOP 11 |
| 83377c6a TB |
61 | |
| 62 | z = cmplx(-2.0,-4.0) | |
| 63 | str = '(-INF,0.0)' ; read(str,*) z | |
| 7d6ce202 | 64 | if (real(z) > 0 .or. real(z) /= real(z)*1.1) STOP 12 |
| 83377c6a TB |
65 | |
| 66 | z = cmplx(-2.0,-4.0) | |
| 67 | str = '(0.0,+INF)' ; read(str,*) z | |
| 7d6ce202 | 68 | if (aimag(z) < 0 .or. aimag(z) /= aimag(z)*1.1) STOP 13 |
| 83377c6a TB |
69 | |
| 70 | z = cmplx(-2.0,-4.0) | |
| 71 | str = '(-inFiniTY,0.0)' ; read(str,*) z | |
| 7d6ce202 | 72 | if (real(z) > 0 .or. real(z) /= real(z)*1.1) STOP 14 |
| 83377c6a TB |
73 | |
| 74 | z = cmplx(-2.0,-4.0) | |
| 75 | str = '(NAN,0.0)' ; read(str,*) z | |
| 7d6ce202 | 76 | if (.not. isnan(real(z))) STOP 15 |
| 83377c6a TB |
77 | |
| 78 | z = cmplx(-2.0,-4.0) | |
| 79 | str = '(0.0,-NAN)' ; read(str,*) z | |
| 7d6ce202 | 80 | if (.not. isnan(aimag(z))) STOP 16 |
| 83377c6a TB |
81 | |
| 82 | z = cmplx(-2.0,-4.0) | |
| 83 | str = '(+NAN,0.0)' ; read(str,*) z | |
| 7d6ce202 | 84 | if (.not. isnan(real(z))) STOP 17 |
| 83377c6a TB |
85 | |
| 86 | z = cmplx(-2.0,-4.0) | |
| 87 | str = '(NAN(0x111),0.0)' ; read(str,*) z | |
| 7d6ce202 | 88 | if (.not. isnan(real(z))) STOP 18 |
| 83377c6a TB |
89 | |
| 90 | z = cmplx(-2.0,-4.0) | |
| 91 | str = '(0.0,-NaN(123))' ; read(str,*) z | |
| 7d6ce202 | 92 | if (.not. isnan(aimag(z))) STOP 19 |
| 83377c6a TB |
93 | |
| 94 | z = cmplx(-2.0,-4.0) | |
| 95 | str = '(+nan(0xFFE),0.0)' ; read(str,*) z | |
| 7d6ce202 | 96 | if (.not. isnan(real(z))) STOP 20 |
| 83377c6a TB |
97 | |
| 98 | end |