blob: 2e9871e7587ded96c0eee0996417a559abd7d7a0 [file] [log] [blame]
! { dg-do run }
!
! Tests the fix for PR49630 comment #3.
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
!
module abc
implicit none
type::abc_type
contains
procedure::abc_function
end type abc_type
contains
function abc_function(this)
class(abc_type),intent(in)::this
character(:),allocatable::abc_function
allocate(abc_function,source="hello")
end function abc_function
subroutine do_something(this)
class(abc_type),intent(in)::this
if (this%abc_function() .ne. "hello") STOP 1
end subroutine do_something
end module abc
use abc
type(abc_type) :: a
call do_something(a)
end