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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [static_initializer4.ads] - Blame information for rev 304

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


-- { dg-do compile }
 
package Static_Initializer4 is
 
  type R is tagged record
    b : Boolean;
  end record;
 
  type NR is new R with null record;
 
  C : NR := (b => True);
 
end Static_Initializer4;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`package Static_Initializer4 is`
4
5			`type R is tagged record`
6			`b : Boolean;`
7			`end record;`
8
9			`type NR is new R with null record;`
10
11			`C : NR := (b => True);`
12
13			`end Static_Initializer4;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [static_initializer4.ads] - Blame information for rev 304