gcc/testsuite/gfortran.dg/graphite/pr42285.f90

   1 ! { 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=NCF*9+IOPT*9*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