gcc/testsuite/gnat.dg/aggr23_q.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14

--  { dg-options "-gnatws" }

with Ada.Text_IO; use Ada.Text_IO;

with Aggr23_TT; use Aggr23_TT;

procedure Aggr23_Q (Count : Natural) is
   Ts : array (1 .. Count) of TA
         := (others => new T (new Integer));  --  Test
begin
   if Ts (1).D = Ts (2).D then
      Put ("ERROR");
   end if;
end;