gcc/testsuite/gfortran.dg/char_length_21.f90

   1 ! { dg-do run }
   2 program rabbithole
   3    implicit none
   4    character(len=:), allocatable :: text_block(:)
   5    integer i, ii
   6    character(len=10) :: cten='abcdefghij'
   7    character(len=20) :: ctwenty='abcdefghijabcdefghij'
   8    ii = -6
   9    text_block = [character(len=ii) :: cten, ctwenty]
  10    if (any(len_trim(text_block) /= 0)) STOP 1
  11 end program rabbithole