diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-02-03 12:57:21 +0000 |
|---|---|---|
| committer | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-02-03 12:57:21 +0000 |
| commit | 6e16d8c030f1c2bd1436a4656c7490f484f05652 (patch) | |
| tree | dfbc60e8ed8bf72a3bc52acb26e31d9d4ad2d132 /gcc/testsuite/g77.f-torture | |
| parent | 171d1c259357797fa1d16018c41e60df683b0d73 (diff) | |
2002-02-03 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/5122.f: New test for regressions
against PR fortran/5122.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@49460 138bc75d-0d04-0410-961f-82ee72b054a4
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 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 |