diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2016-01-14 19:58:17 +0000 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2016-01-14 20:58:17 +0100 |
| commit | c3f6914aa4a8e592957c1e518c31fe27c1b208ac (patch) | |
| tree | e8d8421b988222fda83fd43944d5cb65ef352af6 /gcc | |
| parent | cd65ae907103641c8581f1dc9b0b1803979637cb (diff) | |
| download | gcc-c3f6914aa4a8e592957c1e518c31fe27c1b208ac.zip gcc-c3f6914aa4a8e592957c1e518c31fe27c1b208ac.tar.gz gcc-c3f6914aa4a8e592957c1e518c31fe27c1b208ac.tar.bz2 | |
re PR testsuite/67509 (FAIL: gfortran.dg/ieee/ieee_7.f90 -O0 execution test)
PR testsuite/67509
* gfortran.dg/ieee/ieee_7.f90: For out of bound precision or
range tests use 100 * maximum instead of maximum + 1.
From-SVN: r232383
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c666dfa..d2ad41c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2016-01-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR testsuite/67509 + * gfortran.dg/ieee/ieee_7.f90: For out of bound precision or + range tests use 100 * maximum instead of maximum + 1. + 2016-01-14 Jakub Jelinek <jakub@redhat.com> PR debug/69244 diff --git a/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 b/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 index 227bf54..272b698 100644 --- a/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 @@ -33,8 +33,8 @@ end if if (ieee_selected_real_kind(0,0,3) /= -5) call abort - if (ieee_selected_real_kind(precision(0._maxreal)+1) /= -1) call abort - if (ieee_selected_real_kind(0,range(0._maxreal)+1) /= -2) call abort - if (ieee_selected_real_kind(precision(0._maxreal)+1,range(0._maxreal)+1) /= -3) call abort + if (ieee_selected_real_kind(100*precision(0._maxreal)) /= -1) call abort + if (ieee_selected_real_kind(0,100*range(0._maxreal)) /= -2) call abort + if (ieee_selected_real_kind(100*precision(0._maxreal),100*range(0._maxreal)) /= -3) call abort end |