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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [double_record_extension1.ads] - Blame information for rev 149

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


package double_record_extension1 is
 
   type T1(n: natural) is tagged record
      s1: string (1..n);
   end record;
   type T2(j,k: natural) is new T1(j) with record
      s2: string (1..k);
   end record;
   type T3 is new T2 (10, 10) with null record;
 
end double_record_extension1;

Line No.	Rev	Author	Line
1	149	jeremybenn	`package double_record_extension1 is`
2
3			`type T1(n: natural) is tagged record`
4			`s1: string (1..n);`
5			`end record;`
6			`type T2(j,k: natural) is new T1(j) with record`
7			`s2: string (1..k);`
8			`end record;`
9			`type T3 is new T2 (10, 10) with null record;`
10
11			`end double_record_extension1;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [double_record_extension1.ads] - Blame information for rev 149