Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/loop_bound.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
-- { dg-do compile } procedure loop_bound is package P is type Base is new Integer; Limit : constant Base := 10; type Index is private; generic package Gen is end; private type Index is new Base range 0 .. Limit; end P; package body P is package body Gen is type Table is array (Index) of Integer; procedure Init (X : in out Table) is begin for I in 1..Index'last -1 loop X (I) := -1; end loop; end Init; end Gen; end P; package Inst is new P.Gen; begin null; end;