mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
20 lines
238 B
Perl
20 lines
238 B
Perl
|
|
c = global(0)
|
|
terra foo(a : int)
|
|
c = c + a
|
|
end
|
|
|
|
local stmts = quote
|
|
foo(5)
|
|
foo(6)
|
|
foo(7)
|
|
end
|
|
|
|
local stmts2 = {stmts,stmts}
|
|
terra doit()
|
|
stmts
|
|
stmts2
|
|
return c
|
|
end
|
|
local test = require("test")
|
|
test.eq(doit(),54) |