24 lines
392 B
Fortran
24 lines
392 B
Fortran
! { 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
|