Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/fixedpnt3.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 84e7813d76e9
children
line wrap: on
line source

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

procedure Fixedpnt3 is
  C_Unit : constant := 0.001;

  type T_Fixed_Point is
     delta C_Unit range (-2 ** 63) * C_Unit .. (2 ** 63 - 1) * C_Unit
     with Size  => 64, Small => C_Unit;

  type T_Short_Fixed_Point is
     new T_Fixed_Point range (-2 ** 31) * C_Unit .. (2 ** 31 - 1) * C_Unit
     with Size  => 32;
begin
   null;
end Fixedpnt3;