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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 580bbc4b60ba02c557dfde1cf631e4d87f193eaa..80a1af4cda76786741f9ddd6756729d209a1e163 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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,

diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90
index 782458f9b03dc51e89d6499fd4ba6513776339ef..10c40fab944753c93fb430b54bdb516927fca636 100644 (file)
--- 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