1--  { dg-do run }
2
3with Ada.Tags;
4procedure tag1 is
5   type T is tagged null record;
6   X : Ada.Tags.Tag;
7begin
8   begin
9     X := Ada.Tags.Descendant_Tag ("Internal tag at 16#0#", T'Tag);
10     raise Program_Error;
11   exception
12     when Ada.Tags.Tag_Error => null;
13   end;
14   begin
15     X := Ada.Tags.Descendant_Tag ("Internal tag at 16#XXXX#", T'Tag);
16     raise Program_Error;
17   exception
18     when Ada.Tags.Tag_Error => null;
19   end;
20end;
21