35 lines
634 B
Plaintext
35 lines
634 B
Plaintext
(* 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;
|
|
}
|