3 ! Tests the fix for PR63232
5 ! Contributed by Balint Aradi <baradi09@gmail.com>
11 character(:), allocatable
:: string
17 subroutine sub2(mystring
)
18 character(:), allocatable
, intent(out
) :: mystring
31 type(wrapper
) :: mywrapper
33 call sub2(mywrapper
%string
)
34 if (.not
. allocated(mywrapper
%string
)) STOP 1
35 if (trim(mywrapper
%string
) .ne
. "test") STOP 2