From b863acb7f477c7fc049b6322eab00c5e89297dd0 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 4 Dec 2012 17:00:43 +0100 Subject: [PATCH] quad_3.f90: Fix a condition, which wrongly required ordered/lazy evaluation. 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Fix a condition, which wrongly required ordered/lazy evaluation. From-SVN: r194155 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/quad_3.f90 | 2 ++ 2 files changed, 7 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 55fc13ca727..580bbc4b60b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-12-04 Tobias Burnus + + * gfortran.dg/quad_3.f90: Fix a condition, + which wrongly required ordered/lazy evaluation. + 2012-12-04 Marcus Shawcroft * 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 e29dac229b8..782458f9b03 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) -- 2.30.2