This commit is contained in:
Scarlett
2025-05-05 23:34:09 -04:00
parent ddfaeaeab6
commit 7b9d614076

View File

@ -1,34 +0,0 @@
(* TEST: [-asc -tc -cg -ir] *)
#include "std.alpha"
(* Standard Alpha Library - Provided by Carl *)
type string: 1 -> character
function entry: string2integer
type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]
type T2: rec -> integer
type T: integer -> integer
type main: string -> integer
function entry: main
function bar: T2
function ahh: T
ahh (a) := {
a := printInteger(a);
return -1;
}
bar (a, b, c,d,e,f,g) := {
a := printInteger(f);
return b;
}
entry (arg) := {
[integer:x; integer:y; integer: result]
result := bar(1,2,3,4,5,6,7);
return 1;
}