mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 01:30:22 +00:00
21 lines
324 B
Perl
21 lines
324 B
Perl
|
|
|
|
local a = terralib.new(int,3)
|
|
local b = terralib.new(int8,4)
|
|
local c = terralib.new(int64,5)
|
|
local d = terralib.new(float,3.25)
|
|
local e = terralib.new(double,4.25)
|
|
|
|
f = global(4)
|
|
terra foo()
|
|
return &f
|
|
end
|
|
|
|
local pf = foo()
|
|
|
|
terra bar()
|
|
return a + b + c + d + e + @pf
|
|
end
|
|
|
|
local test = require("test")
|
|
test.eq(bar(),23.5) |