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