1-- C39008C.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 PROGRAM_ERROR IS RAISED WHEN AN ATTEMPT IS MADE TO 27-- ACTIVATE A TASK BEFORE ITS BODY HAS BEEN ELABORATED. CHECK THE 28-- CASE IN WHICH SEVERAL TASKS ARE TO BE ACTIVATED, AND ONLY SOME 29-- HAVE UNELABORATED BODIES; NO TASKS SHOULD BE ACTIVATED. 30 31-- HISTORY: 32-- BCB 07/08/88 CREATED ORIGINAL TEST. 33 34WITH REPORT; USE REPORT; 35 36PROCEDURE C39008C IS 37 38BEGIN 39 TEST ("C39008C", "CHECK THAT PROGRAM_ERROR IS RAISED WHEN AN " & 40 "ATTEMPT IS MADE TO ACTIVATE A TASK BEFORE ITS " & 41 "BODY HAS BEEN ELABORATED. CHECK THE CASE IN " & 42 "WHICH SEVERAL TASKS ARE TO BE ACTIVATED, AND " & 43 "ONLY SOME HAVE UNELABORATED BODIES; NO TASKS " & 44 "SHOULD BE ACTIVATED"); 45 46 BEGIN 47 DECLARE 48 TASK TYPE A; 49 50 TASK TYPE B; 51 52 TASK TYPE C; 53 54 TASK TYPE D; 55 56 PACKAGE P IS 57 W : A; 58 X : B; 59 Y : C; 60 Z : D; 61 END P; 62 63 TASK BODY A IS 64 BEGIN 65 FAILED ("TASK A ACTIVATED"); 66 END A; 67 68 TASK BODY D IS 69 BEGIN 70 FAILED ("TASK D ACTIVATED"); 71 END D; 72 73 PACKAGE BODY P IS 74 END P; 75 76 TASK BODY B IS 77 BEGIN 78 FAILED ("TASK B ACTIVATED"); 79 END B; 80 81 TASK BODY C IS 82 BEGIN 83 FAILED ("TASK C ACTIVATED"); 84 END C; 85 BEGIN 86 FAILED ("PROGRAM_ERROR WAS NOT RAISED"); 87 END; 88 EXCEPTION 89 WHEN PROGRAM_ERROR => 90 NULL; 91 WHEN OTHERS => 92 FAILED ("AN EXCEPTION OTHER THAN PROGRAM_ERROR WAS " & 93 "RAISED"); 94 END; 95 96 RESULT; 97END C39008C; 98