------- Comment #3 from pinskia at gcc dot gnu dot org 2007-06-22 00:22 ------- Reduced testcase: SUBROUTINE ONEINTS() COMMON /INFOA / NAT,NUM DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)
CALL TINTS(IC) DO ID=1,3 DO IC=1,NAT TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID) ENDDO ENDDO END -- pinskia at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2007-06-22 00:22:36 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32417