Subversion Repositories openrisc

-- PR ada/46192
-- Testcase by Rolf Ebert <rolf.ebert.gcc@gmx.de>
 
-- { dg-do compile }
-- { dg-options "-O2 -fdump-tree-optimized" }
 
with System; use System;
 
package body Renaming5 is
 
   type Bits_In_Byte is array (0 .. 7) of Boolean;
   pragma Pack (Bits_In_Byte);
 
   A : Bits_In_Byte;
   for A'Address use System'To_Address(16#c0#);
   pragma Volatile (A);
 
   B : Bits_In_Byte renames A;
 
   procedure Proc is
   begin
      while B (0) = False loop
         null;
      end loop;
   end;
 
end Renaming5;
 
-- { dg-final { scan-tree-dump-times "goto" 2 "optimized" } }
-- { dg-final { cleanup-tree-dump "optimized" } }