! { dg-do compile } | |
! | |
! PR 36426 | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
abstract interface | |
function foo(x) | |
character(len=*) :: x | |
character(len=len(x)) :: foo | |
end function foo | |
end interface | |
procedure(foo) :: bar | |
abstract interface | |
character function abs_fun() | |
end function | |
end interface | |
procedure(abs_fun):: x | |
character(len=20) :: str | |
str = bar("Hello") | |
end |