RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / constant3.adb
blob5ca1792fbd216d907e25c0f92c4e01f2d2fc73f5
1 -- { dg-do compile }
2 -- { dg-options "-O" }
4 with System.Machine_code; use System.Machine_code;
6 procedure Constant3 is
8 c : Integer := -1;
9 r : Integer;
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;
17 pragma Inline_Always (Conv);
19 begin
20 Conv (r, c);
21 end;