http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47574
--- Comment #13 from Dominique d'Humieres <dominiq at lps dot ens.fr>
2011-02-03 20:16:40 UTC ---
Further reduced test case
! { dg-do compile }
SUBROUTINE EXCH2_UV_AGRID_3D_RL( uPhi, vPhi, myNz )
IMPLICIT NONE
INTEGER, parameter :: sNx=32, sNy=32, OLx=4, OLy=4
INTEGER myNz
Real*8 uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
Real*8 vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
INTEGER i,j,k,bi,bj
Real*8 uLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
Real*8 vLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
Real*8 negOne
negOne = 1.
DO k = 1,myNz
DO j = 1-OLy,sNy+OLy
DO i = 1-OLx,sNx+OLx
uLoc(i,j) = uPhi(i,j,k,bi,bj)
vLoc(i,j) = vPhi(i,j,k,bi,bj)
ENDDO
ENDDO
DO j = 1-OLy,sNy+OLy
DO i = 1,OLx
uPhi(1-i,j,k,bi,bj) = vLoc(1-i,j)
vPhi(1-i,j,k,bi,bj) = uLoc(1-i,j)*negOne
ENDDO
ENDDO
ENDDO
END
It gives an ICE at revision 167172, but not at revision 167173, hence a
duplicate of pr46664. Note that revision 167173 did not add a test case. Should
not the above test be added to the test suite before I close this PR as a
duplicate?
