URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42285.f90] - Rev 826
Compare with Previous | Blame | 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