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 19end 20 21