gcc/testsuite/gfortran.dg/proc_ptr_41.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 56968: [4.7/4.8/4.9 Regression] [F03] Issue with a procedure defined with a generic name returning procedure pointer
   4 !
   5 ! Contributed by Samuel Debionne <samuel.debionne@ujf-grenoble.fr>
   6
   7 module test
   8
   9   interface generic_name_get_proc_ptr
  10     module procedure specific_name_get_proc_ptr
  11   end interface
  12
  13   abstract interface
  14     double precision function foo(arg1)
  15       real, intent(in) :: arg1
  16     end function
  17   end interface
  18
  19 contains
  20
  21   function specific_name_get_proc_ptr() result(res)
  22     procedure(foo), pointer :: res
  23   end function
  24
  25 end module test
  26
  27 program crash_test
  28     use :: test
  29
  30     procedure(foo), pointer :: ptr
  31
  32     ptr => specific_name_get_proc_ptr()
  33     ptr => generic_name_get_proc_ptr()
  34
  35 end program
  36
  37 ! { dg-final { cleanup-modules "test" } }