From 013c7e950424394df0904f9c79dac40fb6c7b050 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sun, 3 Feb 2002 13:57:21 +0100 Subject: [PATCH] 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/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/execute/5122.f | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/5122.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 50d57887f5b..1a57603bb6b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-02-03 Toon Moene + + * g77.f-torture/execute/5122.f: New test for regressions + against PR fortran/5122. + 2002-02-03 David Billinghurst * 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 index 00000000000..bdf955acac9 --- /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