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
18