diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-12-04 17:00:43 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-12-04 17:00:43 +0100 |
| commit | b863acb7f477c7fc049b6322eab00c5e89297dd0 (patch) | |
| tree | d488b49edeaf53628b10f1c2c6025587ae59c4a2 | |
| parent | 1b5be39ffcd3b6977342503e439a36fa963c9e5f (diff) | |
| download | gcc-b863acb7f477c7fc049b6322eab00c5e89297dd0.zip gcc-b863acb7f477c7fc049b6322eab00c5e89297dd0.tar.gz gcc-b863acb7f477c7fc049b6322eab00c5e89297dd0.tar.bz2 | |
quad_3.f90: Fix a condition, which wrongly required ordered/lazy evaluation.
2012-12-04 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/quad_3.f90: Fix a condition,
which wrongly required ordered/lazy evaluation.
From-SVN: r194155
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/quad_3.f90 | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 55fc13c..580bbc4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-12-04 Tobias Burnus <burnus@net-b.de> + + * gfortran.dg/quad_3.f90: Fix a condition, + which wrongly required ordered/lazy evaluation. + 2012-12-04 Marcus Shawcroft <marcus.shawcroft@arm.com> * gcc.target/aarch64/121127.c: New test. diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90 index e29dac2..782458f 100644 --- a/gcc/testsuite/gfortran.dg/quad_3.f90 +++ b/gcc/testsuite/gfortran.dg/quad_3.f90 @@ -15,6 +15,8 @@ program test_qp ! 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 + exponent = 4000 b(:) = huge (1.0_qp)/10.0_qp**exponent ! print *, 'real(16) big value: ', b(1) |