1! { dg-options "-O2 -floop-nest-optimize" }
2
3SUBROUTINE 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
23END SUBROUTINE EFGRDM
24
25