-- RUN: %llvmgcc -S %s
with System.Machine_Code;
procedure Asm is
begin
   System.Machine_Code.Asm ("");
end;