blob: 64d95558e88524ffeac62721d6b63003e6325c8e [file] [log] [blame]
-- { 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;