! { 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)) STOP 1 end program rabbithole