Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/bit_packed_array5.adb @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } with System; package body Bit_Packed_Array5 is function Inv (Word : Word_Type) return Word_Type is W : Word_Type := Word; pragma Volatile (W); A_W : constant System.Address := W'Address; V : Short_Bit_Array_Type; for V'Address use A_W; pragma Volatile (V); begin for I in V'Range loop V (I) := not V (I); end loop; return W; end; end Bit_Packed_Array5;