From 013c7e950424394df0904f9c79dac40fb6c7b050 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sun, 3 Feb 2002 13:57:21 +0100 Subject: re PR fortran/5122 (g77 rejects accepted use of INTEGER*2 as type of DATA statement loop index) 2002-02-03 Toon Moene * g77.f-torture/execute/5122.f: New test for regressions against PR fortran/5122. From-SVN: r49460 --- gcc/testsuite/g77.f-torture/execute/5122.f | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/5122.f (limited to 'gcc/testsuite/g77.f-torture') diff --git a/gcc/testsuite/g77.f-torture/execute/5122.f b/gcc/testsuite/g77.f-torture/execute/5122.f new file mode 100644 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 -- cgit v1.1