re PR fortran/947 (Data statement initialization of an array element whose index is)

2002-02-09  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/947.f: New regression test
	for PR fortran/947.

From-SVN: r49647

gcc/testsuite/ChangeLog

+2002-02-09  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* g77.f-torture/execute/947.f: New regression test
+	for PR fortran/947.
+
 2002-02-09  Alexandre Oliva  <aoliva@redhat.com>
 
 	* g++.old-deja/g++.abi/ptrmem.C: Lowest bit is significant on SH5.

gcc/testsuite/g77.f-torture/execute/947.f

+      DIMENSION A(-5:5)
+      INTEGER*1 IM5, IZ, IP5
+      INTEGER*2 IM1, IP1
+      PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
+      DATA A(IM5) /-5./, A(IM1) /-1./
+      DATA A(IZ)  /0./
+      DATA A(IP5) /+5./, A(IP1) /+1./
+      IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
+     ,    A(IZ)  .NE.  0. .OR.
+     ,    A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. )
+     ,  CALL ABORT
+      END