summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorbillingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4>2004-06-30 11:50:45 +0000
committerbillingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4>2004-06-30 11:50:45 +0000
commit58960de0439a1b4875c5ff7eafbec0e87c11f75a (patch)
tree8c4b3893e297a9ebb9dbc94c8e4fcf824fe3b7dd
parent9eca77eb37542b5dd64aaa7c112e25f0cce5db7a (diff)
downloadgcc-58960de0439a1b4875c5ff7eafbec0e87c11f75a.tar.gz
2004-06-30 David Billinghurst (David.Billinghurst@riotinto.com)
PR fortran/16289 * gfortran.fortran-torture/execute/intrinsic_nearest.f90 Use tiny() intrinsic to find smallest non-negative real git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83904 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog6
-rw-r--r--gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f905
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b37a2009fd5..d9572251abf 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+ 2004-06-30 David Billinghurst (David.Billinghurst@riotinto.com)
+
+ PR fortran/16289
+ * gfortran.fortran-torture/execute/intrinsic_nearest.f90
+ Use tiny() intrinsic to find smallest non-negative real
+
2004-06-30 Jakub Jelinek <jakub@redhat.com>
* gcc.dg/compat/struct-by-value-22_main.c: New test.
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90
index 99d802e6189..435c6795c5d 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90
@@ -2,11 +2,10 @@
program test_nearest
real s, r, x, y, inf, max, min
- integer i, infi, maxi, mini
+ integer i, infi, maxi
equivalence (s,i)
equivalence (inf,infi)
equivalence (max,maxi)
- equivalence (min,mini)
r = 2.0
s = 3.0
@@ -28,7 +27,7 @@ program test_nearest
infi = z'7f800000'
maxi = z'7f7fffff'
- mini = 1
+ min = tiny(1.0)
call test_up(max, inf)
call test_up(-inf, -max)