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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42285.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-options "-O2 -floop-interchange" }
 
SUBROUTINE EFGRDM(NCF,NFRG,G,RTRMS,GM,IOPT,K1)
  IMPLICIT DOUBLE PRECISION (A-H,O-Z)
  DIMENSION G(*),RTRMS(*),GM(*)
 
  DUM = 0
  DO I=1,NFRG
     DO J=1,3
        IF (IOPT.EQ.0) THEN
           GM(K1)=G(K1)
        END IF
     END DO
     DO J=1,3
        JDX=NCF*9+IOPT*9*NFRG
        DO M=1,3
           DUM=DUM+RTRMS(JDX+M)
        END DO
        GM(K1)=DUM
     END DO
  END DO
  RETURN
END SUBROUTINE EFGRDM
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 -floop-interchange" }`
2
3			`SUBROUTINE EFGRDM(NCF,NFRG,G,RTRMS,GM,IOPT,K1)`
4			`IMPLICIT DOUBLE PRECISION (A-H,O-Z)`
5			`DIMENSION G(),RTRMS(),GM(*)`
6
7			`DUM = 0`
8			`DO I=1,NFRG`
9			`DO J=1,3`
10			`IF (IOPT.EQ.0) THEN`
11			`GM(K1)=G(K1)`
12			`END IF`
13			`END DO`
14			`DO J=1,3`
15			`JDX=NCF9+IOPT9*NFRG`
16			`DO M=1,3`
17			`DUM=DUM+RTRMS(JDX+M)`
18			`END DO`
19			`GM(K1)=DUM`
20			`END DO`
21			`END DO`
22			`RETURN`
23			`END SUBROUTINE EFGRDM`
24

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42285.f90] - Blame information for rev 801