23 lines
488 B
Ada
23 lines
488 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-O -gnatp -fdump-tree-optimized" }
|
|
|
|
package body Array7 is
|
|
|
|
package body Range_Subtype is
|
|
function Get_Arr (Nbr : My_Range) return Arr_Acc is
|
|
begin
|
|
return new Arr (1 .. Nbr);
|
|
end;
|
|
end;
|
|
|
|
package body Range_Type is
|
|
function Get_Arr (Nbr : My_Range) return Arr_Acc is
|
|
begin
|
|
return new Arr (1 .. Nbr);
|
|
end;
|
|
end;
|
|
|
|
end Array7;
|
|
|
|
-- { dg-final { scan-tree-dump-not "MAX_EXPR" "optimized" } }
|