! { dg-do compile }
! { dg-options "-O -floop-nest-optimize" }

      SUBROUTINE DAVCI(NORB,NCOR,NCI,NA,NB,
     *    CI,MAXP,MAXW1,
     *      IHMCON,ISTRB,ISTRP,ISTAR,II)
      DIMENSION EC(MAXP,MAXP),IWRK1(2*MAXW1)
         EC(II,II) = 1.0D+00
         DO 1396 II=1,MAXP
            DO 1398 JJ=1,II-1
               EC(II,JJ) = 0.0D+00
 1398       CONTINUE
 1396    CONTINUE
      IF (NA.EQ.NB) THEN
      CALL RINAB0(SI1,SI2,NORB,NCOR,NCI,NA,NB,CI(1,IP),IACON1,IBCON1,
     *       IWRK1,IHMCON,ISTRB,ISTRP,ISTAR)
      ENDIF
      END