3 ! Tests that PR63932 stays fixed.
5 ! Contributed by Valery Weber <valeryweber@hotmail.com>
9 character(:), allocatable
:: c
12 procedure
, pass
:: get
15 character(:), allocatable
:: c
18 subroutine get(this
, a
)
19 class(t
), intent(in
) :: this
20 character(:), allocatable
, intent(out
), optional
:: a
21 if (present (a
)) a
= this
%c
31 if (b
%c
.ne
. 'something') STOP 1