1-- CA1102A2M.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 MORE THAN ONE WITH_CLAUSE CAN APPEAR IN 26-- A CONTEXT_SPECIFICATION. 27-- CHECK THAT USE_CLAUSES CAN MENTION NAMES MADE 28-- VISIBLE BY PRECEDING WITH_CLAUSES IN THE SAME 29-- CONTEXT_SPECIFICATION. 30-- CHECK THAT CONSECUTIVE USE_CLAUSES ARE ALLOWED. 31 32-- SEPARATE FILES ARE: 33-- CA1102A0 A LIBRARY PACKAGE DECLARATION. 34-- CA1102A1 A LIBRARY PACKAGE BODY (CA1102A0). 35-- CA1102A2M THE MAIN PROCEDURE. 36 37-- WKB 6/12/81 38-- BHS 7/19/84 39 40WITH CA1102A0; 41WITH REPORT; USE CA1102A0; USE REPORT; 42PROCEDURE CA1102A2M IS 43 44 45 INVOKED : BOOLEAN := FALSE; 46 47BEGIN 48 TEST ("CA1102A", "MORE THAN ONE WITH_CLAUSE; ALSO, A " & 49 "USE_CLAUSE REFERING TO A PRECEDING WITH_CLAUSE " & 50 "IN THE SAME CONTEXT_SPECIFICATION"); 51 52 P (INVOKED); 53 IF NOT INVOKED THEN 54 FAILED ("COMPILATION UNIT NOT MADE VISIBLE"); 55 END IF; 56 57 RESULT; 58END CA1102A2M; 59