! { 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 |