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/] [ada/] [acats/] [support/] [fa13b00.a] - Blame information for rev 316

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

Line No. Rev Author Line
1 294 jeremybenn
-- FA13B00.A
2
--
3
--                             Grant of Unlimited Rights
4
--
5
--     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
6
--     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
7
--     unlimited rights in the software and documentation contained herein.
8
--     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
9
--     this public release, the Government intends to confer upon all
10
--     recipients unlimited rights  equal to those held by the Government.
11
--     These rights include rights to use, duplicate, release or disclose the
12
--     released technical data and computer software in whole or in part, in
13
--     any manner and for any purpose whatsoever, and to have or permit others
14
--     to do so.
15
--
16
--                                    DISCLAIMER
17
--
18
--     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
19
--     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
20
--     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
21
--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
22
--     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
23
--     PARTICULAR PURPOSE OF SAID MATERIAL.
24
--*
25
--
26
-- FOUNDATION DESCRIPTION:
27
--      This foundation code is used to check visibility of separate
28
--      subunit of child packages.
29
--      Declares a package containing type definitions and a private
30
--      part; package will be with'ed by the parent's body of the subunits.
31
--
32
-- CHANGE HISTORY:
33
--      06 Dec 94   SAIC    ACVC 2.0
34
--
35
--!
36
 
37
package FA13B00_0 is
38
 
39
   -- Type definitions.
40
 
41
   type Visible_Integer is range 1 .. 10;
42
 
43
   type Private_Record is private;
44
 
45
   type Visible_Tagged is tagged
46
      record
47
         PR : Private_Record;
48
      end record;
49
 
50
   type Private_Tagged is tagged private;
51
 
52
   Visible_Num : Visible_Integer := 7;
53
 
54
   -- Subprogram definitions.
55
 
56
   function Assign_Visible_Tagged (I : Visible_Integer)
57
     return Visible_Tagged;
58
 
59
   function Assign_Private_Tagged (I : Visible_Integer)
60
     return Private_Tagged;
61
 
62
private
63
 
64
   -- Type definitions.
65
 
66
   type Private_Integer is range 11 .. 20;
67
 
68
   type Private_Record is
69
      record
70
         VI : Visible_Integer;
71
      end record;
72
 
73
   type Private_Tagged is tagged
74
      record
75
         VI : Visible_Integer;
76
      end record;
77
 
78
   -- Object definitions.
79
 
80
   Private_Num : Visible_Integer :=  6;
81
 
82
end FA13B00_0;
83
 
84
     --==================================================================--
85
 
86
package body FA13B00_0 is
87
 
88
   function Assign_Visible_Tagged(I : Visible_Integer)
89
     return Visible_Tagged is
90
     VT : Visible_Tagged := (PR => (VI => I));
91
   begin
92
     return VT;
93
   end Assign_Visible_Tagged;
94
 
95
   -------------------------------------------------------
96
 
97
   function Assign_Private_Tagged (I : Visible_Integer)
98
     return Private_Tagged is
99
     PT : Private_Tagged := (VI => I);
100
   begin
101
     return PT;
102
   end Assign_Private_Tagged;
103
 
104
   -------------------------------------------------------
105
 
106
end FA13B00_0;

powered by: WebSVN 2.1.0

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