diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-12-04 17:44:00 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-12-04 17:44:00 +0100 |
| commit | 66686181a48da06bb81bc897376bbc66ecbb6619 (patch) | |
| tree | 2eb3c6004690183c67a35aff2a7de524e7b900b2 /gcc | |
| parent | b863acb7f477c7fc049b6322eab00c5e89297dd0 (diff) | |
| download | gcc-66686181a48da06bb81bc897376bbc66ecbb6619.zip gcc-66686181a48da06bb81bc897376bbc66ecbb6619.tar.gz gcc-66686181a48da06bb81bc897376bbc66ecbb6619.tar.bz2 | |
quad_3.f90: Really fix an if condition.
2012-12-04 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/quad_3.f90: Really fix an if condition.
From-SVN: r194156
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 |