| PROGRAM FM920 |
| |
| C***********************************************************************00010920 |
| C***** FORTRAN 77 00020920 |
| C***** FM920 00030920 |
| C***** INQF2 - (439) 00040920 |
| C***** 00050920 |
| C***********************************************************************00060920 |
| C***** GENERAL PURPOSE ANS REF 00070920 |
| C***** TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080920 |
| C***** 00090920 |
| C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100920 |
| C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110920 |
| C***** (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120920 |
| C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130920 |
| C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140920 |
| C***** THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150920 |
| C***** BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160920 |
| C***** AND AFTER READING FROM A FILE. 00170920 |
| C***********************************************************************00180920 |
| C***** 00190920 |
| CBB** ********************** BBCCOMNT **********************************00200920 |
| C**** 00210920 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00220920 |
| C**** VERSION 2.1 00230920 |
| C**** 00240920 |
| C**** 00250920 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00260920 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00270920 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00280920 |
| C**** BUILDING 225 RM A266 00290920 |
| C**** GAITHERSBURG, MD 20899 00300920 |
| C**** 00310920 |
| C**** 00320920 |
| C**** 00330920 |
| CBE** ********************** BBCCOMNT **********************************00340920 |
| C***** 00350920 |
| LOGICAL AVB, BVB 00360920 |
| CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK 00370920 |
| C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00380920 |
| CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00390920 |
| CHARACTER*15 CSEQ 00400920 |
| C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-050 00410920 |
| C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00420920 |
| C***** 00430920 |
| CBB** ********************** BBCINITA **********************************00440920 |
| C**** SPECIFICATION STATEMENTS 00450920 |
| C**** 00460920 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00470920 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00480920 |
| CBE** ********************** BBCINITA **********************************00490920 |
| CBB** ********************** BBCINITB **********************************00500920 |
| C**** INITIALIZE SECTION 00510920 |
| DATA ZVERS, ZVERSD, ZDATE 00520920 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00530920 |
| DATA ZCOMPL, ZNAME, ZTAPE 00540920 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00550920 |
| DATA ZPROJ, ZTAPED, ZPROG 00560920 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00570920 |
| DATA REMRKS /' '/ 00580920 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00590920 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00600920 |
| C**** 00610920 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00620920 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00630920 |
| CZ03 ZPROG = 'PROGRAM NAME' 00640920 |
| CZ04 ZDATE = 'DATE OF TEST' 00650920 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00660920 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00670920 |
| CZ07 ZNAME = 'NAME OF USER' 00680920 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00690920 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00700920 |
| C 00710920 |
| IVPASS = 0 00720920 |
| IVFAIL = 0 00730920 |
| IVDELE = 0 00740920 |
| IVINSP = 0 00750920 |
| IVTOTL = 0 00760920 |
| IVTOTN = 0 00770920 |
| ICZERO = 0 00780920 |
| C 00790920 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00800920 |
| I01 = 05 00810920 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00820920 |
| I02 = 06 00830920 |
| C 00840920 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00850920 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00860920 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00870920 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00880920 |
| C 00890920 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00900920 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00910920 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00920920 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00930920 |
| C 00940920 |
| CBE** ********************** BBCINITB **********************************00950920 |
| C***** 00960920 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00970920 |
| C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00980920 |
| C***** SEQUENTIAL, UNFORMATTED FILE. 00990920 |
| C***** 01000920 |
| I05 = 14 01010920 |
| CX050 THIS CARD IS USED TO REPLACE THE CONTENTS OF I05 = 15 01020920 |
| C X-050 I05 = NN WILL OVERRIDE DEFAULT I05 = 14 01030920 |
| C 01040920 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050920 |
| C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060920 |
| C***** UNFORMATTED FILE. 01070920 |
| C***** 01080920 |
| C CSEQ CONTAINS THE FILE NAME FOR UNIT I05. 01090920 |
| CSEQ = ' SEQFILE920' 01100920 |
| C 01110920 |
| CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120920 |
| C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130920 |
| C X-050 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140920 |
| C***** 01150920 |
| NUVI = I02 01160920 |
| IMVI = I05 01170920 |
| ZPROG = 'FM920' 01180920 |
| IVTOTL = 3 01190920 |
| CBB** ********************** BBCHED0A **********************************01200920 |
| C**** 01210920 |
| C**** WRITE REPORT TITLE 01220920 |
| C**** 01230920 |
| WRITE (I02, 90002) 01240920 |
| WRITE (I02, 90006) 01250920 |
| WRITE (I02, 90007) 01260920 |
| WRITE (I02, 90008) ZVERS, ZVERSD 01270920 |
| WRITE (I02, 90009) ZPROG, ZPROG 01280920 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 01290920 |
| CBE** ********************** BBCHED0A **********************************01300920 |
| C***** 01310920 |
| WRITE(NUVI,43900) 01320920 |
| 43900 FORMAT(" ", / " INQF2 - (439) INQUIRE BY FILE" // 01330920 |
| 1 " SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN" // 01340920 |
| 2 " ANS REF. - 12.10.3" ) 01350920 |
| CBB** ********************** BBCHED0B **********************************01360920 |
| C**** WRITE DETAIL REPORT HEADERS 01370920 |
| C**** 01380920 |
| WRITE (I02,90004) 01390920 |
| WRITE (I02,90004) 01400920 |
| WRITE (I02,90013) 01410920 |
| WRITE (I02,90014) 01420920 |
| WRITE (I02,90015) IVTOTL 01430920 |
| CBE** ********************** BBCHED0B **********************************01440920 |
| C***** 01450920 |
| C***** OPEN FILE 01460920 |
| OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470920 |
| 1 FORM='UNFORMATTED') 01480920 |
| C***** 01490920 |
| CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500920 |
| IVTNUM = 1 01510920 |
| INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520920 |
| 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530920 |
| 2 UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01540920 |
| C***** 01550920 |
| IF (IVI .NE. 0) GO TO 20010 01560920 |
| IF (.NOT. AVB) GO TO 20010 01570920 |
| IF (.NOT. BVB) GO TO 20010 01580920 |
| IF (JVI .NE. IMVI) GO TO 20010 01590920 |
| IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600920 |
| IF (C10VK. NE. 'YES') GO TO 20010 01610920 |
| IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01620920 |
| IF (G10VK .NE. 'YES' ) GO TO 20010 01630920 |
| WRITE (NUVI, 80002) IVTNUM 01640920 |
| IVPASS = IVPASS + 1 01650920 |
| GO TO 0011 01660920 |
| 20014 CONTINUE 01670920 |
| WRITE (NUVI, 20015) IVTNUM 01680920 |
| 20015 FORMAT (" ",2X,I3,4X," FAIL",12X, 01690920 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 01700920 |
| GO TO 20016 01710920 |
| 20010 CONTINUE 01720920 |
| WRITE (NUVI, 20011) IVTNUM 01730920 |
| 20011 FORMAT(" ",2X,I3,4X," FAIL",12X, 01740920 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 01750920 |
| 20016 IVFAIL = IVFAIL + 1 01760920 |
| WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01770920 |
| 1 G10VK 01780920 |
| 20012 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1, 01790920 |
| 1 " ,OPENED=",L1,", NUMBER=",I4,","/ 01800920 |
| 2 " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 01810920 |
| 3 A11,","/" ",26X,"UNFORMATTED=" ,A3) 01820920 |
| WRITE (NUVI, 20013) IMVI 01830920 |
| 20013 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, EXIST=T, " , 01840920 |
| 1 "OPENED=T, NUMBER=" ,I4,","/ 01850920 |
| 2 " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 01860920 |
| 3 "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" ) 01870920 |
| 0011 CONTINUE 01880920 |
| C***** 01890920 |
| C***** WRITE TO FILE 01900920 |
| WRITE(IMVI) JVI 01910920 |
| C***** 01920920 |
| CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 01930920 |
| IVTNUM = 2 01940920 |
| INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01950920 |
| 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01960920 |
| 2 UNFORMATTED=G10VK, ERR=20024, IOSTAT=IVI) 01970920 |
| C***** 01980920 |
| IF (IVI .NE. 0) GO TO 20020 01990920 |
| IF (.NOT. AVB) GO TO 20020 02000920 |
| IF (.NOT. BVB) GO TO 20020 02010920 |
| IF (JVI .NE. IMVI) GO TO 20020 02020920 |
| IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020 02030920 |
| IF (C10VK.NE. 'YES') GO TO 20020 02040920 |
| IF (E11VK .NE. 'UNFORMATTED') GO TO 20020 02050920 |
| IF (G10VK .NE. 'YES' ) GO TO 20020 02060920 |
| WRITE (NUVI, 80002) IVTNUM 02070920 |
| IVPASS = IVPASS + 1 02080920 |
| GO TO 0021 02090920 |
| 20024 CONTINUE 02100920 |
| WRITE (NUVI, 20025) IVTNUM 02110920 |
| 20025 FORMAT (" ",2X,I3,4X," FAIL",12X, 02120920 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 02130920 |
| GO TO 20026 02140920 |
| 20020 CONTINUE 02150920 |
| WRITE (NUVI, 20011) IVTNUM 02160920 |
| 20021 FORMAT(" ",2X,I3,4X," FAIL",12X, 02170920 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 02180920 |
| 20026 IVFAIL = IVFAIL + 1 02190920 |
| WRITE (NUVI, 20022) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02200920 |
| 1 G10VK 02210920 |
| 20022 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1, 02220920 |
| 1 " ,OPENED=",L1,", NUMBER=",I4,","/ 02230920 |
| 2 " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 02240920 |
| 3 A11,","/" ",26X,"UNFORMATTED=" ,A3) 02250920 |
| WRITE (NUVI, 20023) IMVI 02260920 |
| 20023 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, EXIST=T, " , 02270920 |
| 1 "OPENED=T, NUMBER=" ,I4,","/ 02280920 |
| 2 " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 02290920 |
| 3 "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" ) 02300920 |
| 0021 CONTINUE 02310920 |
| C***** 02320920 |
| C***** REWIND AND READ FILE 02330920 |
| REWIND IMVI 02340920 |
| READ(IMVI) JVI 02350920 |
| REWIND IMVI 02360920 |
| C***** 02370920 |
| CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02380920 |
| IVTNUM = 3 02390920 |
| INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 02400920 |
| 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 02410920 |
| 2 UNFORMATTED=G10VK, ERR=20034, IOSTAT=IVI) 02420920 |
| C***** 02430920 |
| IF (IVI .NE. 0) GO TO 20030 02440920 |
| IF (.NOT. AVB) GO TO 20030 02450920 |
| IF (.NOT. BVB) GO TO 20030 02460920 |
| IF (JVI .NE. IMVI) GO TO 20030 02470920 |
| IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030 02480920 |
| IF (C10VK .NE. 'YES') GO TO 20030 02490920 |
| IF (E11VK .NE. 'UNFORMATTED') GO TO 20030 02500920 |
| IF (G10VK .NE. 'YES' ) GO TO 20030 02510920 |
| WRITE (NUVI, 80002) IVTNUM 02520920 |
| IVPASS = IVPASS + 1 02530920 |
| GO TO 0031 02540920 |
| 20034 CONTINUE 02550920 |
| WRITE (NUVI, 20035) IVTNUM 02560920 |
| 20035 FORMAT (" ",2X,I3,4X," FAIL",12X, 02570920 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 02580920 |
| GO TO 20036 02590920 |
| 20030 CONTINUE 02600920 |
| WRITE (NUVI, 20031) IVTNUM 02610920 |
| 20031 FORMAT(" ",2X,I3,4X," FAIL",12X, 02620920 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 02630920 |
| 20036 IVFAIL = IVFAIL + 1 02640920 |
| WRITE (NUVI, 20032) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02650920 |
| 1 G10VK 02660920 |
| 20032 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1, 02670920 |
| 1 " ,OPENED=",L1,", NUMBER=",I4,","/ 02680920 |
| 2 " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 02690920 |
| 3 A11,","/" ",26X,"UNFORMATTED=" ,A3) 02700920 |
| WRITE (NUVI, 20033) IMVI 02710920 |
| 20033 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, EXIST=T, " , 02720920 |
| 1 "OPENED=T, NUMBER=" ,I4,","/ 02730920 |
| 2 " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 02740920 |
| 3 "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" ) 02750920 |
| 0031 CONTINUE 02760920 |
| C***** 02770920 |
| CLOSE(UNIT=IMVI, STATUS='DELETE') 02780920 |
| C***** 02790920 |
| CBB** ********************** BBCSUM0 **********************************02800920 |
| C**** WRITE OUT TEST SUMMARY 02810920 |
| C**** 02820920 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02830920 |
| WRITE (I02, 90004) 02840920 |
| WRITE (I02, 90014) 02850920 |
| WRITE (I02, 90004) 02860920 |
| WRITE (I02, 90020) IVPASS 02870920 |
| WRITE (I02, 90022) IVFAIL 02880920 |
| WRITE (I02, 90024) IVDELE 02890920 |
| WRITE (I02, 90026) IVINSP 02900920 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 02910920 |
| CBE** ********************** BBCSUM0 **********************************02920920 |
| CBB** ********************** BBCFOOT0 **********************************02930920 |
| C**** WRITE OUT REPORT FOOTINGS 02940920 |
| C**** 02950920 |
| WRITE (I02,90016) ZPROG, ZPROG 02960920 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02970920 |
| WRITE (I02,90019) 02980920 |
| CBE** ********************** BBCFOOT0 **********************************02990920 |
| CBB** ********************** BBCFMT0A **********************************03000920 |
| C**** FORMATS FOR TEST DETAIL LINES 03010920 |
| C**** 03020920 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03030920 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03040920 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03050920 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03060920 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03070920 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 03080920 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03090920 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03100920 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03110920 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 03120920 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03130920 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03140920 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03150920 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03160920 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03170920 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03180920 |
| 80050 FORMAT (" ",48X,A31) 03190920 |
| CBE** ********************** BBCFMT0A **********************************03200920 |
| CBB** ********************** BBCFMT0B **********************************03210920 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 03220920 |
| C**** 03230920 |
| 90002 FORMAT ("1") 03240920 |
| 90004 FORMAT (" ") 03250920 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03260920 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03270920 |
| 90008 FORMAT (" ",21X,A13,A17) 03280920 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 03290920 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 03300920 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 03310920 |
| 1 7X,"REMARKS",24X) 03320920 |
| 90014 FORMAT (" ","----------------------------------------------" , 03330920 |
| 1 "---------------------------------" ) 03340920 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 03350920 |
| C**** 03360920 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03370920 |
| C**** 03380920 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 03390920 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 03400920 |
| 1 A13) 03410920 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 03420920 |
| C**** 03430920 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 03440920 |
| C**** 03450920 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03460920 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03470920 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03480920 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03490920 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03500920 |
| CBE** ********************** BBCFMT0B **********************************03510920 |
| C***** 03520920 |
| C***** END OF TEST SEGMENT 439 03530920 |
| STOP 03540920 |
| END 03550920 |
