1-- { dg-options "-gnatws" }
2
3with Ada.Text_IO; use Ada.Text_IO;
4
5with Aggr23_TT; use Aggr23_TT;
6
7procedure Aggr23_Q (Count : Natural) is
8 Ts : array (1 .. Count) of TA
9 := (others => new T (new Integer)); -- Test
10begin
11 if Ts (1).D = Ts (2).D then
12 Put ("ERROR");
13 end if;
14end;
15