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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


package Aggr12 is
 
  type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red);
 
  type Rec is record
    I1, I2 : Hair_Color_Type;
  end record;
 
  A : constant Rec := (Black, Blonde);
 
  procedure Print (Data : String);
 
  procedure Test;
 
end Aggr12;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Aggr12 is`
2
3			`type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red);`
4
5			`type Rec is record`
6			`I1, I2 : Hair_Color_Type;`
7			`end record;`
8
9			`A : constant Rec := (Black, Blonde);`
10
11			`procedure Print (Data : String);`
12
13			`procedure Test;`
14
15			`end Aggr12;`

Browse

Tools

Subversion Repositories openrisc

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