4 CALL SUB() ! { dg-error "is not RECURSIVE" }
7 FUNCTION FUNC() RESULT (FOO)
9 FOO = FUNC() ! { dg-error "is not RECURSIVE" }
14 CALL ENT2() ! { dg-error "is not RECURSIVE" }
21 entry c() result (foo)
22 foo = b() ! { dg-error "is not RECURSIVE" }
24 entry b() result (bar)