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