Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/generic_inst13.adb @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
-- { dg-do compile } with Generic_Inst13_Pkg; with Generic_Inst13_Pkg.Nested_G; procedure Generic_Inst13 is type Item_T is range 1 .. 16; package My_Inst is new Generic_Inst13_Pkg (Item_T); package My_Nested is new My_Inst.Nested_G; procedure Proc (Left, Right : My_Nested.T) is R : constant My_Nested.List_T := My_Nested."or" (Left, Right); begin null; end; begin null; end;