Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
prot5_pkg.ads
blob: e488d09b78e384c0c96f1d310dacd3dbad17d666 [
file
] [
log
] [
blame
]
package
Prot5_Pkg
is
protected
P
is
function
Get_Data
return
Integer
;
procedure
Proc
(
A
:
Integer
:=
Get_Data
);
private
Data
:
Integer
;
end
P
;
end
Prot5_Pkg
;