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