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