1C { dg-do run }
2C { 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
13