1! { dg-do compile } 2! 3! PR 36426 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7abstract interface 8 function foo(x) 9 character(len=*) :: x 10 character(len=len(x)) :: foo 11 end function foo 12end interface 13procedure(foo) :: bar 14 15abstract interface 16 character function abs_fun() 17 end function 18end interface 19procedure(abs_fun):: x 20 21character(len=20) :: str 22str = bar("Hello") 23end 24