Subversion Repositories openrisc

! { dg-do compile }

      SUBROUTINE PROPAGATE(ICI1,ICI2,I,J,J1,ELEM,NHSO,HSO

     *                    ,MULST,IROOTS)

      IMPLICIT DOUBLE PRECISION(A-H,O-Z)

      COMPLEX*16 HSO,ELEM

      DIMENSION HSO(NHSO,NHSO),MULST(*),IROOTS(*)

      ISHIFT=MULST(ICI1)*(I-1)+1

      JSHIFT=MULST(ICI2)*(J-1)+1

      DO 200 ICI=1,ICI1-1

         ISHIFT=ISHIFT+MULST(ICI)*IROOTS(ICI)

  200 CONTINUE

      DO 220 ICI=1,ICI2-1

         JSHIFT=JSHIFT+MULST(ICI)*IROOTS(ICI)

  220 CONTINUE

         DO 150 MSS=MS,-MS,-2

           IND1=ISHIFT+K

           IND2=JSHIFT+K

           HSO(IND1,IND2)=ELEM

           HSO(IND2,IND1)=DCONJG(ELEM)

  150    CONTINUE

      END

! { dg-final { cleanup-tree-dump "vect" } }