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

* test should succeed

Browse Source
This commit is contained in:
peter 2002-12-27 14:50:23 +00:00
parent b9724e3235
commit f19c7200bb
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/tbf/tb0122.pp
View File

@ -1,18 +0,0 @@
{ %fail }
{ %version=1.1}
{$mode delphi}
var
b : byte;
i : smallint;
i64 : int64;
q : qword;
p : pointer;
begin
p:=pointer(b);
p:=pointer(i);
p:=pointer(i64);
p:=pointer(q);
end.