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

--- Comment #13 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
> I'll add
> 
> Index: gcc/testsuite/gnat.dg/opt48.adb
> ===================================================================
> --- gcc/testsuite/gnat.dg/opt48.adb     (revision 0)
> +++ gcc/testsuite/gnat.dg/opt48.adb     (working copy)
> @@ -0,0 +1,11 @@
> +-- { dg-do compile }
> +-- { dg-options "-O2" }
> +
> +with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
> +with Interfaces;            use Interfaces;
> +
> +package Opt48 is
> +
> +  type Arr is array (Unsigned_32 range <>) of Unbounded_String;
> +
> +end P;
> 
> given that passes in my bootstrap/test run.

Careful, it's a package spec only so it needs to have .ads extension and placed
in gnat.dg/specs.

Reply via email to