diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-24 13:18:27 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-24 13:18:27 +0000 |
| commit | 06ffe8d28c052b5b6a3f6683897c2b2d509f7b72 (patch) | |
| tree | f306fae7c915bc2728e0cd3f8e80c26b8103a103 | |
| parent | 3b913ad43f6ab0c10ab1d9aa170a01ad861997ee (diff) | |
| download | ppe42-gcc-06ffe8d28c052b5b6a3f6683897c2b2d509f7b72.tar.gz ppe42-gcc-06ffe8d28c052b5b6a3f6683897c2b2d509f7b72.zip | |
2007-11-24 Tobias Burnus <burnus@net-b.de>
PR fortran/34192
* gfortran.dg/nearest_2.f90: Add INF/NAN tests.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130396 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nearest_2.f90 | 19 |
2 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d83f28f2059..c09ab0d08b0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-24 Tobias Burnus <burnus@net-b.de> + + PR fortran/34192 + * gfortran.dg/nearest_2.f90: Add INF/NAN tests. + 2007-11-24 Paul Thomas <pault@gcc.gnu.org> PR fortran/33541 diff --git a/gcc/testsuite/gfortran.dg/nearest_2.f90 b/gcc/testsuite/gfortran.dg/nearest_2.f90 index 4bdad31c8c8..16dfa4469c2 100644 --- a/gcc/testsuite/gfortran.dg/nearest_2.f90 +++ b/gcc/testsuite/gfortran.dg/nearest_2.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-options "-fno-range-check" } ! ! PR fortran/34192 ! @@ -76,6 +77,15 @@ program test /= 42.0) & call abort() + ! INF+ = INF + if (nearest(1.0/0.0, 1.0) /= 1.0/0.0) call abort() + ! -INF- = -INF + if (nearest(-1.0/0.0, -1.0) /= -1.0/0.0) call abort() + ! NAN- = NAN + if (.not.isnan(nearest(0.0d0/0.0, 1.0))) call abort() + ! NAN+ = NAN + if (.not.isnan(nearest(0.0d0/0.0, -1.0))) call abort() + ! Double precision ! 0+ > 0 @@ -144,4 +154,13 @@ program test if (nearest(nearest(42.0d0, 1.0), -1.0) & /= 42.0d0) & call abort() + + ! INF+ = INF + if (nearest(1.0d0/0.0d0, 1.0) /= 1.0d0/0.0d0) call abort() + ! -INF- = -INF + if (nearest(-1.0d0/0.0d0, -1.0) /= -1.0d0/0.0d0) call abort() + ! NAN- = NAN + if (.not.isnan(nearest(0.0d0/0.0, 1.0))) call abort() + ! NAN+ = NAN + if (.not.isnan(nearest(0.0d0/0.0, -1.0))) call abort() end program test |
