gcc-4.9/gcc/testsuite/gnat.dg/discr8_pkg1.ads


1
2
3
4
5
6
7
8
9
10
11

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Discr8_Pkg2; use Discr8_Pkg2;

package Discr8_Pkg1 is

  type T is record
    A : Unbounded_String;
    B : L;
  end record;

end Discr8_Pkg1;