gcc/testsuite/gnat.dg/unchecked_convert9.adb

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