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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 55fc13ca7276ea94fa0546a20cc206e6edfb8d9d..580bbc4b60ba02c557dfde1cf631e4d87f193eaa 100644 (file)
--- 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 e29dac229b824d5ba491dacf75a1af8d1a2a2007..782458f9b03dc51e89d6499fd4ba6513776339ef 100644 (file)
--- 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)