From: Alan Modra <amodra@gmail.com>
Date: Thu, 7 Feb 2013 02:26:53 +0000 (+1030)
Subject: re PR target/54131 (ICE building 416.gamess, reload_cse_simplify_operands)
X-Git-Tag: releases/gcc-4.8.0~568
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=cdf383b6498460f095ff6a385270ebcfcb39a42c;p=thirdparty%2Fgcc.git

re PR target/54131 (ICE building 416.gamess, reload_cse_simplify_operands)

	PR target/54131
	* gfortran.dg/pr54131.f: New test.

From-SVN: r195835
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 219b12a6e755..7dc9a025de6f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-07  Alan Modra  <amodra@gmail.com>
+
+	PR target/54131
+	* gfortran.dg/pr54131.f: New test.
+
 2013-02-06 Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/55789
diff --git a/gcc/testsuite/gfortran.dg/pr54131.f b/gcc/testsuite/gfortran.dg/pr54131.f
new file mode 100644
index 000000000000..1550967dfb69
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr54131.f
@@ -0,0 +1,23 @@
+! { dg-do compile }
+! { dg-options "-O2 -funroll-loops" }
+
+      SUBROUTINE EFPGRD(IFCM,NAT,NVIB,NPUN,FCM,
+     *                  DEN,GRD,ENG,DIP,NVST,NFTODO,LIST)
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
+      DIMENSION DEN(*),GRD(*),ENG(*),DIP(*),LIST(*)
+      PARAMETER (MXPT=100, MXFRG=50, MXFGPT=MXPT*MXFRG)
+      COMMON /FGRAD / DEF(3,MXFGPT),DEFT(3,MXFRG),TORQ(3,MXFRG),
+     *                ATORQ(3,MXFRG)
+      IF(NVST.EQ.0) THEN
+         CALL PUVIB(IFCM,IW,.FALSE.,NCOORD,IVIB,IATOM,ICOORD,
+     *              ENG(IENG),GRD(IGRD),DIP(IDIP))
+      END IF
+      DO 290 IVIB=1,NVIB
+               DO 220 IFRG=1,NFRG
+                  DO 215  J=1,3
+                     DEFT(J,IFRG)=GRD(INDX+J-1)
+  215             CONTINUE
+                  INDX=INDX+6
+  220          CONTINUE
+  290 CONTINUE
+      END