Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr47574.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! PR 47574 - this used to ICE. | |
| 3 SUBROUTINE EXCH2_UV_AGRID_3D_RL( uPhi, vPhi, myNz ) | |
| 4 | |
| 5 IMPLICIT NONE | |
| 6 | |
| 7 INTEGER, parameter :: sNx=32, sNy=32, OLx=4, OLy=4 | |
| 8 | |
| 9 INTEGER myNz | |
| 10 Real(8) uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1) | |
| 11 REAL(8) vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1) | |
| 12 | |
| 13 INTEGER i,j,k,bi,bj | |
| 14 REAL(8) uLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) | |
| 15 REAL(8) vLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) | |
| 16 REAL(8) negOne | |
| 17 | |
| 18 negOne = 1. | |
| 19 DO k = 1,myNz | |
| 20 DO j = 1-OLy,sNy+OLy | |
| 21 DO i = 1-OLx,sNx+OLx | |
| 22 uLoc(i,j) = uPhi(i,j,k,bi,bj) | |
| 23 vLoc(i,j) = vPhi(i,j,k,bi,bj) | |
| 24 ENDDO | |
| 25 ENDDO | |
| 26 DO j = 1-OLy,sNy+OLy | |
| 27 DO i = 1,OLx | |
| 28 uPhi(1-i,j,k,bi,bj) = vLoc(1-i,j) | |
| 29 vPhi(1-i,j,k,bi,bj) = uLoc(1-i,j)*negOne | |
| 30 ENDDO | |
| 31 ENDDO | |
| 32 | |
| 33 ENDDO | |
| 34 | |
| 35 END | |
| 36 |