! { dg-do compile }
! { dg-additional-options "-std=legacy" }
      SUBROUTINE ECCODR(FPQR)
      DIMENSION FPQR(25,25,25)
      INTEGER P,Q,R
      DIMENSION REC(73)
      DO 150 P=1,N4MAX,2
         QM2=-ONE
         DO 140 Q=1,N4MAX,2
            DO 130 R=1,N4MAX,2
               IF(P.GT.1) THEN
                  FPQR(P,Q,R)= QM2*FPQR(P,Q-2,R)*REC(P+Q-2+R)
               END IF
  130       RM2= RM2+TWO
  140    QM2= QM2+TWO
  150 PM2= PM2+TWO
      END