| PROGRAM FM919 |
| |
| C***********************************************************************00010919 |
| C***** FORTRAN 77 00020919 |
| C***** FM919 00030919 |
| C***** INQF1 - (438) 00040919 |
| C***** 00050919 |
| C***********************************************************************00060919 |
| C***** GENERAL PURPOSE ANS REF 00070919 |
| C***** TEST INQUIRE BY FILE ON SEQUENTIAL, FORMATTED FILES 12.10.3 00080919 |
| C***** 00090919 |
| C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100919 |
| C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00110919 |
| C***** (ANS REF. 12.2.4.1 AND 12.9.5.2) 00120919 |
| C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130919 |
| C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140919 |
| C***********************************************************************00150919 |
| CBB** ********************** BBCCOMNT **********************************00160919 |
| C**** 00170919 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180919 |
| C**** VERSION 2.1 00190919 |
| C**** 00200919 |
| C**** 00210919 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220919 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00230919 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00240919 |
| C**** BUILDING 225 RM A266 00250919 |
| C**** GAITHERSBURG, MD 20899 00260919 |
| C**** 00270919 |
| C**** 00280919 |
| C**** 00290919 |
| CBE** ********************** BBCCOMNT **********************************00300919 |
| C***** 00310919 |
| LOGICAL AVB, BVB 00320919 |
| CHARACTER*10 B10VK, C10VK, E11VK*11, F10VK, H10VK 00330919 |
| C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00340919 |
| CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00350919 |
| CHARACTER*15 CSEQ 00360919 |
| C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-090 00370919 |
| C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00380919 |
| CBB** ********************** BBCINITA **********************************00390919 |
| C**** SPECIFICATION STATEMENTS 00400919 |
| C**** 00410919 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00420919 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00430919 |
| CBE** ********************** BBCINITA **********************************00440919 |
| CBB** ********************** BBCINITB **********************************00450919 |
| C**** INITIALIZE SECTION 00460919 |
| DATA ZVERS, ZVERSD, ZDATE 00470919 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00480919 |
| DATA ZCOMPL, ZNAME, ZTAPE 00490919 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00500919 |
| DATA ZPROJ, ZTAPED, ZPROG 00510919 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00520919 |
| DATA REMRKS /' '/ 00530919 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00540919 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00550919 |
| C**** 00560919 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00570919 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00580919 |
| CZ03 ZPROG = 'PROGRAM NAME' 00590919 |
| CZ04 ZDATE = 'DATE OF TEST' 00600919 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00610919 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00620919 |
| CZ07 ZNAME = 'NAME OF USER' 00630919 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00640919 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00650919 |
| C 00660919 |
| IVPASS = 0 00670919 |
| IVFAIL = 0 00680919 |
| IVDELE = 0 00690919 |
| IVINSP = 0 00700919 |
| IVTOTL = 0 00710919 |
| IVTOTN = 0 00720919 |
| ICZERO = 0 00730919 |
| C 00740919 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00750919 |
| I01 = 05 00760919 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00770919 |
| I02 = 06 00780919 |
| C 00790919 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00800919 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00810919 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00820919 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00830919 |
| C 00840919 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00850919 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00860919 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00870919 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00880919 |
| C 00890919 |
| CBE** ********************** BBCINITB **********************************00900919 |
| C***** 00910919 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00920919 |
| C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00930919 |
| C***** SEQUENTIAL, FORMATTED FILE. 00940919 |
| C***** 00950919 |
| I09 = 933 00960919 |
| CX090 THIS CARD IS REPLACED BY THE CONTENTS OF CX090 00970919 |
| C X-090 I09 = NN WILL OVERRIDE I09 = 14 00980919 |
| C***** 00990919 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01000919 |
| C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01010919 |
| C***** FORMATTED FILE. 01020919 |
| C***** 01030919 |
| C***** 01040919 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050919 |
| C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060919 |
| C***** FORMATTED FILE. 01070919 |
| C***** 01080919 |
| C CSEQ CONTAINS THE FILE NAME FOR UNIT I09. 01090919 |
| CSEQ = ' SEQFILE919' 01100919 |
| C 01110919 |
| CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120919 |
| C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130919 |
| C X-090 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140919 |
| C***** 01150919 |
| NUVI = I02 01160919 |
| IMVI = I09 01170919 |
| ZPROG = 'FM919' 01180919 |
| IVTOTL = 1 01190919 |
| CBB** ********************** BBCHED0A **********************************01200919 |
| C**** 01210919 |
| C**** WRITE REPORT TITLE 01220919 |
| C**** 01230919 |
| WRITE (I02, 90002) 01240919 |
| WRITE (I02, 90006) 01250919 |
| WRITE (I02, 90007) 01260919 |
| WRITE (I02, 90008) ZVERS, ZVERSD 01270919 |
| WRITE (I02, 90009) ZPROG, ZPROG 01280919 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 01290919 |
| CBE** ********************** BBCHED0A **********************************01300919 |
| C***** 01310919 |
| WRITE(NUVI,43800) 01320919 |
| 43800 FORMAT(" ", / " INQF1 - (438) INQUIRE BY FILE" // 01330919 |
| 1 " SEQUENTIAL FORMATTED FILE, CONNECTED BY OPEN" // 01340919 |
| 2 " ANS REF. - 12.10.3" ) 01350919 |
| CBB** ********************** BBCHED0B **********************************01360919 |
| C**** WRITE DETAIL REPORT HEADERS 01370919 |
| C**** 01380919 |
| WRITE (I02,90004) 01390919 |
| WRITE (I02,90004) 01400919 |
| WRITE (I02,90013) 01410919 |
| WRITE (I02,90014) 01420919 |
| WRITE (I02,90015) IVTOTL 01430919 |
| CBE** ********************** BBCHED0B **********************************01440919 |
| C***** 01450919 |
| C***** OPEN FILE 01460919 |
| OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470919 |
| 1 FORM='FORMATTED', BLANK='NULL') 01480919 |
| C***** 01490919 |
| CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500919 |
| IVTNUM = 1 01510919 |
| INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520919 |
| 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530919 |
| 2 FORMATTED=F10VK, BLANK=H10VK, ERR=20014, IOSTAT=IVI) 01540919 |
| 01550919 |
| IF (IVI .NE. 0) GO TO 20010 01560919 |
| IF (.NOT. AVB) GO TO 20010 01570919 |
| IF (.NOT. BVB) GO TO 20010 01580919 |
| IF (JVI .NE. IMVI) GO TO 20010 01590919 |
| IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600919 |
| IF (C10VK .NE. 'YES') GO TO 20010 01610919 |
| IF (E11VK .NE. 'FORMATTED') GO TO 20010 01620919 |
| IF (F10VK .NE. 'YES' ) GO TO 20010 01630919 |
| IF (H10VK .NE. 'NULL') GO TO 20010 01640919 |
| WRITE (NUVI, 80002) IVTNUM 01650919 |
| IVPASS = IVPASS + 1 01660919 |
| GO TO 0011 01670919 |
| 20014 CONTINUE 01680919 |
| WRITE (NUVI, 20015) IVTNUM 01690919 |
| 20015 FORMAT (" ",2X,I3,4X," FAIL",12X, 01700919 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 01710919 |
| GO TO 20016 01720919 |
| 20010 CONTINUE 01730919 |
| WRITE (NUVI, 20011) IVTNUM 01740919 |
| 20011 FORMAT(" ",2X,I3,4X," FAIL",12X, 01750919 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 01760919 |
| 20016 IVFAIL = IVFAIL + 1 01770919 |
| WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01780919 |
| 1 F10VK,H10VK 01790919 |
| 20012 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1, 01800919 |
| 1 " ,OPENED=",L1,", NUMBER=",I4,","/ 01810919 |
| 2 " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 01820919 |
| 3 A9,","/" ",26X,"FORMATTED=" ,A3,", BLANK=",A4) 01830919 |
| WRITE (NUVI, 20013) IMVI 01840919 |
| 20013 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, EXIST=T, " , 01850919 |
| 1 "OPENED=T, NUMBER=" ,I4,","/ 01860919 |
| 2 " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 01870919 |
| 3 "FORMATTED," /" ",26X,"FORMATTED=YES, BLANK=NULL" ) 01880919 |
| 0011 CONTINUE 01890919 |
| C***** 01900919 |
| 43803 CLOSE(UNIT=IMVI, STATUS='DELETE') 01910919 |
| C***** 01920919 |
| CBB** ********************** BBCSUM0 **********************************01930919 |
| C**** WRITE OUT TEST SUMMARY 01940919 |
| C**** 01950919 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01960919 |
| WRITE (I02, 90004) 01970919 |
| WRITE (I02, 90014) 01980919 |
| WRITE (I02, 90004) 01990919 |
| WRITE (I02, 90020) IVPASS 02000919 |
| WRITE (I02, 90022) IVFAIL 02010919 |
| WRITE (I02, 90024) IVDELE 02020919 |
| WRITE (I02, 90026) IVINSP 02030919 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 02040919 |
| CBE** ********************** BBCSUM0 **********************************02050919 |
| CBB** ********************** BBCFOOT0 **********************************02060919 |
| C**** WRITE OUT REPORT FOOTINGS 02070919 |
| C**** 02080919 |
| WRITE (I02,90016) ZPROG, ZPROG 02090919 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02100919 |
| WRITE (I02,90019) 02110919 |
| CBE** ********************** BBCFOOT0 **********************************02120919 |
| CBB** ********************** BBCFMT0A **********************************02130919 |
| C**** FORMATS FOR TEST DETAIL LINES 02140919 |
| C**** 02150919 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 02160919 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 02170919 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 02180919 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 02190919 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 02200919 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 02210919 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 02220919 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 02230919 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 02240919 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 02250919 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 02260919 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 02270919 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 02280919 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 02290919 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 02300919 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 02310919 |
| 80050 FORMAT (" ",48X,A31) 02320919 |
| CBE** ********************** BBCFMT0A **********************************02330919 |
| CBB** ********************** BBCFMT0B **********************************02340919 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 02350919 |
| C**** 02360919 |
| 90002 FORMAT ("1") 02370919 |
| 90004 FORMAT (" ") 02380919 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )02390919 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02400919 |
| 90008 FORMAT (" ",21X,A13,A17) 02410919 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 02420919 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 02430919 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 02440919 |
| 1 7X,"REMARKS",24X) 02450919 |
| 90014 FORMAT (" ","----------------------------------------------" , 02460919 |
| 1 "---------------------------------" ) 02470919 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 02480919 |
| C**** 02490919 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02500919 |
| C**** 02510919 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 02520919 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 02530919 |
| 1 A13) 02540919 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 02550919 |
| C**** 02560919 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 02570919 |
| C**** 02580919 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02590919 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02600919 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02610919 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02620919 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02630919 |
| CBE** ********************** BBCFMT0B **********************************02640919 |
| C***** 02650919 |
| C***** END OF TEST SEGMENT 438 02660919 |
| STOP 02670919 |
| END 02680919 |
