gcc/testsuite/gnat.dg/specs/opt2.ads

   1 -- { dg-do compile }
   2 -- { dg-options "-O2" }
   3
   4 with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
   5 with Interfaces;            use Interfaces;
   6
   7 package Opt2 is
   8
   9   type Arr is array (Unsigned_32 range <>) of Unbounded_String;
  10
  11 end Opt2;