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