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