fpc/tests/tbf0173.pp

9 lines
92 B
ObjectPascal

var
secondbug : word;
procedure p;assembler;
begin
if secondbug=0 then;
end;
begin
end.