re PR fortran/16290 (Test intrinsic_set_exponent.f90 fails on irix6.5)

2004-07-02  David Billinghurst  (David.Billinghurst@riotinto.com)

	PR fortran/16290
	* gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
	Allow for cases without denormalized floating point numbers.

From-SVN: r84018

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5ce65dada2dbb214c55e1e36cea90a1f5af69138..9aeee5ce7eb19a7a5e7049b25983d8c069bcfefd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-02  David Billinghurst  (David.Billinghurst@riotinto.com)
+
+       PR fortran/16290
+       * gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
+       Allow for cases without denormalized floating point numbers.
+
 2004-07-01  Joseph S. Myers  <jsm@polyomino.org.uk>
 
        PR c/1027

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
index da84ea7d723f2804ab34a8daed1063f128a4b3dd..d29cf533c24d2044581dfd080c7b10c0a401d95b 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
@@ -12,7 +12,7 @@ subroutine test_real4()
   n = -148
   x = 1024.0
   y = set_exponent (x, n)
-  if (exponent (y) .ne. n) call abort()
+  if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort()
 
   n = 8
   x = 1024.0
@@ -27,7 +27,7 @@ subroutine test_real4()
   n = -148
   x = -1024.0
   y = set_exponent (x, n)
-  if (exponent (y) .ne. n) call abort()
+  if  ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort()
 
   n = 8
   x = -1024.0
@@ -51,7 +51,7 @@ subroutine test_real8()
   n = -1073
   x = 1024.0_8
   y = set_exponent (x, n)
-  if (exponent (y) .ne. n) call abort()
+  if  ((y .ne. 0.0_8) .and. (exponent (y) .ne. n)) call abort()
 
   n = 8
   x = 1024.0_8
@@ -73,7 +73,7 @@ subroutine test_real8()
   x = -1024.0
   y = set_exponent (x, n)
   low = z'00000001'
-  if (exponent (y) .ne. n) call abort()
+  if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort()
 
   n = 8
   x = -1024.0