3 ! PR82934: Segfault on compilation in trans-stmt.c:5919(8.0.0).
4 ! The original report only had one item in the allocate list. This
5 ! has been doubled up to verify that the correct string length is
6 ! is used in the allocation.
8 ! Contributed by FortranFan on clf.
10 character(len
=42), allocatable
:: foo
11 character(len
=22), allocatable
:: foofoo
13 call alloc( foo
, foofoo
)
15 if (len(foo
) .ne
. 42) STOP 1
16 if (len(foofoo
) .ne
. 22) STOP 2
20 subroutine alloc( bar
, barbar
)
22 character(len
=*), allocatable
:: bar
, barbar
24 allocate( character(len
=*) :: bar
, barbar
) ! <= Here!