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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d382457..58790a5 100644 (file)
--- 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 (file)
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