[Bug ada/116190] raised STORAGE_ERROR : stack overflow or erroneous memory access with array of unbounded strings

[ebotcazou at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=116190

Eric Botcazou <ebotcazou at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2024-09-09
                 CC|                            |ebotcazou at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
Yes but, contrary to what you said, declaring an array type does work:

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure P is
   My_Array : constant array (1 .. 5) of Unbounded_String := [others =>
To_Unbounded_String ("Test")];

   type Arr is array (Natural range <>) of Unbounded_String;

   This_Crashes : constant Arr := [for I of My_Array => I];
begin
   null;
end;