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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d382457b3bc3b5ded4de647864c7e945fbc3a6c6..58790a5af1a194861658519da370435e2f65262d 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