! { dg-do compile } | |
! PR fortran/26551 | |
function func2() | |
integer func2 | |
func2 = 42 | |
return | |
entry c() result (foo) | |
foo = barbar() | |
return | |
entry b() result (bar) | |
bar = 12 | |
return | |
contains | |
function barbar () | |
barbar = b () ! { dg-error "is not RECURSIVE" } | |
end function barbar | |
end function |