1-- CA1022A6M.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 IF A SUBPROGRAM BODY IS INITIALLY COMPILED WITH A CONTEXT
26-- CLAUSE AND A UNIT NAMED IN THE CONTEXT CLAUSE IS RECOMPILED, THEN AN
27-- ATTEMPT TO COMPILE THE BODY AGAIN WILL SUCCEED IF THE CONTEXT CLAUSE
28-- IS PRESENT.
29-- CHECK THAT IF THE RECOMPILED UNIT IS NOT NEEDED IN THE SUBPROGRAM
30-- BODY, THE BODY CAN BE SUCCESSFULLY RECOMPILED WITHOUT MENTIONING THE
31-- RECOMPILED UNIT.
32
33-- SEPARATE FILES ARE:
34--     CA1022A0  A LIBRARY PACKAGE.
35--     CA1022A1  A LIBRARY PROCEDURE.
36--     CA1022A2  A LIBRARY FUNCTION.
37--     CA1022A3  A LIBRARY PACKAGE (CA1022A0).
38--     CA1022A4  A LIBRARY PROCEDURE (CA1022A1).
39--     CA1022A5  A LIBRARY FUNCTION (CA1022A2).
40--     CA1022A6M THE MAIN PROCEDURE.
41
42-- BHS 7/23/84
43
44WITH CA1022A1, CA1022A2;
45WITH REPORT; USE REPORT;
46PROCEDURE CA1022A6M IS
47
48     I : INTEGER := 1;
49
50BEGIN
51
52     TEST ("CA1022A", "USE OF CONTEXT CLAUSES NAMING RECOMPILED " &
53                      "UNITS WITH RECOMPILED SUBPROGRAMS");
54
55     CA1022A1(I);
56     IF I /= 5 THEN
57          FAILED ("PROCEDURE CA1022A1 NOT INVOKED CORRECTLY");
58     END IF;
59
60     IF CA1022A2 THEN
61          FAILED ("FUNCTION CA1022A2 NOT INVOKED CORRECTLY");
62     END IF;
63
64     RESULT;
65
66END CA1022A6M;
67