1--  { dg-do compile }
2package body Sync_Iface_Test is
3   protected body Buffer is
4      procedure Dummy is begin null; end;
5   end;
6
7   function First (Obj : Buffer) return Natural is
8   begin
9     return 0;
10   end;
11
12   procedure Do_Test (Dummy : Natural; Item : Buffer)
13   is
14      Position1 : Natural := First (Item);
15      Position2 : Natural := Item.First;   --  Problem here
16   begin
17      null;
18   end;
19end;
20