Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/loop_optimization8_pkg1.adb @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with Loop_Optimization8_Pkg2; package body Loop_Optimization8_Pkg1 is Data : Loop_Optimization8_Pkg2.T := new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1)); procedure Iter is begin for I in 1 .. Loop_Optimization8_Pkg2.Length (Data) loop Action (Loop_Optimization8_Pkg2.Index (Data, I)); end loop; end; end Loop_Optimization8_Pkg1;