2 -- { dg-options "-gnatws" }
4 with System
.Machine_Code
; use System
.Machine_Code
;
5 procedure machine_code1
is
7 An_Other_Float
: Float := -99999.0;
9 An_Other_Float
:= An_Other_Float
- A_Float
;
10 Asm
("", Inputs
=> (Float'Asm_Input ("m", A_Float
)));