git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2012-12-04 17:44:00 +01:00 committed by Tobias Burnus
parent b863acb7f4
commit 66686181a4
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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,

7
gcc/testsuite/gfortran.dg/quad_3.f90
View File

@ -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