Subversion Repositories openrisc

! { dg-do compile }

!

! PR 39946: PROCEDURE statements: interface with RESULT variable

!

! Original test case by Juergen Reuter 

! Modified by Janus Weil 

  procedure(prc_is_allowed), pointer :: fptr

  interface

     function prc_is_allowed (flv, hel, col) result (is_allowed)

       logical :: is_allowed

       integer, intent(in) :: flv, hel, col

     end function prc_is_allowed

  end interface

  fptr => prc_is_allowed

end