| ! { dg-do run } | |
| ! | |
| ! PR [OOP] Compile-time errors on typed allocation and pointer function result assignment | |
| ! | |
| ! Contributed by Damian Rouson <damian@rouson.net> | |
| module m | |
| implicit none | |
| type foo | |
| end type | |
| type ,extends(foo) :: bar | |
| end type | |
| contains | |
| function new_bar() | |
| class(foo) ,pointer :: new_bar | |
| allocate(bar :: new_bar) | |
| end function | |
| end module | |
| end |