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/] [controller.ads] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile } 
2
 
3
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
4
package Controller is
5
   type Iface is interface;
6
   type Thing is tagged record
7
      Name : Unbounded_String;
8
   end record;
9
   type Object is abstract new Thing and Iface with private;
10
private
11
   type Object is abstract new Thing  and Iface
12
   with record
13
      Surname : Unbounded_String;
14
   end record;
15
end Controller;

powered by: WebSVN 2.1.0

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