gcc/testsuite/gnat.dg/aggr23_q.adb

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