Message ID | 2890596.KvYaENWDyR@polaris |
---|---|
State | New |
Headers | show |
Series | [Ada] Fix ICE on instantiation on unconstrained array with predicate | expand |
Index: gcc-interface/decl.c =================================================================== --- gcc-interface/decl.c (revision 276864) +++ gcc-interface/decl.c (working copy) @@ -5026,6 +5026,11 @@ Gigi_Equivalent_Type (Entity_Id gnat_ent gnat_equiv = Etype (gnat_entity); break; + case E_Array_Subtype: + if (!Is_Constrained (gnat_entity)) + gnat_equiv = Etype (gnat_entity); + break; + case E_Class_Wide_Type: gnat_equiv = Root_Type (gnat_entity); break;