fpc/tests/tbf/tb0036.pp
2000-12-03 21:50:07 +00:00

13 lines
209 B
ObjectPascal

{ %FAIL }
{ Old file: tbf0173.pp }
{ secondbugs is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV) }
var
secondbug : word;
procedure p;assembler;
begin
if secondbug=0 then;
end;
begin
end.