Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/init_scalar1.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 run }
--  { dg-options "-gnatws -gnatVa" }

pragma Initialize_Scalars;
procedure init_scalar1 is
  type Fixed_3T is delta 2.0 ** (- 4)
      range - 2.0 ** 19 ..  (2.0 ** 19 - 2.0 ** (- 4));
  for Fixed_3T'Size use 3*8;

  Write_Value : constant Fixed_3T := Fixed_3T(524287.875);
  type singleton is array (1 .. 1) of Fixed_3T;
  pragma Pack (singleton);
  it : Singleton;
begin
   null;
end;