2001-02-05 Thomas Koenig <tkoenig@gcc.gnu.org>

	PR fortran/47574
	* gfortran.dg/pr47574.f90:  New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@169850 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 226fa60..066e019 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-05  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/47574
+       * gfortran.dg/pr47574.f90:  New test.
+
 2011-02-04  Sebastian Pop  <sebastian.pop@amd.com>
 
        PR tree-optimization/46194

diff --git a/gcc/testsuite/gfortran.dg/pr47574.f90 b/gcc/testsuite/gfortran.dg/pr47574.f90
new file mode 100644 (file)
index 0000000..65d1686
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr47574.f90
@@ -0,0 +1,36 @@
+! { dg-do compile }
+! PR 47574 - this used to ICE.
+      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
+