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

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

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

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