------- 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