27 lines
485 B
Fortran
27 lines
485 B
Fortran
! { dg-do compile }
|
|
! PR fortran/35830
|
|
!
|
|
abstract interface
|
|
function ptrfunc()
|
|
integer, pointer :: ptrfunc
|
|
end function ptrfunc
|
|
elemental subroutine elem(a)
|
|
integer,intent(in) :: a
|
|
end subroutine elem
|
|
function dims()
|
|
integer :: dims(3)
|
|
end function dims
|
|
end interface
|
|
|
|
procedure(ptrfunc) :: func_a
|
|
procedure(elem) :: func_b
|
|
procedure(dims) :: func_c
|
|
|
|
integer, pointer :: ptr
|
|
integer :: array(3)
|
|
|
|
ptr => func_a()
|
|
call func_b([1,2,3])
|
|
array = func_c()
|
|
end
|