1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/machine_code1.adb b/gcc/testsuite/gnat.dg/machine_code1.adb
new file mode 100644
index 000000000..2e03a9189
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/machine_code1.adb
@@ -0,0 +1,11 @@
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
+
+with System.Machine_Code; use System.Machine_Code;
+procedure machine_code1 is
+   A_Float        : Float;
+   An_Other_Float : Float := -99999.0;
+begin
+   An_Other_Float := An_Other_Float - A_Float;
+   Asm("", Inputs => (Float'Asm_Input ("m", A_Float)));
+end;