1! { dg-do compile } 2! PR fortran/26551 3 SUBROUTINE SUB() 4 CALL SUB() ! { dg-error "is not RECURSIVE" } 5 END SUBROUTINE 6 7 FUNCTION FUNC() RESULT (FOO) 8 INTEGER FOO 9 FOO = FUNC() ! { dg-error "is not RECURSIVE" } 10 END FUNCTION 11 12 SUBROUTINE SUB2() 13 ENTRY ENT2() 14 CALL ENT2() ! { dg-error "is not RECURSIVE" } 15 END SUBROUTINE 16 17 function func2() 18 integer func2 19 func2 = 42 20 return 21 entry c() result (foo) 22 foo = b() ! { dg-error "is not RECURSIVE" } 23 return 24 entry b() result (bar) 25 bar = 12 26 return 27 end function 28