diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2004-07-02 12:39:56 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2004-07-02 12:39:56 +0000 |
| commit | ec13a3ef9b7ebf476a9f27276afba8b27dfbcf2c (patch) | |
| tree | 225f75e654e2f8909de2052043ddcf85c773a0ee /gcc | |
| parent | 23f6b2f91e6a3a8570f2b4214e3faee872ae1d82 (diff) | |
| download | gcc-ec13a3ef9b7ebf476a9f27276afba8b27dfbcf2c.zip gcc-ec13a3ef9b7ebf476a9f27276afba8b27dfbcf2c.tar.gz gcc-ec13a3ef9b7ebf476a9f27276afba8b27dfbcf2c.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5ce65da..9aeee5c 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 <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 da84ea7..d29cf53 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 |