1-- C23006D.ADA
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-- CHECK THAT UNDERSCORES ARE SIGNIFICANT IN THE NAMES OF GENERIC
26-- LIBRARY PACKAGES
27
28-- JBG 5/26/85
29-- PWN 5/25/94  ADDED A PROCEDURE TO KEEP PACKAGE BODIES LEGAL.
30
31GENERIC
32PACKAGE C23006D_PKG IS
33     A : INTEGER := 1;
34END C23006D_PKG;
35
36GENERIC
37PACKAGE C23006DPKG IS
38     D : INTEGER := 2;
39     PROCEDURE REQUIRE_BODY;
40END C23006DPKG;
41
42WITH REPORT; USE REPORT;
43PRAGMA ELABORATE (REPORT);
44PACKAGE BODY C23006DPKG IS
45     PROCEDURE REQUIRE_BODY IS
46     BEGIN
47          NULL;
48     END;
49BEGIN
50     D := IDENT_INT (5);
51END C23006DPKG;
52
53WITH C23006D_PKG;
54PRAGMA ELABORATE (C23006D_PKG);
55PACKAGE C23006D_INST IS NEW C23006D_PKG;
56
57WITH C23006DPKG, C23006D_INST;
58USE C23006D_INST;
59WITH REPORT; USE REPORT;
60PROCEDURE C23006D IS
61
62     PACKAGE P2 IS NEW C23006DPKG;
63     USE P2;
64
65BEGIN
66     TEST ("C23006D", "CHECK UNDERSCORES ARE SIGNIFICANT " &
67                      "FOR GENERIC LIBRARY PACKAGE IDENTIFIERS");
68
69     IF A + IDENT_INT(4) /= D THEN
70          FAILED ("INCORRECT PACKAGE IDENTIFICATION - 1");
71     END IF;
72
73     RESULT;
74END C23006D;
75