Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
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
;