From: Francois-Xavier Coudert Date: Thu, 14 Jan 2016 19:58:17 +0000 (+0000) Subject: re PR testsuite/67509 (FAIL: gfortran.dg/ieee/ieee_7.f90 -O0 execution test) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c3f6914aa4a8e592957c1e518c31fe27c1b208ac;p=gcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c666dfa1ad8..d2ad41c4155 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2016-01-14 Francois-Xavier Coudert + + 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 PR debug/69244 diff --git a/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 b/gcc/testsuite/gfortran.dg/ieee/ieee_7.f90 index 227bf544cc1..272b698d499 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