From f69257d6afd477bd75de85db1019a0c10115b6df Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sun, 8 Sep 2002 15:03:43 +0200 Subject: [PATCH] re PR fortran/7388 (Incorrect output with 0 based array of characters.) 2002-09-08 Toon Moene * g77.dg/7388.f: New test case for PR 7388. From-SVN: r56953 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/g77.dg/7388.f | 12 ++++++++++++ 2 files changed, 16 insertions(+) create mode 100644 gcc/testsuite/g77.dg/7388.f 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 + + * g77.dg/7388.f: New test case for PR 7388. + 2002-09-07 Ansgar Esztermann * 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 -- 2.30.2