blob: 61db0c110246dc6cc29a0b7e4c41e3ee369c5346 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
!
! PR fortran/54107
! The compiler used to ICE on recursive interfaces.
module m
contains
function foo() result(r1)
procedure(foo), pointer :: r1
end function foo
function bar() result(r2)
procedure(baz), pointer :: r2
end function bar
function baz() result(r3)
procedure(bar), pointer :: r3
end function baz
end module m
|
