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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 87ba254..8754a13 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/g77.f-torture/execute/947.f b/gcc/testsuite/g77.f-torture/execute/947.f
new file mode 100644 (file)
index 0000000..7efa204
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/947.f
@@ -0,0 +1,12 @@
+      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