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