carl

tests/carl/NoErrors/error.none.alpha

@@ -0,0 +1,14 @@
+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;
+}