1-- CA200020.A 2-- 3-- Grant of Unlimited Rights 4-- 5-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687 and 6-- F08630-91-C-0015, the U.S. Government obtained unlimited rights in the 7-- software and documentation contained herein. Unlimited rights are 8-- defined in DFAR 252.227-7013(a)(19). By making this public release, 9-- the Government intends to confer upon all recipients unlimited rights 10-- equal to those held by the Government. These rights include rights to 11-- use, duplicate, release or disclose the released technical data and 12-- computer software in whole or in part, in any manner and for any purpose 13-- whatsoever, and to have or permit others to do so. 14-- 15-- DISCLAIMER 16-- 17-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR 18-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 19-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE 20-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 21-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A 22-- PARTICULAR PURPOSE OF SAID MATERIAL. 23--* 24-- 25-- OBJECTIVE: 26-- Check that a partition can be created even if the environment contains 27-- two units with the same name. (This is rule 10.2(19)). 28-- 29-- TEST DESCRIPTION: 30-- Declare the a parent package (CA20002_0). Declare a child package 31-- (CA20002_0.CA20002_1). Declare a subunit in the parent package body 32-- (CA20002_1). Declare a main subprogram that does NOT include the 33-- child package. Insure that this partition can be created. 34-- 35-- This test is intended to test the effects of program maintenance. 36-- After the programmer receives an error from creating a partition 37-- like that tested in test LA20001, the programmer may then repair 38-- the partition by eliminating the reference of the child unit. The 39-- partition should be able to be created. 40-- 41-- To build this test: 42-- 1) Compile the file CA200020 (and include the results in the 43-- program library). 44-- 2) Compile the file CA200021 (and include the results in the 45-- program library). 46-- 3) Compile the file CA200022 (and include the results in the 47-- program library). 48-- 4) Build an executable image, and run it. 49-- 50-- TEST FILES: 51-- This test consists of the following files: 52-- -> CA200020.A 53-- CA200021.A 54-- CA200022.AM 55-- 56-- CHANGE HISTORY: 57-- 27 Jan 99 RLB Initial test. 58-- 20 Mar 00 RLB Removed special requirements, because there 59-- aren't any. 60--! 61 62package CA20002_0 is 63 procedure Do_a_Little (A : out Integer); 64 65end CA20002_0; 66 67package CA20002_0.CA20002_1 is 68 My_Global : Integer; 69end CA20002_0.CA20002_1; 70 71