diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-08 15:17:27 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-08 18:01:22 +0200 |
| commit | 5f0a381801b754dbbd52695bbdbe48967211659c (patch) | |
| tree | b7e6cca9bd660c187494ffdce77790756b790235 /gcc | |
| parent | 8da27c7b3b8e16c09ef86a46746e1295421fa237 (diff) | |
| download | gcc-5f0a381801b754dbbd52695bbdbe48967211659c.zip gcc-5f0a381801b754dbbd52695bbdbe48967211659c.tar.gz gcc-5f0a381801b754dbbd52695bbdbe48967211659c.tar.bz2 | |
Add regression test
gcc/testsuite/
PR ada/116190
* gnat.dg/aggr31.adb: New test.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gnat.dg/aggr31.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr31.adb b/gcc/testsuite/gnat.dg/aggr31.adb new file mode 100644 index 0000000..8e95f80 --- /dev/null +++ b/gcc/testsuite/gnat.dg/aggr31.adb @@ -0,0 +1,17 @@ +-- { 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; + |