diff --git a/tests/tbs/tb0359.pp b/tests/tbs/tb0359.pp
index 521dfecebe..9831dcf478 100644
--- a/tests/tbs/tb0359.pp
+++ b/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');
diff --git a/tests/tbs/tb0360.pp b/tests/tbs/tb0360.pp
new file mode 100644
index 0000000000..2b26244a68
--- /dev/null
+++ b/tests/tbs/tb0360.pp
@@ -0,0 +1,12 @@
+{ %version=1.1 }
+
+{$mode delphi}
+
+type
+  e = (
+    PTRACE_SINGLESTEP = 9,
+    PT_STEP = PTRACE_SINGLESTEP
+  );
+
+begin
+end.
diff --git a/tests/tbs/tb0361.pp b/tests/tbs/tb0361.pp
new file mode 100644
index 0000000000..0728a2967d
--- /dev/null
+++ b/tests/tbs/tb0361.pp
@@ -0,0 +1,8 @@
+type
+  e=(one,two,three);
+
+var
+  a : array[0..cardinal(two)+1] of byte;
+
+begin
+end.