diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-09-08 15:03:43 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-09-08 13:03:43 +0000 |
| commit | f69257d6afd477bd75de85db1019a0c10115b6df (patch) | |
| tree | 6bcf28aa4dd2d390e8a2ec4c1195848c4e2fde54 /gcc | |
| parent | 4b7e68e7d25c3cb3c45ef898d3a1ac4e52741619 (diff) | |
| download | gcc-f69257d6afd477bd75de85db1019a0c10115b6df.zip gcc-f69257d6afd477bd75de85db1019a0c10115b6df.tar.gz gcc-f69257d6afd477bd75de85db1019a0c10115b6df.tar.bz2 | |
re PR fortran/7388 (Incorrect output with 0 based array of characters.)
2002-09-08 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.dg/7388.f: New test case for PR 7388.
From-SVN: r56953
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/7388.f | 12 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d382457..58790a5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-09-08 Toon Moene <toon@moene.indiv.nluug.nl> + + * g77.dg/7388.f: New test case for PR 7388. + 2002-09-07 Ansgar Esztermann <ansgar@thphy.uni-duesseldorf.de> * gcc.dg/compare2.c: Remove xfail from cases 10 and 12. diff --git a/gcc/testsuite/g77.dg/7388.f b/gcc/testsuite/g77.dg/7388.f new file mode 100644 index 0000000..0b83746 --- /dev/null +++ b/gcc/testsuite/g77.dg/7388.f @@ -0,0 +1,12 @@ +C { dg-do run } +C { dg-options "-fbounds-check" } + character*25 buff(0:10) + character*80 line + integer i, m1, m2 + i = 1 + m1 = 1 + m2 = 7 + buff(i) = 'tcase0a' + write(line,*) buff(i)(m1:m2) + if (line .ne. ' tcase0a') call abort + end |