|
-- { dg-do compile }
|
|
|
|
with Discr36_Pkg;
|
|
|
|
package body Discr36 is
|
|
|
|
function N return Natural is begin return 0; end;
|
|
|
|
type Arr is array (1 .. N) of R;
|
|
|
|
function My_Func is new Discr36_Pkg.Func (Arr);
|
|
|
|
procedure Proc is
|
|
A : constant Arr := My_Func;
|
|
begin
|
|
null;
|
|
end;
|
|
|
|
end Discr36;
|