blob: 159530f2e0b93f3d44fd21407cbeafcbc7f65202 [file] [log] [blame]
package body Predicate10_Pkg is
procedure Foo (
Length : Natural;
Initial : I_Pointer
) is
A : NI_Array := (1 .. Length => Initial);
begin
null;
end Foo;
end;