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

gcc/testsuite/ChangeLog

+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

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