From: Tobias Burnus Date: Tue, 4 Dec 2012 16:44:00 +0000 (+0100) Subject: quad_3.f90: Really fix an if condition. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=66686181a48da06bb81bc897376bbc66ecbb6619;p=gcc.git quad_3.f90: Really fix an if condition. 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Really fix an if condition. From-SVN: r194156 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 580bbc4b60b..80a1af4cda7 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 782458f9b03..10c40fab944 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