diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/quad_3.f90 | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 580bbc4..80a1af4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2012-12-04 Tobias Burnus <burnus@net-b.de> + * gfortran.dg/quad_3.f90: Really fix an if condition. + +2012-12-04 Tobias Burnus <burnus@net-b.de> + * gfortran.dg/quad_3.f90: Fix a condition, which wrongly required ordered/lazy evaluation. diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90 index 782458f..10c40fa 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 |