Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr47614.f @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do run { target { powerpc*-*-* } } } | |
| 2 ! { dg-skip-if "" { powerpc*-*-darwin* } } | |
| 3 ! { dg-options "-O3 -funroll-loops -ffast-math -mcpu=power4" } | |
| 4 | |
| 5 | |
| 6 SUBROUTINE SFCPAR(ZET,NZ,ZMH,TSL,TMES) | |
| 7 IMPLICIT REAL*8 (A-H, O-Z) | |
| 8 REAL*8 ZET(*) | |
| 9 | |
| 10 ZS=MAX(TSL*ZMH,ZET(2)) | |
| 11 | |
| 12 DO 10 K=2,NZ | |
| 13 KLEV=K-1 | |
| 14 IF(ZS.LE.ZET(K)) GO TO 20 | |
| 15 10 CONTINUE | |
| 16 | |
| 17 20 CONTINUE | |
| 18 TMES=ZET(KLEV+1) | |
| 19 | |
| 20 RETURN | |
| 21 END | |
| 22 | |
| 23 program pr47614 | |
| 24 real*8 ar1(10),d1,d2,d3 | |
| 25 integer i | |
| 26 | |
| 27 d1 = 2.0 | |
| 28 d2 = 3.0 | |
| 29 d3 = 3.0 | |
| 30 do 50 i=1,10 | |
| 31 ar1(i) = d1 | |
| 32 d1 = d1 + 2.0 | |
| 33 50 continue | |
| 34 | |
| 35 call sfcpar(ar1,10,d2,d3,d1) | |
| 36 if (d1.ne.10.0) call abort() | |
| 37 end |