OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [sync_iface_test.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do compile }
2
package 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;
19
end;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.