FM915 Program

**********00010915 * FORTRAN 77 00020915 FM915 00030915 * INQU2 - (431) 00040915 00050915 **********00060915 * GENERAL PURPOSE ANS REF 00070915 TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080915 * 00090915 THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100915 * UNIT THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110915 (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120915 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130915 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140915 * THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150915 BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160915 * AND AFTER READING FROM A FILE. 00170915 **********00180915 BB* **** BBCCOMNT *****00190915 00200915 1978 FORTRAN COMPILER VALIDATION SYSTEM 00210915 VERSION 2.1 00220915 00230915 00240915 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00250915 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00260915 SOFTWARE STANDARDS VALIDATION GROUP 00270915 BUILDING 225 RM A266 00280915 GAITHERSBURG, MD 20899 00290915 00300915 00310915 00320915 BE *** BBCCOMNT ******00330915 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00520915 FOR IDENTIFYING THE TEST ENVIRONMENT 00530915 00540915 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00550915 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00560915 Z03 ZPROG = 'PROGRAM NAME' 00570915 Z04 ZDATE = 'DATE OF TEST' 00580915 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00590915 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00600915 Z07 ZNAME = 'NAME OF USER' 00610915 Z08 ZTAPE = 'TAPE OWNER/ID' 00620915 Z09 ZTAPED = 'DATE TAPE COPIED' 00630915 00640915 * 00890915 THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900915 * THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910915 SEQUENTIAL, UNFORMATTED FILE. 00920915 I05 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL UNFORMATTED FILE. 00930915 * 00970915 01030915 WRITE REPORT TITLE 01040915 01050915 * 01130915 WRITE DETAIL REPORT HEADERS 01190915 01200915 01270915 * OPEN FILE 01280915 01290915 * 01360915 01700915 * WRITE TO FILE 01710915 01720915 * 01790915 02130915 * REWIND AND READ FILE 02140915 02180915 T003 TEST 3 - THIRD INQUIRE (AFTER READ) 02190915 * 02240915 02590915 BB *** BBCSUM0 ******02600915 WRITE OUT TEST SUMMARY 02610915 02620915 WRITE OUT REPORT FOOTINGS 02740915 02750915 FORMATS FOR TEST DETAIL LINES 02810915 02820915 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03020915 03030915 FORMAT STATEMENTS FOR PAGE HEADERS 03170915 03180915 03310915 FORMAT STATEMENTS FOR REPORT FOOTINGS 03320915 03330915 03380915 FORMAT STATEMENTS FOR RUN SUMMARY 03390915 03400915 03470915 **** END OF TEST SEGMENT 431 03480915