blob: c24ec4b8f6a021bc3c3aed15920c442ef98e21e3 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/93427
!
! Contributed by Andrew Benson
!
module a
type :: t
end type t
contains
recursive function b()
class(t), pointer :: b
type(t) :: c
allocate(t :: b)
select type (b)
type is (t)
b=c
end select
end function b
end module a