1! { dg-do run } 2! 3! PR [OOP] Compile-time errors on typed allocation and pointer function result assignment 4! 5! Contributed by Damian Rouson <damian@rouson.net> 6 7module m 8 9 implicit none 10 11 type foo 12 end type 13 14 type ,extends(foo) :: bar 15 end type 16 17contains 18 19 function new_bar() 20 class(foo) ,pointer :: new_bar 21 allocate(bar :: new_bar) 22 end function 23 24end module 25 26end 27