diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-02-03 13:57:21 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-02-03 12:57:21 +0000 |
| commit | 013c7e950424394df0904f9c79dac40fb6c7b050 (patch) | |
| tree | dfbc60e8ed8bf72a3bc52acb26e31d9d4ad2d132 /gcc/testsuite/g77.f-torture | |
| parent | cb8728fd1349793f22149fed0de335339d747d06 (diff) | |
| download | gcc-013c7e950424394df0904f9c79dac40fb6c7b050.zip gcc-013c7e950424394df0904f9c79dac40fb6c7b050.tar.gz gcc-013c7e950424394df0904f9c79dac40fb6c7b050.tar.bz2 | |
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
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/5122.f | 8 |
1 files changed, 8 insertions, 0 deletions
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 |