| -- { dg-do run } | |
| -- { dg-options "-gnat2022" } | |
| with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; | |
| procedure Aggr31 is | |
| My_Array : constant array (1 .. 5) of Unbounded_String := | |
| [others => To_Unbounded_String ("Test")]; | |
| This_Crashes : constant array (Natural range <>) of Unbounded_String := | |
| [for I of My_Array => I]; | |
| begin | |
| null; | |
| end; | |