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

Subversion Repositories openrisc

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

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


-- { dg-do compile } 
 
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	696	jeremybenn	`-- { dg-do compile }`
2
3			`package double_record_extension1 is`
4
5			`type T1(n: natural) is tagged record`
6			`s1: string (1..n);`
7			`end record;`
8			`type T2(j,k: natural) is new T1(j) with record`
9			`s2: string (1..k);`
10			`end record;`
11			`type T3 is new T2 (10, 10) with null record;`
12
13			`end double_record_extension1;`

Browse

Tools

Subversion Repositories openrisc

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