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/] [addr2_p.ads] - Blame information for rev 308

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


 
package addr2_p is
 
   type Block is array (1 .. 9) of Integer;
 
   procedure Process (Blk : Block);
 
   B1 : constant Block := Block'((1,2,3,4,5, others => 0));
   B2 : constant Block := (1,2,3,4,5, others => 0);
end;

Line No.	Rev	Author	Line
1	304	jeremybenn
2			`package addr2_p is`
3
4			`type Block is array (1 .. 9) of Integer;`
5
6			`procedure Process (Blk : Block);`
7
8			`B1 : constant Block := Block'((1,2,3,4,5, others => 0));`
9			`B2 : constant Block := (1,2,3,4,5, others => 0);`
10			`end;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [addr2_p.ads] - Blame information for rev 308