**********00010916 * FORTRAN 77 00020916 FM916 00030916 * INQU3 - (432) 00040916 00050916 **********00060916 * GENERAL PURPOSE ANS REF 00070916 TEST INQUIRE BY UNIT ON DIRECT, FORMATTED FILE 12.10.3 00080916 * 00090916 THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100916 * UNIT THAT IS CONNECTED FOR FORMATTED, DIRECT ACCESS 00110916 (ANS REF. 12.2.4.2 AND 12.9.5.2) 00120916 * THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130916 A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140916 * 00150916 BB* **** BBCCOMNT *****00160916 00170916 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180916 VERSION 2.1 00190916 00200916 00210916 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220916 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00230916 SOFTWARE STANDARDS VALIDATION GROUP 00240916 BUILDING 225 RM A266 00250916 GAITHERSBURG, MD 20899 00260916 00270916 00280916 00290916 BE **** BBCCOMNT ******00300916 00310916 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490916 FOR IDENTIFYING THE TEST ENVIRONMENT 00500916 00510916 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520916 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530916 Z03 ZPROG = 'PROGRAM NAME' 00540916 Z04 ZDATE = 'DATE OF TEST' 00550916 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00560916 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00570916 Z07 ZNAME = 'NAME OF USER' 00580916 Z08 ZTAPE = 'TAPE OWNER/ID' 00590916 Z09 ZTAPED = 'DATE TAPE COPIED' 00600916 00610916 00860916 * THE FOLLOWING STATEMENT MUST BE CHANGED IF 00870916 THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00880916 * DIRECT, FORMATTED FILE. 00890916 S C R A T C H D I R E C T A C C E S S U N I T 00900916 * 00940916 THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 00950916 * NOT A VALID RECORD LENGTH. 00960916 00980916 01040916 WRITE REPORT TITLE 01050916 01060916 01140916 WRITE DETAIL REPORT HEADERS 01200916 01210916 * 01280916 OPEN FILE 01290916 * 01320916 TEST 1 - FIRST INQUIRE (AFTER OPEN) 01330916 * 01390916 01780916 * 01800916 BB* **** BBCSUM0 *****01810916 WRITE OUT TEST SUMMARY 01820916 01830916 WRITE OUT REPORT FOOTINGS 01950916 01960916 FORMATS FOR TEST DETAIL LINES 02020916 02030916 FORMAT STATEMENTS FOR PAGE HEADERS 02230916 02240916 02370916 FORMAT STATEMENTS FOR REPORT FOOTINGS 02380916 02390916 02440916 FORMAT STATEMENTS FOR RUN SUMMARY 02450916 02460916 02530916 **** END OF TEST SEGMENT 432 02540916
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| logical | :: | AVB | ||||
| character(len=10) | :: | B10VK | SPECIFICATION STATEMENTS 00350916 00360916 |
|||
| logical | :: | BVB | ||||
| character(len=10) | :: | D10VK | SPECIFICATION STATEMENTS 00350916 00360916 |
|||
| character(len=10) | :: | E11VK*11 | SPECIFICATION STATEMENTS 00350916 00360916 |
|||
| character(len=10) | :: | F10VK | SPECIFICATION STATEMENTS 00350916 00360916 |
|||
| character(len=10) | :: | H10VK | SPECIFICATION STATEMENTS 00350916 00360916 |
|||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00410916 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00410916 |