I added some test files Looks good so far Need someone to spot check

This commit is contained in:
Meyer Simon
2025-05-03 12:53:13 -04:00
parent 2ed5372761
commit 4380d214bb
2 changed files with 54 additions and 0 deletions

View File

@ -0,0 +1,25 @@
type rec: [character: x; integer: y]
type T2: rec -> integer
type main: string -> integer
function entry: main
function bar: T2
bar (r,s) := {
return 0;
}
entry (arg) := {
[ integer: x ; integer: y; integer: z;integer: t]
if ( (x = y) < ( z = t ) ) then {
if ( (x < y) = ( z < t ) ) then {
x := x;
} else {
x := 1; (* bar('c', 7); *)
}
} else {
return 0;
}
}

View File

@ -0,0 +1,29 @@
type rec: [character: x; integer: y]
type T2: rec -> integer
type main: string -> integer
function entry: main
function bar: T2
bar (r,s) := {
return 0;
}
entry (arg) := {
[ integer: x ; integer: y; integer: z;integer: t]
while ( (!(x = y)) < ( z = t ) ) {
x := x;
while ( (x < y) = ( z < t ) ) {
y := y;
}
(*
if ( (x = y) = ( z < t ) ) then {
x := 1;
} else {
x := 1;
}
*)
}
return 0;
}