3 -- Grant of Unlimited Rights
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
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.
25 -- CHECK THAT SUBUNITS HAVING DIFFERENT ANCESTOR LIBRARY UNITS CAN HAVE
28 -- SEPARATE FILES ARE:
29 -- CA2002A0M THE MAIN PROCEDURE, WITH SEPARATE LIBRARY
30 -- PACKAGES (CA2002A1) AND (CA2002A2).
31 -- CA2002A1 SUBUNIT BODIES FOR STUBS IN PACKAGE CA2002A1.
32 -- CA2002A2 SUBUNIT BODIES FOR STUBS IN PACKAGE CA2002A2.
38 PROCEDURE PROC
(X
: OUT INTEGER);
39 FUNCTION FUN
RETURN BOOLEAN;
43 PROCEDURE PKG_PROC
(XX
: IN OUT INTEGER);
48 PACKAGE BODY CA2002A1
IS
50 PROCEDURE PROC
(X
: OUT INTEGER) IS SEPARATE;
51 FUNCTION FUN
RETURN BOOLEAN IS SEPARATE;
52 PACKAGE BODY PKG
IS SEPARATE;
59 PROCEDURE PROC
(Y
: OUT INTEGER);
60 FUNCTION FUN
(Z
: INTEGER := 3) RETURN BOOLEAN;
64 PROCEDURE PKG_PROC
(YY
: IN OUT INTEGER);
69 PACKAGE BODY CA2002A2
IS
71 PROCEDURE PROC
(Y
: OUT INTEGER) IS SEPARATE;
72 FUNCTION FUN
(Z
: INTEGER := 3) RETURN BOOLEAN IS SEPARATE;
73 PACKAGE BODY PKG
IS SEPARATE;
77 WITH CA2002A1
, CA2002A2
;
78 WITH REPORT
; USE REPORT
;
79 PROCEDURE CA2002A0M
IS
82 TEST
("CA2002A", "SUBUNITS WITH DIFFERENT ANCESTORS " &
83 "CAN HAVE THE SAME NAME");
92 FAILED
("CA2002A1 PROCEDURE NOT INVOKED CORRECTLY");
96 FAILED
("CA2002A1 FUNCTION NOT INVOKED CORRECTLY");
100 FAILED
("CA2202A1 PKG VARIABLE NOT ACCESSED CORRECTLY");
106 FAILED
("CA2002A1 PKG SUBUNIT NOT INVOKED CORRECTLY");
118 FAILED
("CA2002A2 PROCEDURE NOT INVOKED CORRECTLY");
122 FAILED
("CA2002A2 FUNCTION NOT INVOKED CORRECTLY");
126 FAILED
("CA2002A2 PKG VARIABLE NOT ACCESSED CORRECTLY");
132 FAILED
("CA2002A2 PKG SUBUNIT NOT INVOKED CORRECTLY");