Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/bit_packed_array2.adb @ 140:4e440907fcbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
copy CbC goto flang in cfgexpand remove some CbC unnecessary code
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 14 Nov 2018 00:24:45 +0900
parents 04ced10e8804
children
line wrap: on
line source

-- { dg-do compile }
-- { dg-options "-gnatws" }

procedure Bit_Packed_Array2 is

  type Bit_Array is array (integer range <>) of Boolean;
  pragma Pack(Bit_Array);

  b1  : Bit_Array(1..64);
  b2  : Bit_array(1..64);
  res : Bit_array(1..64);

begin

  if (not((not b1) or (not b2))) /= res then 
    null;
  end if;

end;