gcc/testsuite/gfortran.dg/vect/vect-6.f

   1 ! { dg-do compile }
   2
   3       SUBROUTINE PROPAGATE(ICI1,ICI2,I,J,J1,ELEM,NHSO,HSO
   4      *                    ,MULST,IROOTS)
   5       IMPLICIT DOUBLE PRECISION(A-H,O-Z)
   6       COMPLEX*16 HSO,ELEM
   7       DIMENSION HSO(NHSO,NHSO),MULST(*),IROOTS(*)
   8       ISHIFT=MULST(ICI1)*(I-1)+1
   9       JSHIFT=MULST(ICI2)*(J-1)+1
  10       DO 200 ICI=1,ICI1-1
  11          ISHIFT=ISHIFT+MULST(ICI)*IROOTS(ICI)
  12   200 CONTINUE
  13       DO 220 ICI=1,ICI2-1
  14          JSHIFT=JSHIFT+MULST(ICI)*IROOTS(ICI)
  15   220 CONTINUE
  16          DO 150 MSS=MS,-MS,-2
  17            IND1=ISHIFT+K
  18            IND2=JSHIFT+K
  19            HSO(IND1,IND2)=ELEM
  20            HSO(IND2,IND1)=DCONJG(ELEM)
  21   150    CONTINUE
  22       END
  23
  24