28 lines
619 B
FortranFixed
28 lines
619 B
FortranFixed
|
! { 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
|