re PR fortran/16289 (Test intrinsic_nearest.f90 not portable?)

 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

From-SVN: r83904

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b37a2009fd5c9b5026bb6eadeb50deb58da816e1..d9572251abfa5929ed5afee8d6ecd4304d68db1e 100644 (file)
--- 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 99d802e61891c891fb1e04c9f42e3100e878d189..435c6795c5db942471e1dd8530d5c8183e8005fb 100644 (file)
--- 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)