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;