2 ! { dg-options "-fcheck=bounds" }
5 character(len
=:), allocatable
:: text_block(:)
7 character(len
=10) :: cten
='abcdefghij'
8 character(len
=20) :: ctwenty
='abcdefghijabcdefghij'
10 text_block
=[ character(len
=ii
) :: cten
, ctwenty
]
11 if (any(len_trim(text_block
) /= 0)) call abort
12 end program rabbithole
13 ! { dg-output "At line 10 of file .*char_length_20.f90.*Fortran runtime warning: Negative character length treated as LEN = 0" }