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

* also check output

Browse Source
This commit is contained in:
peter 2002-10-06 21:01:00 +00:00
parent c88a6360aa
commit c610d3d0dd
1 changed files with 13 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
tests/webtbs/tw1699.pp
View File

@ -1,56 +1,28 @@
{ Source provided for Free Pascal Bug Report 1699 }
{ Submitted by "SHADOW" on 2001-11-25 }
{ e-mail: mdikm@hotmail.com }
function bget(d:byte;p:byte):boolean;
begin
end;
procedure bset(var d:byte;p:byte;v:boolean);
begin
end;
function nget(d:byte;p,c:byte):byte;
begin
end;
const
i : longint = 0;
procedure nset(var d:byte;p,c:byte;v:byte);
begin
i:=i or 1;
end;
function bget(d:word;p:byte):boolean;
begin
end;
procedure bset(var d:word;p:byte;v:boolean);
begin
end;
function nget(d:word;p,c:byte):word;
begin
end;
procedure nset(var d:word;p,c:byte;v:word);
begin
i:=i or 2;
end;
function bget(d:cardinal;p:byte):boolean;
begin
end;
procedure bset(var d:cardinal;p:byte;v:boolean);
begin
end;
function nget(d:cardinal;p,c:byte):cardinal;
begin
end;
procedure nset(var d:cardinal;p,c:byte;v:cardinal);
begin
i:=i or 4;
end;
function bget(d:qword;p:byte):boolean;
begin
end;
procedure bset(var d:qword;p:byte;v:boolean);
begin
end;
function nget(d:qword;p,c:byte):qword;
begin
end;
procedure nset(var d:qword;p,c:byte;v:qword);
begin
i:=i or 8;
end;
var
@ -63,4 +35,9 @@ begin
nset(w,0,0,0);
nset(c,0,0,0);
nset(q,0,0,0);
if i<>15 then
begin
Writeln('Error');
halt(1);
end;
end.