summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/sync_iface_test.adb
blob: f431adfe243f79fdfeb3d18a22b9b53033ff1bf7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
--  { dg-do compile }
package body Sync_Iface_Test is
   protected body Buffer is
      procedure Dummy is begin null; end;
   end;

   function First (Obj : Buffer) return Natural is
   begin
     return 0;
   end;

   procedure Do_Test (Dummy : Natural; Item : Buffer)
   is
      Position1 : Natural := First (Item);
      Position2 : Natural := Item.First;   --  Problem here
   begin
      null;
   end;
end;