Subversion Repositories openrisc

! { dg-do compile }

!

! PR 36426

!

! Contributed by Tobias Burnus 

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