Testing update with check.sh
This commit is contained in:
1
tests/sprint2/test/sp2_one_line.alpha
Normal file
1
tests/sprint2/test/sp2_one_line.alpha
Normal file
@ -0,0 +1 @@
|
||||
type rec: [integer: x; integer: y] type T1: integer -> integer type T2: rec -> integer function foo : T1 function bar1 : T2 function bar2 : T2 foo(x) := { return x * x; } bar1(a) := { return a.x * a.y; } bar2 as (r,s) := { return r * s; } entry(arg) := { [ integer: result ; rec: w] result := foo(5); w := reserve(w); w.x := 5; w.y := 7; result := bar1(w); result := bar2(5,7); return 0; }
|
Reference in New Issue
Block a user