hopefully fixed merge

tests/sprint4/test/sp4_cg_calls.alpha

@@ -36,7 +36,6 @@ external function inC: integer2character
 
 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
@@ -54,8 +53,9 @@ bar (a, b, c,d,e,f,g) := {
 }
 
 entry (arg) := {
-    [integer:x; integer:y; integer: result]
-
+    [integer:x; integer:y; integer: result; character: a]
+    a := 'a';
+    x := printCharacter(a);
     result := bar(1,2,3,4,5,6,7);
     return 1;
 }