Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr82397.f @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-Ofast" } subroutine foo(U,V,R,N,A) integer N real*8 U(N,N,N),V(N,N,N),R(N,N,N),A(0:3) integer I3, I2, I1 C do I3=2,N-1 do I2=2,N-1 do I1=2,N-1 R(I1,I2,I3)=V(I1,I2,I3) * -A(0)*( U(I1, I2, I3 ) ) * -A(1)*( U(I1-1,I2, I3 ) + U(I1+1,I2, I3 ) * + U(I1, I2-1,I3 ) + U(I1, I2+1,I3 ) * + U(I1, I2, I3-1) + U(I1, I2, I3+1) ) * -A(2)*( U(I1-1,I2-1,I3 ) + U(I1+1,I2-1,I3 ) * + U(I1-1,I2+1,I3 ) + U(I1+1,I2+1,I3 ) * + U(I1, I2-1,I3-1) + U(I1, I2+1,I3-1) * + U(I1, I2-1,I3+1) + U(I1, I2+1,I3+1) * + U(I1-1,I2, I3-1) + U(I1-1,I2, I3+1) * + U(I1+1,I2, I3-1) + U(I1+1,I2, I3+1) ) * -A(3)*( U(I1-1,I2-1,I3-1) + U(I1+1,I2-1,I3-1) * + U(I1-1,I2+1,I3-1) + U(I1+1,I2+1,I3-1) * + U(I1-1,I2-1,I3+1) + U(I1+1,I2-1,I3+1) * + U(I1-1,I2+1,I3+1) + U(I1+1,I2+1,I3+1) ) enddo enddo enddo return end