diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-09-08 13:03:43 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-09-08 13:03:43 +0000 |
| commit | 33c4176fcd30e20d7a8e40cf72f76ab5fb7ac8c7 (patch) | |
| tree | 6bcf28aa4dd2d390e8a2ec4c1195848c4e2fde54 | |
| parent | 7299020be2081b008bdcb00d59a98651876209c8 (diff) | |
| download | ppe42-gcc-33c4176fcd30e20d7a8e40cf72f76ab5fb7ac8c7.tar.gz ppe42-gcc-33c4176fcd30e20d7a8e40cf72f76ab5fb7ac8c7.zip | |
2002-09-08 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.dg/7388.f: New test case for PR 7388.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@56953 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 d382457b3bc..58790a5af1a 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 00000000000..0b8374646b0 --- /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 |
