gcc/testsuite/gfortran.dg/proc_ptr_comp_49.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 80392: [5/6/7 Regression] [OOP] ICE with allocatable polymorphic function result in a procedure pointer component
   4 !
   5 ! Contributed by <zed.three@gmail.com>
   6
   7 module mwe
   8
   9   implicit none
  10
  11   type :: MyType
  12      procedure(my_op), nopass, pointer :: op
  13   end type
  14
  15 contains
  16
  17   function my_op() result(foo)
  18     class(MyType), allocatable :: foo
  19   end function
  20
  21 end module