blob: 188d84e6b4051f8b0d1df13417d43c31c0c60985 [file] [log] [blame]
! { 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