blob: 1e85a7dbaeffd916099005388d4a00ff71d5eb50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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
|
