gcc/testsuite/gfortran.dg/recursive_interface_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/54107
   4 ! The compiler used to ICE on recursive interfaces.
   5
   6 module 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
  19 end module m
  20