blob: 58536c54f50c1248865e2b6385a94f188ca5aacd [file] [log] [blame]
package body Prot5_Pkg is
protected body P is
function Get_Data return Integer is
begin
return Data;
end Get_Data;
procedure Proc (A : Integer := Get_Data) is
begin
Data := A * 2;
end Proc;
end P;
end Prot5_Pkg;