Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/concat1.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 } -- { dg-options "-O2" } with Concat1_Pkg; use Concat1_Pkg; procedure Concat1 is Ident_1 : Integer := Ident (1); Ident_2 : Integer := Ident (2); Ident_5 : Integer := Ident (5); type Arr is array (Integer range <>) of Integer; A : Arr (1..10); begin A := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); A := 0 & A(Ident_1..Ident_2) & A(Ident_1..Ident_2) & A(Ident_1..Ident_5); if A /= (0, 1, 2, 1, 2, 1, 2, 3, 4, 5) then raise Program_Error; end if; end;