gcc/testsuite/gnat.dg/discr8_pkg1.ads

   1 with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
   2 with Discr8_Pkg2; use Discr8_Pkg2;
   3
   4 package Discr8_Pkg1 is
   5
   6   type T is record
   7     A : Unbounded_String;
   8     B : L;
   9   end record;
  10
  11 end Discr8_Pkg1;