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