gcc/testsuite/gnat.dg/constant3.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O" }
   3
   4 with System.Machine_code; use System.Machine_code;
   5
   6 procedure Constant3 is
   7
   8   c : Integer := -1;
   9   r : Integer;
  10
  11   procedure Conv (res : out Integer; v : Integer) is
  12     v1 : constant Integer := v;
  13   begin
  14     Asm ("", Integer'Asm_output ("=m", res), Integer'Asm_input("m", v1));
  15   end;
  16
  17   pragma Inline_Always (Conv);
  18
  19 begin
  20   Conv (r, c);
  21 end;