paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more bugs

Browse Source
This commit is contained in:
peter 2001-06-04 11:49:57 +00:00
parent e2e2b508be
commit 36e8a8a9b4
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0359.pp
View File

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

12
tests/tbs/tb0360.pp Normal file
View File

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

8
tests/tbs/tb0361.pp Normal file
View File

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