Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr47574.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
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 ! PR 47574 - this used to ICE.
kono
parents:
diff changeset
3 SUBROUTINE EXCH2_UV_AGRID_3D_RL( uPhi, vPhi, myNz )
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 IMPLICIT NONE
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 INTEGER, parameter :: sNx=32, sNy=32, OLx=4, OLy=4
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 INTEGER myNz
kono
parents:
diff changeset
10 Real(8) uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
kono
parents:
diff changeset
11 REAL(8) vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 INTEGER i,j,k,bi,bj
kono
parents:
diff changeset
14 REAL(8) uLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
kono
parents:
diff changeset
15 REAL(8) vLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
kono
parents:
diff changeset
16 REAL(8) negOne
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 negOne = 1.
kono
parents:
diff changeset
19 DO k = 1,myNz
kono
parents:
diff changeset
20 DO j = 1-OLy,sNy+OLy
kono
parents:
diff changeset
21 DO i = 1-OLx,sNx+OLx
kono
parents:
diff changeset
22 uLoc(i,j) = uPhi(i,j,k,bi,bj)
kono
parents:
diff changeset
23 vLoc(i,j) = vPhi(i,j,k,bi,bj)
kono
parents:
diff changeset
24 ENDDO
kono
parents:
diff changeset
25 ENDDO
kono
parents:
diff changeset
26 DO j = 1-OLy,sNy+OLy
kono
parents:
diff changeset
27 DO i = 1,OLx
kono
parents:
diff changeset
28 uPhi(1-i,j,k,bi,bj) = vLoc(1-i,j)
kono
parents:
diff changeset
29 vPhi(1-i,j,k,bi,bj) = uLoc(1-i,j)*negOne
kono
parents:
diff changeset
30 ENDDO
kono
parents:
diff changeset
31 ENDDO
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 ENDDO
kono
parents:
diff changeset
34
kono
parents:
diff changeset
35 END
kono
parents:
diff changeset
36