* more bugs

tests/tbs/tb0359.pp

@@ -7,7 +7,7 @@
 procedure printf(t:pchar);varargs;cdecl;external;
 
 begin
-  printf("Test %d",1);
+  printf('Test %d\n',1);
 {$else}
 begin
   writeln('Unix only test');

tests/tbs/tb0360.pp

@@ -0,0 +1,12 @@
+{ %version=1.1 }
+
+{$mode delphi}
+
+type
+  e = (
+    PTRACE_SINGLESTEP = 9,
+    PT_STEP = PTRACE_SINGLESTEP
+  );
+
+begin
+end.

tests/tbs/tb0361.pp

@@ -0,0 +1,8 @@
+type
+  e=(one,two,three);
+
+var
+  a : array[0..cardinal(two)+1] of byte;
+
+begin
+end.