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

Subversion Repositories openrisc

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

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


package Case_Null is
   type T is (a, b, c, d, e);
 
   subtype S is T range b .. d;
 
   subtype S1 is S range a .. d;
   --  Low bound out of range of base subtype.
 
   procedure P1 (X : T);
 
end Case_Null;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Case_Null is`
2			`type T is (a, b, c, d, e);`
3
4			`subtype S is T range b .. d;`
5
6			`subtype S1 is S range a .. d;`
7			`-- Low bound out of range of base subtype.`
8
9			`procedure P1 (X : T);`
10
11			`end Case_Null;`

Browse

Tools

Subversion Repositories openrisc

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