3 ! Test fix for PR80945, in which the character length was fixed at zero.
5 ! Contributed by Nicolas Koenig <koenigni@gcc.gnu.org>
10 integer, parameter:: N
= 10
11 character(20) :: buffer
12 character(len
=:), dimension(:),allocatable
:: ca
13 character(len
=:), dimension(:,:),allocatable
:: cb
14 allocate(character(len
=N
) :: ca(3))
18 write (buffer
, '(3A5)') ca(1:3)
19 if (trim (buffer
) .ne
. "foo bar xyzzy") stop 1