------- Comment #3 from spop at gcc dot gnu dot org 2010-03-13 17:13 ------- Reduced to:
SUBROUTINE POFUN2(DIM,GRDENT,FPART,FPARTL) DOUBLE PRECISION GRDENT(*) DOUBLE COMPLEX FPART(*) DOUBLE COMPLEX FPARTL(*) INTEGER REFLCT IF (DIM.GT.1) THEN ABCS3=XRCELL(1) IF (ABCS2.EQ.ABCS3) THEN END IF ELSE DO REFLCT=1,XRIREF FPARTL(REFLCT)=FPART(REFLCT) END DO END IF IF (ABCS2.EQ.ABCS3) THEN GRDENT(1)=GRDENT(3) END IF END -- spop at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |spop at gcc dot gnu dot org |dot org | Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2010-03-13 17:13:47 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43354