From: burnus Date: Tue, 4 Dec 2012 16:44:00 +0000 (+0000) Subject: 2012-12-04 Tobias Burnus X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=859bc1da9b0c33c0a9c7ab8132bebb450b6eab61;p=thirdparty%2Fgcc.git 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Really fix an if condition. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194156 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 580bbc4b60ba..80a1af4cda76 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-12-04 Tobias Burnus + + * gfortran.dg/quad_3.f90: Really fix an if condition. + 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Fix a condition, diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90 index 782458f9b03d..10c40fab9447 100644 --- a/gcc/testsuite/gfortran.dg/quad_3.f90 +++ b/gcc/testsuite/gfortran.dg/quad_3.f90 @@ -9,13 +9,14 @@ program test_qp implicit none integer, parameter :: QP = real_kinds(ubound(real_kinds,dim=1)) real(kind=qp) :: a,b(2), c - integer :: exponent + integer :: exponent, i character(len=180) :: tmp ! Run this only with libquadmath; assume that all those systems ! have also kind=10. - if (size (real_kinds) >= 4 .and. real_kinds(3) == 10 .and. qp == 16) then - if (real_kinds(3) /= 10) stop + if (size (real_kinds) >= 4 .and. qp == 16) then + i = 3 + if (real_kinds(i) /= 10) stop exponent = 4000 b(:) = huge (1.0_qp)/10.0_qp**exponent