gcc/testsuite/gfortran.dg/proc_ptr_16.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 39946: PROCEDURE statements: interface with RESULT variable
   4 !
   5 ! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de>
   6 ! Modified by Janus Weil <janus@gcc.gnu.org>
   7
   8   procedure(prc_is_allowed), pointer :: fptr
   9
  10   interface
  11      function prc_is_allowed (flv, hel, col) result (is_allowed)
  12        logical :: is_allowed
  13        integer, intent(in) :: flv, hel, col
  14      end function prc_is_allowed
  15   end interface
  16
  17   fptr => prc_is_allowed
  18
  19 end
  20