gcc/testsuite/gfortran.dg/recursive_check_2.f90

   1 ! { dg-do compile }
   2 ! PR fortran/26551
   3  function func2()
   4    integer func2
   5    func2 = 42
   6    return
   7  entry c() result (foo)
   8    foo = barbar()
   9    return
  10  entry b() result (bar)
  11    bar = 12
  12    return
  13  contains
  14    function barbar ()
  15      barbar = b () ! { dg-error "is not RECURSIVE" }
  16    end function barbar
  17  end function