gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 40451: [F03] procedure pointer assignment rejected
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 contains
   8
   9   function f()
  10     intrinsic :: sin
  11     procedure(sin), pointer :: f
  12     f => sin
  13   end function f
  14
  15 end
  16