summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/discr8_pkg1.ads
blob: ae93dc4d402b0edecfa70a88afbf530169fd35f8 (plain)
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;