* tree-loop-distribution.c (struct partition): New field recording

[official-gcc.git] / gcc / testsuite / gfortran.dg / char_length_21.f90

! { dg-do run }
program rabbithole
   implicit none
   character(len=:), allocatable :: text_block(:)
   integer i, ii
   character(len=10) :: cten='abcdefghij'
   character(len=20) :: ctwenty='abcdefghijabcdefghij'
   ii = -6
   text_block = [character(len=ii) :: cten, ctwenty]
   if (any(len_trim(text_block) /= 0)) call abort
end program rabbithole