3 ! Tests the fix for PR49630 comment #3.
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
12 procedure
::abc_function
17 function abc_function(this
)
18 class(abc_type
),intent(in
)::this
19 character(:),allocatable
::abc_function
20 allocate(abc_function
,source
="hello")
21 end function abc_function
23 subroutine do_something(this
)
24 class(abc_type
),intent(in
)::this
25 if (this
%abc_function() .ne
. "hello") call abort
26 end subroutine do_something