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

* fixed test

Browse Source 
git-svn-id: trunk@4882 -
This commit is contained in:
Jonas Maebe 2006-10-13 12:54:55 +00:00
parent f2ab0e1f92
commit b02495645f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/tbf/tb0183.pp
View File

@ -7,6 +7,5 @@ var
i: integer;
p: pointer;
begin
p := pointer(@i)+5;
i := integer(@i-p);
p := @i+5;
end.