------- Comment #1 from rguenth at gcc dot gnu dot org 2009-10-30 16:57 ------- Testcase:
SUBROUTINE PSINV(R,U,C) PARAMETER (N=64) REAL*8 U(N,N,N),R(N,N,N),C(0:3) INTEGER I3, I2, I1 C DO 600 I3=2,N-1 DO 600 I2=2,N-1 DO 600 I1=2,N-1 600 U(I1,I2,I3)=U(I1,I2,I3) > +C(0)*( R(I1, I2, I3 ) ) > +C(1)*( R(I1-1,I2, I3 ) + R(I1+1,I2, I3 ) > + R(I1, I2-1,I3 ) + R(I1, I2+1,I3 ) > + R(I1, I2, I3-1) + R(I1, I2, I3+1) ) > +C(2)*( R(I1-1,I2-1,I3 ) + R(I1+1,I2-1,I3 ) > + R(I1-1,I2+1,I3 ) + R(I1+1,I2+1,I3 ) > + R(I1, I2-1,I3-1) + R(I1, I2+1,I3-1) > + R(I1, I2-1,I3+1) + R(I1, I2+1,I3+1) > + R(I1-1,I2, I3-1) + R(I1-1,I2, I3+1) > + R(I1+1,I2, I3-1) + R(I1+1,I2, I3+1) ) > +C(3)*( R(I1-1,I2-1,I3-1) + R(I1+1,I2-1,I3-1) > + R(I1-1,I2+1,I3-1) + R(I1+1,I2+1,I3-1) > + R(I1-1,I2-1,I3+1) + R(I1+1,I2-1,I3+1) > + R(I1-1,I2+1,I3+1) + R(I1+1,I2+1,I3+1) ) C RETURN END -- rguenth at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Target Milestone|--- |4.5.0 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41879