blob: e89791f728c37a18bbbc25aae93ffa5de74e33c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { 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
|