Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr82397.f @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-Ofast" }
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 subroutine foo(U,V,R,N,A)
kono
parents:
diff changeset
5 integer N
kono
parents:
diff changeset
6 real*8 U(N,N,N),V(N,N,N),R(N,N,N),A(0:3)
kono
parents:
diff changeset
7 integer I3, I2, I1
kono
parents:
diff changeset
8 C
kono
parents:
diff changeset
9 do I3=2,N-1
kono
parents:
diff changeset
10 do I2=2,N-1
kono
parents:
diff changeset
11 do I1=2,N-1
kono
parents:
diff changeset
12 R(I1,I2,I3)=V(I1,I2,I3)
kono
parents:
diff changeset
13 * -A(0)*( U(I1, I2, I3 ) )
kono
parents:
diff changeset
14 * -A(1)*( U(I1-1,I2, I3 ) + U(I1+1,I2, I3 )
kono
parents:
diff changeset
15 * + U(I1, I2-1,I3 ) + U(I1, I2+1,I3 )
kono
parents:
diff changeset
16 * + U(I1, I2, I3-1) + U(I1, I2, I3+1) )
kono
parents:
diff changeset
17 * -A(2)*( U(I1-1,I2-1,I3 ) + U(I1+1,I2-1,I3 )
kono
parents:
diff changeset
18 * + U(I1-1,I2+1,I3 ) + U(I1+1,I2+1,I3 )
kono
parents:
diff changeset
19 * + U(I1, I2-1,I3-1) + U(I1, I2+1,I3-1)
kono
parents:
diff changeset
20 * + U(I1, I2-1,I3+1) + U(I1, I2+1,I3+1)
kono
parents:
diff changeset
21 * + U(I1-1,I2, I3-1) + U(I1-1,I2, I3+1)
kono
parents:
diff changeset
22 * + U(I1+1,I2, I3-1) + U(I1+1,I2, I3+1) )
kono
parents:
diff changeset
23 * -A(3)*( U(I1-1,I2-1,I3-1) + U(I1+1,I2-1,I3-1)
kono
parents:
diff changeset
24 * + U(I1-1,I2+1,I3-1) + U(I1+1,I2+1,I3-1)
kono
parents:
diff changeset
25 * + U(I1-1,I2-1,I3+1) + U(I1+1,I2-1,I3+1)
kono
parents:
diff changeset
26 * + U(I1-1,I2+1,I3+1) + U(I1+1,I2+1,I3+1) )
kono
parents:
diff changeset
27 enddo
kono
parents:
diff changeset
28 enddo
kono
parents:
diff changeset
29 enddo
kono
parents:
diff changeset
30 return
kono
parents:
diff changeset
31 end
kono
parents:
diff changeset
32