blob: a75396f7b150e609c126569c6ba4779a67e14462 [file] [log] [blame]
-- { dg-options "-gnatws" }
-- { dg-do run }
with Aggr23_Q;
procedure Aggr23 is
begin
Aggr23_Q (2);
end;