gcc/testsuite/g77.dg/7388.f

   1 C { dg-do run }
   2 C { dg-options "-fbounds-check" }
   3       character*25 buff(0:10)
   4       character*80 line
   5       integer i, m1, m2
   6       i  = 1
   7       m1 = 1
   8       m2 = 7
   9       buff(i) = 'tcase0a'
  10       write(line,*) buff(i)(m1:m2)
  11       if (line .ne. ' tcase0a') call abort
  12       end