diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-24 07:47:43 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-24 07:47:43 +0000 |
| commit | f0f39928e5687eb3bb28dc6eda9e39f28b22e7d2 (patch) | |
| tree | 12a47a6893c6269c8138dd0a7847ddb174aa154e /gcc/testsuite/gfortran.dg/entry_13.f90 | |
| parent | eeb631b62b560bb835c9b716ad164f9b3185d16a (diff) | |
| download | gcc-f0f39928e5687eb3bb28dc6eda9e39f28b22e7d2.tar.gz | |
2010-07-24 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=".
* gfortran.dg/integer_exponentiation_3.F90: Use -ffloat-store.
Missed files from previous commit:
* gfortran.dg/func_decl_5.f90: New.
* gfortran.dg/intrinsic_std_6.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162498 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_13.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_13.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_13.f90 b/gcc/testsuite/gfortran.dg/entry_13.f90 index 2d2aedaf3d8..3a45fc5ea02 100644 --- a/gcc/testsuite/gfortran.dg/entry_13.f90 +++ b/gcc/testsuite/gfortran.dg/entry_13.f90 @@ -67,14 +67,14 @@ program test type(z) z1 z1 = x1//y1 - if (z1%x .ne. 19.0_4 + 7.0_4) call abort () + if (abs(z1%x - (19.0_4 + 7.0_4)) > epsilon(x1%x)) call abort () z1 = y1//x1 - if (z1%x .ne. 19.0_4 - 7.0_4) call abort () + if (abs(z1%x - (19.0_4 - 7.0_4)) > epsilon(x1%x)) call abort () z1 = x1==y1 - if (z1%x .ne. 19.0_4/7.0_4) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () z1 = y1==x1 - if (z1%x .ne. 19.0_4/7.0_4) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () end program test ! { dg-final { cleanup-modules "type_mod" } } |