28 lines
619 B
Fortran
28 lines
619 B
Fortran
! { dg-do compile }
|
|
! PR fortran/26551
|
|
SUBROUTINE SUB()
|
|
CALL SUB() ! { dg-error "is not RECURSIVE" }
|
|
END SUBROUTINE
|
|
|
|
FUNCTION FUNC() RESULT (FOO)
|
|
INTEGER FOO
|
|
FOO = FUNC() ! { dg-error "is not RECURSIVE" }
|
|
END FUNCTION
|
|
|
|
SUBROUTINE SUB2()
|
|
ENTRY ENT2()
|
|
CALL ENT2() ! { dg-error "is not RECURSIVE" }
|
|
END SUBROUTINE
|
|
|
|
function func2()
|
|
integer func2
|
|
func2 = 42
|
|
return
|
|
entry c() result (foo)
|
|
foo = b() ! { dg-error "is not RECURSIVE" }
|
|
return
|
|
entry b() result (bar)
|
|
bar = 12
|
|
return
|
|
end function
|