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
38