re PR fortran/5122 (g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index)

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

	* g77.f-torture/execute/5122.f: New test for regressions
	against PR fortran/5122.

From-SVN: r49460

gcc/testsuite/ChangeLog

+2002-02-03  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* g77.f-torture/execute/5122.f: New test for regressions
+	against PR fortran/5122.
+
 2002-02-03  David Billinghurst <David.Billinghurst@riotinto.com>
 
 	* g77.f-torture/compile/pr3743.f: Delete

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

+      CHARACTER*20 PARTD(6)
+      INTEGER*2 L
+      DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
+      IF (    PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
+     ,   .OR. PARTD(3) .NE. 'C' .OR. PARTD(4) .NE. 'D'
+     ,   .OR. PARTD(5) .NE. 'E' .OR. PARTD(6) .NE. 'F')
+     ,      CALL ABORT
+      END