gcc-4.9/gcc/testsuite/gnat.dg/unchecked_convert9.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-do compile }
-- { dg-options "-O -fdump-rtl-final" }

package body Unchecked_Convert9 is

   procedure Proc is
     L : Unsigned_32 := 16#55557777#;
   begin
     Var := Conv (L);
   end;

end Unchecked_Convert9;

-- { dg-final { scan-rtl-dump-times "set \\(mem/v" 1 "final" } }
-- { dg-final { cleanup-rtl-dump "final" } }