3 -- Grant of Unlimited Rights
5 -- The Ada Conformity Assessment Authority (ACAA) holds unlimited
6 -- rights in the software and documentation contained herein. Unlimited
7 -- rights are the same as those granted by the U.S. Government for older
8 -- parts of the Ada Conformity Assessment Test Suite, and are defined
9 -- in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
10 -- intends to confer upon all recipients unlimited rights equal to those
11 -- held by the ACAA. These rights include rights to use, duplicate,
12 -- release or disclose the released technical data and computer software
13 -- in whole or in part, in any manner and for any purpose whatsoever, and
14 -- to have or permit others to do so.
18 -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
19 -- DISCLOSED ARE AS IS. THE ACAA 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.
27 -- Check that operations are inherited for a formal derived type whose
28 -- ancestor is also a formal type as described in the corrigendum.
29 -- (Defect Report 8652/0038, as reflected in Technical Corrigendum 1,
30 -- RM95 12.5.1(21/1)).
33 -- 29 Jan 2001 PHL Initial version.
34 -- 30 Apr 2002 RLB Readied for release.
50 package body CC51008_0
is
51 procedure S
(X
: R0
) is
53 Comment
("CC51008_0.S called");
59 type F1
is new CC51008_0
.R0
;
62 procedure G
(O1
: F1
; O2
: F2
);
65 package body CC51008_1
is
66 procedure G
(O1
: F1
; O2
: F2
) is
75 type R2
is new CC51008_0
.R0
;
76 procedure S
(X
: out R2
);
81 package body CC51008_2
is
82 procedure S
(X
: out R2
) is
84 Failed
("CC51008_2.S called");
90 type R3
is new CC51008_2
.R2
;
96 package body CC51008_3
is
97 procedure S
(X
: R3
) is
99 Failed
("CC51008_3.S called");
110 package Inst
is new CC51008_1
(CC51008_2
.R2
,
113 X2
: constant CC51008_2
.R2
:= (C
=> 2.0);
114 X3
: constant CC51008_3
.R3
:= (C
=> 3.0);
118 "Check that operations are inherited for a formal derived " &
119 "type whose ancestor is also a formal type as described in " &
120 "RM95 12.5.1(21/1)");