1-- { dg-do compile }
2-- { dg-options "-O -fdump-rtl-final" }
3
4package body Unchecked_Convert9 is
5
6   procedure Proc is
7     L : Unsigned_32 := 16#55557777#;
8   begin
9     Var := Conv (L);
10   end;
11
12end Unchecked_Convert9;
13
14-- { dg-final { scan-rtl-dump-times "set \\(mem/v" 1 "final" } }
15