17 lines
240 B
Plaintext
17 lines
240 B
Plaintext
(* TEST: [-st] *)
|
|
type main: string -> integer
|
|
function entry: main
|
|
|
|
type rec: [integer: x; integer: y]
|
|
type T2: rec -> integer
|
|
|
|
entry(arg) := {
|
|
[rec: w]
|
|
|
|
w := reserve w;
|
|
w.x := 1;
|
|
w.y := 2;
|
|
w := release w;
|
|
|
|
return 0;
|
|
} |