FM920 Program

**********00010920 * FORTRAN 77 00020920 FM920 00030920 * INQF2 - (439) 00040920 00050920 **********00060920 * GENERAL PURPOSE ANS REF 00070920 TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080920 * 00090920 THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100920 * FILE THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110920 (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120920 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130920 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140920 * THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150920 BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160920 * AND AFTER READING FROM A FILE. 00170920 **********00180920 00190920 BB *** BBCCOMNT ******00200920 00210920 1978 FORTRAN COMPILER VALIDATION SYSTEM 00220920 VERSION 2.1 00230920 00240920 00250920 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00260920 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00270920 SOFTWARE STANDARDS VALIDATION GROUP 00280920 BUILDING 225 RM A266 00290920 GAITHERSBURG, MD 20899 00300920 00310920 00320920 00330920 BE *** BBCCOMNT ******00340920 00350920 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00590920 FOR IDENTIFYING THE TEST ENVIRONMENT 00600920 00610920 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00620920 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00630920 Z03 ZPROG = 'PROGRAM NAME' 00640920 Z04 ZDATE = 'DATE OF TEST' 00650920 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00660920 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00670920 Z07 ZNAME = 'NAME OF USER' 00680920 Z08 ZTAPE = 'TAPE OWNER/ID' 00690920 Z09 ZTAPED = 'DATE TAPE COPIED' 00700920 00710920 00960920 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 00970920 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00980920 * SEQUENTIAL, UNFORMATTED FILE. 00990920 01000920 * THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050920 GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060920 * UNFORMATTED FILE. 01070920 01080920 CSEQ CONTAINS THE FILE NAME FOR UNIT I05. 01090920 * 01150920 01210920 WRITE REPORT TITLE 01220920 01230920 * 01310920 WRITE DETAIL REPORT HEADERS 01370920 01380920 01450920 * OPEN FILE 01460920 01490920 T001 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500920 * 01550920 01890920 * WRITE TO FILE 01900920 01920920 T002 TEST 2 - SECOND INQUIRE (AFTER WRITE) 01930920 * 01980920 02320920 * REWIND AND READ FILE 02330920 02370920 T003 TEST 3 - THIRD INQUIRE (AFTER READ) 02380920 * 02430920 02770920 * 02790920 BB* **** BBCSUM0 *****02800920 WRITE OUT TEST SUMMARY 02810920 02820920 WRITE OUT REPORT FOOTINGS 02940920 02950920 FORMATS FOR TEST DETAIL LINES 03010920 03020920 FORMAT STATEMENTS FOR PAGE HEADERS 03220920 03230920 03360920 FORMAT STATEMENTS FOR REPORT FOOTINGS 03370920 03380920 03430920 FORMAT STATEMENTS FOR RUN SUMMARY 03440920 03450920 03520920 * END OF TEST SEGMENT 439 03530920