diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-12-08 16:51:52 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-12-08 16:51:52 +0100 |
| commit | c9f7e8258a6a36303f7ba5b41528679eb0e74855 (patch) | |
| tree | 0c987f96018fb170815998f160e7b83a16122cd3 /gcc | |
| parent | f10d132b68810d06b42c82ec575bc114f52c62cb (diff) | |
| download | gcc-c9f7e8258a6a36303f7ba5b41528679eb0e74855.zip gcc-c9f7e8258a6a36303f7ba5b41528679eb0e74855.tar.gz gcc-c9f7e8258a6a36303f7ba5b41528679eb0e74855.tar.bz2 | |
re PR fortran/34319 (I/O: Support "NaN", "Infinity" and "INF" as input)
2007-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/34319
* io/list_read.c (parse_real, read_real): Support NaN/Infinity.
2007-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/34319
* gfortran.dg/nan_3.f90: New.
From-SVN: r130708
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nan_3.f90 | 45 |
2 files changed, 50 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 87b83e1..255956a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-12-08 Tobias Burnus <burnus@net-b.de> + + PR fortran/34319 + * gfortran.dg/nan_3.f90: New. + 2007-12-07 Jakub Jelinek <jakub@redhat.com> * g++.old-deja/g++.mike/empty.C: Remove 2 xfails. diff --git a/gcc/testsuite/gfortran.dg/nan_3.f90 b/gcc/testsuite/gfortran.dg/nan_3.f90 new file mode 100644 index 0000000..957b94d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/nan_3.f90 @@ -0,0 +1,45 @@ +! { dg-do run } +! { dg-options "-fno-range-check" } +! { dg-options "-fno-range-check -mieee" { target sh*-*-* } } +! +! PR fortran/34319 +! +! Check support of INF/NaN for I/O. +! +program main + implicit none + real :: r + complex :: z + character(len=30) :: str + + str = "nan" + read(str,*) r + if (.not.isnan(r)) call abort() + str = "(nan,4.0)" + read(str,*) z + if (.not.isnan(real(z)) .or. aimag(z) /= 4.0) call abort() + str = "(7.0,nan)" + read(str,*) z + if (.not.isnan(aimag(z)) .or. real(z) /= 7.0) call abort() + + str = "inFinity" + read(str,*) r + if (r <= huge(r)) call abort() + str = "(+inFinity,4.0)" + read(str,*) z + if ((real(z) <= huge(r)) .or. aimag(z) /= 4.0) call abort() + str = "(7.0,-inFinity)" + read(str,*) z + if ((aimag(z) >= -huge(r)) .or. real(z) /= 7.0) call abort() + + str = "inf" + read(str,*) r + if (r <= huge(r)) call abort() + str = "(+inf,4.0)" + read(str,*) z + if ((real(z) <= huge(r)) .or. aimag(z) /= 4.0) call abort() + str = "(7.0,-inf)" + read(str,*) z + if ((aimag(z) >= -huge(r)) .or. real(z) /= 7.0) call abort() + +end program main |