! { dg-do compile } | |
! | |
! PR 80392: [5/6/7 Regression] [OOP] ICE with allocatable polymorphic function result in a procedure pointer component | |
! | |
! Contributed by <zed.three@gmail.com> | |
module mwe | |
implicit none | |
type :: MyType | |
procedure(my_op), nopass, pointer :: op | |
end type | |
contains | |
function my_op() result(foo) | |
class(MyType), allocatable :: foo | |
end function | |
end module |