2 package body Sync_Iface_Test is
3 protected body Buffer is
4 procedure Dummy is begin null; end;
7 function First (Obj : Buffer) return Natural is
12 procedure Do_Test (Dummy : Natural; Item : Buffer)
14 Position1 : Natural := First (Item);
15 Position2 : Natural := Item.First; -- Problem here