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

* extended test

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-21 17:40:44 +00:00
parent 3b21b99111
commit 4ec9db5fd4
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/test/cg/tmanypar.pp
View File

@ -27,8 +27,36 @@ begin
end; end;
procedure t2;
var
a,b,c,d,e,f,g: longint;
begin begin
a := 1;
b := 2;
c := 3;
d := 4;
e := 5;
f := 6;
g := 7;
t($deadbeef,$cafebabe,$BeC0ffee,$C001D00D,$feeb1e,cardinal($abba-$ceedee), t($deadbeef,$cafebabe,$BeC0ffee,$C001D00D,$feeb1e,cardinal($abba-$ceedee),
$feedface,$badfade5,$deafb00b,$badc0c0a,$2badf001,$defaced) $feedface,$badfade5,$deafb00b,$badc0c0a,$2badf001,$defaced);
if a<>1 then
halt(13);
if b<>2 then
halt(14);
if c<>3 then
halt(15);
if d<>4 then
halt(16);
if e<>5 then
halt(17);
if f<>6 then
halt(18);
if g<>7 then
halt(19);
end;
begin
t2;
end. end.