1 ! { dg
-do run
{ target
{ powerpc*
-*-* } } }
2 ! { dg
-skip
-if "" { powerpc*
-*-darwin*
} }
3 ! { dg
-options
"-O3 -funroll-loops -ffast-math -mcpu=power4" }
6 SUBROUTINE SFCPAR
(ZET
,NZ
,ZMH
,TSL
,TMES
)
7 IMPLICIT REAL*8 (A
-H
, O
-Z
)
10 ZS
=MAX
(TSL*ZMH
,ZET
(2))
14 IF(ZS
.LE
.ZET
(K
)) GO TO 20
24 real*8 ar1
(10),d1
,d2
,d3
35 call sfcpar
(ar1
,10,d2
,d3
,d1
)
36 if (d1
.ne
.10.0) call abort
()