Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/sizetype4.adb @ 140:4e440907fcbf
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 } procedure Sizetype4 is type Float_Array is array (Integer range <>) of Float; NoFloats : Float_Array (1 .. 0); procedure Q (Results : Float_Array := NoFloats) is type Reply_Msg is record Request_Id : Integer; Status : Integer; Data : Float_Array (Results'Range); end record; begin if Reply_Msg'Size /= 64 then raise Program_Error; end if; end; begin Q; end;