| ! { 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 |