1-- CE2108G.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 EXTERNAL DIRECT FILE SPECIFIED BY A NON-NULL 27-- STRING NAME IS ACCESSIBLE AFTER THE COMPLETION OF THE MAIN 28-- PROGRAM. 29 30-- THIS TEST CREATES A DIRECT FILE; CE2108H.ADA READS IT. 31 32-- APPLICABILITY CRITERIA: 33-- THIS TEST IS APPLICABLE ONLY TO IMPLEMENTATIONS WHICH SUPPORT 34-- CREATION OF AN EXTERNAL DIRECT FILE. 35 36-- HISTORY: 37-- TBN 07/16/87 CREATED ORIGINAL TEST. 38 39WITH REPORT; USE REPORT; 40WITH DIRECT_IO; 41 42PROCEDURE CE2108G IS 43 44 PACKAGE DIR IS NEW DIRECT_IO (INTEGER); 45 INCOMPLETE : EXCEPTION; 46 FILE_NAME : DIR.FILE_TYPE; 47 PREVENT_EMPTY_FILE : NATURAL := 5; 48 49BEGIN 50 51 TEST ("CE2108G", "CHECK THAT AN EXTERNAL DIRECT FILE SPECIFIED " & 52 "BY A NON-NULL STRING NAME IS ACCESSIBLE AFTER " & 53 "THE COMPLETION OF THE MAIN PROGRAM"); 54 BEGIN 55 BEGIN 56 DIR.CREATE (FILE_NAME, DIR.OUT_FILE, LEGAL_FILE_NAME); 57 EXCEPTION 58 WHEN DIR.USE_ERROR => 59 NOT_APPLICABLE ("USE_ERROR RAISED ON DIRECT " & 60 "CREATE WITH OUT_FILE MODE"); 61 RAISE INCOMPLETE; 62 WHEN DIR.NAME_ERROR => 63 NOT_APPLICABLE ("NAME_ERROR RAISED ON DIRECT " & 64 "CREATE WITH OUT_FILE MODE"); 65 RAISE INCOMPLETE; 66 WHEN OTHERS => 67 FAILED ("UNEXPECTED EXCEPTION RAISED ON " & 68 "DIRECT CREATE"); 69 RAISE INCOMPLETE; 70 END; 71 72 DIR.WRITE (FILE_NAME, PREVENT_EMPTY_FILE); 73 DIR.CLOSE (FILE_NAME); 74 75 EXCEPTION 76 WHEN INCOMPLETE => 77 NULL; 78 END; 79 80 RESULT; 81 82END CE2108G; 83