1-- CD1009W.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-- OBJECTIVE: 26-- CHECK THAT AN ENUMERATION REPRESENTATION CLAUSE MAY BE GIVEN IN 27-- THE PRIVATE PART OF A PACKAGE FOR A PRIVATE TYPE, WHOSE FULL 28-- TYPE DECLARATION IS AN ENUMERATION TYPE, DECLARED IN THE 29-- VISIBLE PART OF THE SAME PACKAGE. 30 31-- HISTORY: 32-- VCL 10/09/87 CREATED ORIGINAL TEST. 33-- DHH 03/29/89 CHANGE FROM 'A' TEST TO 'C' TEST AND FROM '.DEP' 34-- '.ADA'. ADDED CHECK ON REPRESENTATION CLAUSE. 35 36WITH REPORT; USE REPORT; 37WITH ENUM_CHECK; -- CONTAINS A CALL TO 'FAILED'. 38PROCEDURE CD1009W IS 39BEGIN 40 TEST ("CD1009W", "AN ENUMERATION REPRESENTATION CLAUSE MAY BE " & 41 "GIVEN IN THE PRIVATE PART OF A PACKAGE FOR " & 42 "A PRIVATE TYPE, WHOSE FULL TYPE DECLARATION " & 43 "IS AN ENUMERATION TYPE, DECLARED IN " & 44 "THE VISIBLE PART OF THE SAME PACKAGE"); 45 DECLARE 46 PACKAGE PACK IS 47 TYPE CHECK_TYPE_1 IS PRIVATE; 48 PRIVATE 49 TYPE CHECK_TYPE_1 IS (A0, A2, A4, A8); 50 FOR CHECK_TYPE_1 USE (A0 => 0, 51 A2 => 2, 52 A4 => 4, 53 A8 => 16); 54 TYPE INT1 IS RANGE 0 .. 16; 55 FOR INT1'SIZE USE CHECK_TYPE_1'SIZE; 56 57 PROCEDURE CHECK_1 IS NEW ENUM_CHECK(CHECK_TYPE_1, INT1); 58 END PACK; 59 60 PACKAGE BODY PACK IS 61 BEGIN 62 CHECK_1 (A8, 16, "CHECK_TYPE_1"); 63 END PACK; 64 65 USE PACK; 66 BEGIN 67 NULL; 68 END; 69 70 RESULT; 71END CD1009W; 72