From ec13a3ef9b7ebf476a9f27276afba8b27dfbcf2c Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Fri, 2 Jul 2004 12:39:56 +0000 Subject: [PATCH] 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 | 6 ++++++ .../execute/intrinsic_set_exponent.f90 | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5ce65dada2d..9aeee5ce7eb 100644 --- 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 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 da84ea7d723..d29cf533c24 100644 --- 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 -- 2.30.2