FM922 Program

**********00010922 * FORTRAN 77 00020922 FM922 00030922 * INQF5 - (442) 00040922 00050922 **********00060922 * GENERAL PURPOSE ANS REF 00070922 TEST INQUIRE BY FILE ON A FILE THAT IS NOT 12.10.3 00080922 * CONNECTED TO A UNIT 00090922 00100922 * THE TESTS IN THIS UNIT ARE ONLY BE PERFORMED ON A 00110922 FILE THAT IS NOT CONNECTED TO A UNIT. 00120922 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND THEN 00130922 PERFORMS A CLOSE WITH STATUS='KEEP' IN ORDER TO 00140922 * ENSURE THAT THE UNIT AND FILE ARE NOT CONNECTED. 00150922 (ANS REF 12.10.2) 00160922 **********00170922 BB *** BBCCOMNT ******00180922 00190922 1978 FORTRAN COMPILER VALIDATION SYSTEM 00200922 VERSION 2.1 00210922 00220922 00230922 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00240922 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00250922 SOFTWARE STANDARDS VALIDATION GROUP 00260922 BUILDING 225 RM A266 00270922 GAITHERSBURG, MD 20899 00280922 00290922 00300922 00310922 BE *** BBCCOMNT ******00320922 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00550922 FOR IDENTIFYING THE TEST ENVIRONMENT 00560922 00570922 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00580922 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00590922 Z03 ZPROG = 'PROGRAM NAME' 00600922 Z04 ZDATE = 'DATE OF TEST' 00610922 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00620922 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00630922 Z07 ZNAME = 'NAME OF USER' 00640922 Z08 ZTAPE = 'TAPE OWNER/ID' 00650922 Z09 ZTAPED = 'DATE TAPE COPIED' 00660922 00670922 * 00920922 THE FOLLOWING STATEMENT MUST BE CHANGED IF 00930922 * THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00940922 SEQUENTIAL, FORMATTED FILE. 00950922 * 00960922 I15 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00970922 01010922 * THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01020922 GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01030922 * FORMATTED FILE. 01040922 01050922 CSEQ CONTAINS THE FILE NAME FOR UNIT I15. 01060922 * 01130922 01190922 WRITE REPORT TITLE 01200922 01210922 WRITE DETAIL REPORT HEADERS 01340922 01350922 * 01420922 OPEN FILE, WRITE TO FILE, REWIND FILE 01430922 * 01440922 01490922 * DISCONNECT FILE 01500922 01510922 * 01530922 T001 TEST 1 - INQUIRE ON DISCONNECTED FILE 01540922 WRITE OUT TEST SUMMARY 01910922 01920922 WRITE OUT REPORT FOOTINGS 02040922 02050922 FORMATS FOR TEST DETAIL LINES 02110922 02120922 FORMAT STATEMENTS FOR PAGE HEADERS 02320922 02330922 02460922 FORMAT STATEMENTS FOR REPORT FOOTINGS 02470922 02480922 02530922 FORMAT STATEMENTS FOR RUN SUMMARY 02540922 *** 02550922