URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [tamdt.adb] - Blame information for rev 338

Details | Compare with Previous | View Log


 
with Tamdt_Aux;
 
package body TAMDT is
   type TAMT1 is new Tamdt_Aux.Priv (X => 1);
   type TAMT2 is new Tamdt_Aux.Priv;
 
   procedure Check is
      Ptr1 : TAMT1_Access := new TAMT1;
      Ptr2 : TAMT2_Access := new TAMT2 (X => 2);
   begin
      if Ptr1.all.X /= 1 then
         raise Program_Error;
      end if;
      if Ptr2.all.X /= 2 then
         raise Program_Error;
      end if;
   end;
end;

Line No.	Rev	Author	Line
1	304	jeremybenn
2			`with Tamdt_Aux;`
3
4			`package body TAMDT is`
5			`type TAMT1 is new Tamdt_Aux.Priv (X => 1);`
6			`type TAMT2 is new Tamdt_Aux.Priv;`
7
8			`procedure Check is`
9			`Ptr1 : TAMT1_Access := new TAMT1;`
10			`Ptr2 : TAMT2_Access := new TAMT2 (X => 2);`
11			`begin`
12			`if Ptr1.all.X /= 1 then`
13			`raise Program_Error;`
14			`end if;`
15			`if Ptr2.all.X /= 2 then`
16			`raise Program_Error;`
17			`end if;`
18			`end;`
19			`end;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [tamdt.adb] - Blame information for rev 338