2
0
peter 24 жил өмнө
parent
commit
34db6813c3

+ 6 - 0
tests/tbs/tb0358.pp

@@ -0,0 +1,6 @@
+{ %version=1.1 }
+type
+  __u64 = 0..High(Int64); // Create unsigned Int64 (with 63 bits)
+
+begin
+end.

+ 15 - 0
tests/tbs/tb0359.pp

@@ -0,0 +1,15 @@
+{ %version=1.1 }
+
+{$ifdef unix}
+
+{$linklib c}
+
+procedure printf(t:pchar);varargs;cdecl;external;
+
+begin
+  printf("Test %d",1);
+{$else}
+begin
+  writeln('Unix only test');
+{$endif}
+end.