freepascal.compiler/bugs/bug0079.pp

procedure nothing(x,y: longint);assembler;
asm
  mov eax,x
  mov ebx,y
end;


{procedure nothing(x,y: longint);
begin
 asm
  mov eax,x
  mov ebx,y
 end;
end; }

Begin
end.