fpc/tests/webtbs/tw15777e.pp
Jonas Maebe 171c0289b0 + tests from mantis #15777
git-svn-id: trunk@15013 -
2010-03-14 11:03:09 +00:00

26 lines
280 B
ObjectPascal

{$mode macpas}
{$B-}
program test;
type
IntegerPtr = ^Integer;
var
gi: Integer;
procedure A( procedure pp( p: univ Pointer));
begin
pp( @gi)
end;
procedure B( p: IntegerPtr);
begin
if ( p = nil) or ( p^ <> 12345) then halt( 1)
end;
begin
gi := 12345;
A( B)
end.