woah

tests/given/test/error.none.alpha

@@ -0,0 +1,15 @@
+$$ TEST: [-asc -tc]
+type string2int: string -> integer
+
+function entry : string2int
+
+entry(arg) := {
+    [ integer: i ; integer: sum ]
+    sum := 0;
+    i := 0 ;
+    while (i < 10)  {
+        sum := sum + i;
+        i := i + 1;
+    }
+    return 0;
+}