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

* old bug tbf/tb0122 that should succeed

Browse Source
This commit is contained in:
peter 2002-12-27 14:51:05 +00:00
parent f19c7200bb
commit 9b6bd8d58e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/tbs/tb0443.pp Normal file
View File

@ -0,0 +1,21 @@
{ %version=1.1}
{$ifdef fpc}
{$mode delphi}
{$else}
type
qword = int64;
{$endif}
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.