Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
predicate10_pkg.adb
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
;