gcc/testsuite/gfortran.dg/class_25.f03

   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
   7 module m
   8
   9   implicit none
  10
  11   type foo
  12   end type
  13
  14   type ,extends(foo) :: bar
  15   end type
  16
  17 contains
  18
  19   function new_bar()
  20     class(foo) ,pointer :: new_bar
  21     allocate(bar :: new_bar)
  22   end function
  23
  24 end module
  25
  26 end
  27
  28 ! { dg-final { cleanup-modules "m" } }