From 66686181a48da06bb81bc897376bbc66ecbb6619 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 4 Dec 2012 17:44:00 +0100 Subject: [PATCH] quad_3.f90: Really fix an if condition. 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Really fix an if condition. From-SVN: r194156 --- gcc/testsuite/ChangeLog | 4 ++++ 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 580bbc4b60b..80a1af4cda7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-12-04 Tobias Burnus + + * gfortran.dg/quad_3.f90: Really fix an if condition. + 2012-12-04 Tobias Burnus * gfortran.dg/quad_3.f90: Fix a condition, diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90 index 782458f9b03..10c40fab944 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 -- 2.30.2