1-- CD3015K.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 27-- REPRESENTATION CLAUSE FOR A DERIVED TYPE CAN BE GIVEN IN THE 28-- VISIBLE OR PRIVATE PART OF A GENERIC PACKAGE FOR A DERIVED TYPE 29-- DECLARED IN THE VISIBLE PART, WHERE AN ENUMERATION CLAUSE 30-- HAS BEEN GIVEN FOR THE PARENT. 31 32-- HISTORY 33-- DHH 10/01/87 CREATED ORIGINAL TEST 34-- DHH 03/29/89 CHANGE FROM 'A' TEST TO 'C' TEST AND FROM '.DEP' 35-- '.ADA'. ADDED CHECK ON REPRESENTATION CLAUSES. 36 37WITH REPORT; USE REPORT; 38WITH ENUM_CHECK; -- CONTAINS A CALL TO 'FAILED'. 39PROCEDURE CD3015K IS 40 41BEGIN 42 43 TEST ("CD3015K", "CHECK THAT AN ENUMERATION REPRESENTATION " & 44 "CLAUSE FOR A DERIVED TYPE CAN BE GIVEN IN " & 45 "THE VISIBLE OR PRIVATE PART OF A GENERIC " & 46 "PACKAGE FOR A DERIVED TYPE DECLARED IN " & 47 "THE VISIBLE PART, WHERE AN ENUMERATION " & 48 "CLAUSE HAS BEEN GIVEN FOR THE PARENT"); 49 50 DECLARE 51 52 GENERIC 53 PACKAGE GENPACK IS 54 55 TYPE MAIN IS (RED,BLUE,YELLOW); 56 FOR MAIN USE (RED => 1, BLUE => 2, YELLOW => 3); 57 58 TYPE HUE IS NEW MAIN; 59 TYPE NEWHUE IS NEW MAIN; 60 61 FOR HUE USE (RED => 8, BLUE => 11, YELLOW => 12); 62 63 PRIVATE 64 65 FOR NEWHUE USE (RED => 6, BLUE => 12, YELLOW => 18); 66 67 TYPE INT1 IS RANGE 8 .. 12; 68 FOR INT1'SIZE USE HUE'SIZE; 69 70 TYPE INT2 IS RANGE 6 .. 18; 71 FOR INT2'SIZE USE NEWHUE'SIZE; 72 73 PROCEDURE CHECK_1 IS NEW ENUM_CHECK(HUE, INT1); 74 PROCEDURE CHECK_2 IS NEW ENUM_CHECK(NEWHUE, INT2); 75 76 END GENPACK; 77 78 PACKAGE BODY GENPACK IS 79 80 BEGIN 81 CHECK_1 (RED, 8, "HUE"); 82 CHECK_2 (YELLOW, 18, "NEWHUE"); 83 END GENPACK; 84 85 PACKAGE P IS NEW GENPACK; 86 87 BEGIN 88 NULL; 89 END; 90 91 RESULT; 92END CD3015K; 93