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

Subversion Repositories openrisc

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

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


package Statically_Matching is
   type T1(b: boolean) is tagged null record;
   type T2 is new T1(b => false) with private;
private
   F: constant boolean := false;
   type T2 is new T1(b => F) with null record;  -- OK
end Statically_Matching;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Statically_Matching is`
2			`type T1(b: boolean) is tagged null record;`
3			`type T2 is new T1(b => false) with private;`
4			`private`
5			`F: constant boolean := false;`
6			`type T2 is new T1(b => F) with null record; -- OK`
7			`end Statically_Matching;`

Browse

Tools

Subversion Repositories openrisc

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