test updates woooo
This commit is contained in:
@ -1,4 +1,4 @@
|
||||
$$ TEST: [-asc -tc]
|
||||
(* TEST: [-asc -tc] *)
|
||||
(* Type definitions *)
|
||||
|
||||
(* mapping type *)
|
||||
@ -29,7 +29,6 @@ function c: string2int_2_integer
|
||||
function d: iic2b
|
||||
|
||||
d(x,y,z) := {
|
||||
[string: s;integer: s]
|
||||
return (x < y & z < 'm');
|
||||
}
|
||||
|
||||
@ -58,11 +57,11 @@ c(x) := {
|
||||
entry is the first function called
|
||||
*)
|
||||
entry(arg) := {
|
||||
[integer: result; string2int: f; integer: temp; character: char]
|
||||
[integer: result; string2int: f; integer: temp]
|
||||
temp := a("Hello");
|
||||
f := b(temp);
|
||||
result := c(f);
|
||||
if (d(1,2,char))
|
||||
if (d(1,2,'c'))
|
||||
then {
|
||||
result := 0;
|
||||
}
|
||||
|
Reference in New Issue
Block a user