Commit c3f6914a by Francois-Xavier Coudert Committed by Jakub Jelinek

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
parent cd65ae90
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
......
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment