PR testsuite/67509

	* gfortran.dg/ieee/ieee_7.f90: For out of bound precision or
	range tests use 100 * maximum instead of maximum + 1.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232383 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c666dfa1ad882f079ea85927a4d484768764192a..d2ad41c415503212906b32ed5d670688231ffc96 100644 (file)
--- 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 227bf544cc12780254564575f9b46f58e8ea8110..272b698d499dffa477874353e0eadf6b21df6b32 100644 (file)
--- 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