OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [gnati.ads] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do compile }
2
--  { dg-options "-gnatI" }
3
 
4
package gnati is
5
   type j is range 1 .. 50;
6
   for j'size use 1;
7
   type n is new integer;
8
   for n'alignment use -99;
9
   type e is (a, b);
10
   for e use (1, 1);
11
   type r is record x : integer; end record;
12
   for r use record x at 0 range 0 .. 0; end record;
13
end gnati;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.