URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [aggr2.ads] - Blame information for rev 696

Details | Compare with Previous | View Log


-- { dg-do compile }
 
package Aggr2 is
 
   type Buffer is array (Positive range <>) of Boolean;
   for Buffer'Alignment use 4;
 
   type Buffer_Ptr is access Buffer;
 
   subtype My_Buffer is Buffer (1 .. 2);
 
   P : Buffer_Ptr := new My_Buffer'(Others => False);
 
end Aggr2;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2
3			`package Aggr2 is`
4
5			`type Buffer is array (Positive range <>) of Boolean;`
6			`for Buffer'Alignment use 4;`
7
8			`type Buffer_Ptr is access Buffer;`
9
10			`subtype My_Buffer is Buffer (1 .. 2);`
11
12			`P : Buffer_Ptr := new My_Buffer'(Others => False);`
13
14			`end Aggr2;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [aggr2.ads] - Blame information for rev 696