blob: 289265d96ad92c19f9f21cbc56a5f425b99d31f1 [file] [log] [blame]
function foo ()
foo = 4
foo = foo / 2
return
entry bar ()
bar = 9
bar = bar / 3
end
program entrytest
if (foo () .ne. 2) STOP 1
if (bar () .ne. 3) STOP 2
end