|
! { dg-do compile }
|
|
! PR fortran/36459
|
|
!
|
|
abstract interface
|
|
function dim()
|
|
integer :: dim
|
|
end function dim
|
|
end interface
|
|
procedure(dim) :: f
|
|
|
|
interface
|
|
integer function tan()
|
|
end function
|
|
end interface
|
|
procedure(tan) :: g
|
|
|
|
print *, f()
|
|
|
|
print *, tan()
|
|
|
|
end
|