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/] [protected_self_ref2.adb] - Blame information for rev 328

Go to most recent revision | Details | Compare with Previous | View Log


--  { dg-do compile }
procedure Protected_Self_Ref2 is
 
   protected type P is
      procedure Foo;
   end P;
 
   protected body P is
      procedure Foo is
         D : Integer;
      begin
         D := P'Digits;  -- { dg-error "denotes current instance" }
      end;
   end P;
 
begin
   null;
end Protected_Self_Ref2;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2			`procedure Protected_Self_Ref2 is`
3
4			`protected type P is`
5			`procedure Foo;`
6			`end P;`
7
8			`protected body P is`
9			`procedure Foo is`
10			`D : Integer;`
11			`begin`
12			`D := P'Digits; -- { dg-error "denotes current instance" }`
13			`end;`
14			`end P;`
15
16			`begin`
17			`null;`
18			`end Protected_Self_Ref2;`

Browse

Tools

Subversion Repositories openrisc_me

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