OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr47614.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.