1-- F340A001.A 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-- 26-- FOUNDATION DESCRIPTION: 27-- This file declares a tagged type and primitive subprogram for use in 28-- tests covering tagged types and type extensions. 29-- 30-- TEST FILES: 31-- The following files comprise this foundation: 32-- 33-- F340A000.A 34-- => F340A001.A 35-- 36-- CHANGE HISTORY: 37-- 06 Dec 94 SAIC ACVC 2.0 38-- 39--! 40 41package F340A001 is -- Book definitions. 42 43 44 type Text_Ptr is access String; 45 46 type Book_Type is tagged record -- Root tagged type. 47 Title : Text_Ptr; 48 Author : Text_Ptr; 49 end record; 50 51 52 procedure Create_Book (Title : in Text_Ptr; -- Primitive operation 53 Author : in Text_Ptr; -- of root tagged type. 54 Book : out Book_Type); 55 56 57end F340A001; 58 59 60 --==================================================================-- 61 62 63package body F340A001 is -- Book definitions. 64 65 66 procedure Create_Book (Title : in Text_Ptr; 67 Author : in Text_Ptr; 68 Book : out Book_Type) is 69 begin 70 Book.Title := Title; 71 Book.Author := Author; 72 end Create_Book; 73 74 75end F340A001; 76