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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/g77.dg/7388.f

+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