21 lines
483 B
Fortran
21 lines
483 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 39946: PROCEDURE statements: interface with RESULT variable
|
|
!
|
|
! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de>
|
|
! Modified by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
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
|
|
|