mirror of
https://forge.sourceware.org/marek/gcc.git
synced 2026-02-22 03:47:02 -05:00
43b60e5783
* gcc-interface/decl.c (Gigi_Equivalent_Type) <E_Array_Subtype>: New case. Return the base type if the subtype is not constrained. From-SVN: r276865
12 lines
156 B
Ada
12 lines
156 B
Ada
-- { dg-do compile }
|
|
|
|
with Array38_Pkg; use Array38_Pkg;
|
|
|
|
procedure Array38 is
|
|
|
|
function My_F is new F (Index, Byte, Bytes, Integer);
|
|
|
|
begin
|
|
null;
|
|
end;
|