| PROGRAM FM921 |
| |
| C***********************************************************************00010921 |
| C***** FORTRAN 77 00020921 |
| C***** FM921 00030921 |
| C***** INQF4 - (441) 00040921 |
| C***** 00050921 |
| C***********************************************************************00060921 |
| C***** GENERAL PURPOSE ANS REF 00070921 |
| C***** TEST INQUIRE BY FILE ON DIRECT, UNFORMATTED FILE 12.10.3 00080921 |
| C***** 00090921 |
| C***** THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100921 |
| C***** FILE THAT IS CONNECTED FOR DIRECT, UNFORMATTED ACCESS 00110921 |
| C***** (ANS REF. 12.2.4.2 AND 12.9.5.1) 00120921 |
| C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130921 |
| C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140921 |
| C***** THIS SEGMENT TESTS THAT AN INQUIRE IS PERFORMED CORRECTLY 00150921 |
| C***** BEFORE READING OR WRITING TO THE FILE, AFTER WRITING TO 00160921 |
| C***** THE FILE, AND AFTER READING FROM THE FILE. 00170921 |
| C***** 00180921 |
| C***** NOTE: 00190921 |
| C***** AN INQUIRE STATEMENT IS NEEDED TO TEST THE READ AND 00200921 |
| C***** WRITE OF MORE THAN A SINGLE RECORD AT A TIME, IN ORDER TO 00210921 |
| C***** DETERMINE THAT THE RECORD NUMBER IS ADVANCED THE CORRECT 00220921 |
| C***** NUMBER (ONE MORE THAN THE RECORD NUMBER LAST READ OR WRITTEN).00230921 |
| C***** THIS TEST WILL BE PERFORMED IN THE SEGMENTS WHICH TEST 00240921 |
| C***** DIRECT ACCESS FILES - DIRAF3 (412). 00250921 |
| C***********************************************************************00260921 |
| CBB** ********************** BBCCOMNT **********************************00270921 |
| C**** 00280921 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00290921 |
| C**** VERSION 2.1 00300921 |
| C**** 00310921 |
| C**** 00320921 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00330921 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00340921 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00350921 |
| C**** BUILDING 225 RM A266 00360921 |
| C**** GAITHERSBURG, MD 20899 00370921 |
| C**** 00380921 |
| C**** 00390921 |
| C**** 00400921 |
| CBE** ********************** BBCCOMNT **********************************00410921 |
| C***** 00420921 |
| LOGICAL AVB, BVB 00430921 |
| CHARACTER*10 B10VK, D10VK, E11VK*11, G10VK 00440921 |
| C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00450921 |
| CX20 REPLACED BY FEXEC X-20 CONTROL CARD. X-20 IS FOR REPLACING 00460921 |
| CHARACTER*15 CDIR, CSEQ 00470921 |
| C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-100 00480921 |
| C (PROGRAM VARIABLE CDIR) IF NOT VALID FOR THE PROCESSOR. 00490921 |
| CBB** ********************** BBCINITA **********************************00500921 |
| C**** SPECIFICATION STATEMENTS 00510921 |
| C**** 00520921 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00530921 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00540921 |
| CBE** ********************** BBCINITA **********************************00550921 |
| CBB** ********************** BBCINITB **********************************00560921 |
| C**** INITIALIZE SECTION 00570921 |
| DATA ZVERS, ZVERSD, ZDATE 00580921 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00590921 |
| DATA ZCOMPL, ZNAME, ZTAPE 00600921 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00610921 |
| DATA ZPROJ, ZTAPED, ZPROG 00620921 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00630921 |
| DATA REMRKS /' '/ 00640921 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00650921 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00660921 |
| C**** 00670921 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00680921 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00690921 |
| CZ03 ZPROG = 'PROGRAM NAME' 00700921 |
| CZ04 ZDATE = 'DATE OF TEST' 00710921 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00720921 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00730921 |
| CZ07 ZNAME = 'NAME OF USER' 00740921 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00750921 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00760921 |
| C 00770921 |
| IVPASS = 0 00780921 |
| IVFAIL = 0 00790921 |
| IVDELE = 0 00800921 |
| IVINSP = 0 00810921 |
| IVTOTL = 0 00820921 |
| IVTOTN = 0 00830921 |
| ICZERO = 0 00840921 |
| C 00850921 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00860921 |
| I01 = 05 00870921 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00880921 |
| I02 = 06 00890921 |
| C 00900921 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00910921 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00920921 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00930921 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00940921 |
| C 00950921 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00960921 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00970921 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00980921 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00990921 |
| C 01000921 |
| CBE** ********************** BBCINITB **********************************01010921 |
| C***** 01020921 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 01030921 |
| C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 01040921 |
| C***** DIRECT, UNFORMATTED FILE. 01050921 |
| C***** 01060921 |
| C I10 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 01070921 |
| I10 = 945 01080921 |
| CX100 REPLACED BY FEXEC X-100 CONTROL CARD (DIR. FILE UNIT NUMBER). 01090921 |
| C SPECIFYING I10 = NN OVERRIDES THE DEFAULT I10 = 24. 01100921 |
| C***** 01110921 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01120921 |
| C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 01130921 |
| C***** UNFORMATTED FILE. 01140921 |
| C***** 01150921 |
| C CDIR CONTAINS THE FILE NAME FOR UNIT I10. 01160921 |
| CDIR = ' DIRFILE921' 01170921 |
| C 01180921 |
| CX201 REPLACED BY FEXEC X-201 CONTROL CARD. CX201 IS FOR SYSTEMS 01190921 |
| C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01200921 |
| C X-100 THAN THE DEFAULT CDIR = ' DIRFILE'. 01210921 |
| C***** 01220921 |
| C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 01230921 |
| C***** NOT A VALID RECORD LENGTH. 01240921 |
| MVI = 40 01250921 |
| C***** 01260921 |
| NUVI = I02 01270921 |
| IOVI = I10 01280921 |
| ZPROG = 'FM921' 01290921 |
| IVTOTL = 3 01300921 |
| CBB** ********************** BBCHED0A **********************************01310921 |
| C**** 01320921 |
| C**** WRITE REPORT TITLE 01330921 |
| C**** 01340921 |
| WRITE (I02, 90002) 01350921 |
| WRITE (I02, 90006) 01360921 |
| WRITE (I02, 90007) 01370921 |
| WRITE (I02, 90008) ZVERS, ZVERSD 01380921 |
| WRITE (I02, 90009) ZPROG, ZPROG 01390921 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 01400921 |
| CBE** ********************** BBCHED0A **********************************01410921 |
| C***** 01420921 |
| WRITE(NUVI,44100) 01430921 |
| 44100 FORMAT(" ", / " INQF4 - (441) INQUIRE BY FILE" // 01440921 |
| 1 " DIRECT ACCESS UNFORMATTED FILE" // 01450921 |
| 2 " ANS REF. - 12.10.3" ) 01460921 |
| CBB** ********************** BBCHED0B **********************************01470921 |
| C**** WRITE DETAIL REPORT HEADERS 01480921 |
| C**** 01490921 |
| WRITE (I02,90004) 01500921 |
| WRITE (I02,90004) 01510921 |
| WRITE (I02,90013) 01520921 |
| WRITE (I02,90014) 01530921 |
| WRITE (I02,90015) IVTOTL 01540921 |
| CBE** ********************** BBCHED0B **********************************01550921 |
| C***** 01560921 |
| C***** OPEN FILE 01570921 |
| OPEN(FILE=CDIR, UNIT=IOVI, ACCESS='DIRECT', RECL=MVI, 01580921 |
| 1 FORM='UNFORMATTED') 01590921 |
| C***** 01600921 |
| CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01610921 |
| IVTNUM = 1 01620921 |
| INQUIRE(FILE=CDIR, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01630921 |
| 1 ACCESS=B10VK, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 01640921 |
| 2 FORM=E11VK, UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01650921 |
| C***** 01660921 |
| IF (IVI .NE. 0) GO TO 20010 01670921 |
| IF (.NOT. AVB) GO TO 20010 01680921 |
| IF (.NOT. BVB) GO TO 20010 01690921 |
| IF (JVI .NE. IOVI) GO TO 20010 01700921 |
| IF (B10VK .NE. 'DIRECT') GO TO 20010 01710921 |
| IF (D10VK .NE. 'YES') GO TO 20010 01720921 |
| IF (KVI .NE. MVI) GO TO 20010 01730921 |
| IF (LVI .NE. 1) GO TO 20010 01740921 |
| IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01750921 |
| IF (G10VK .NE. 'YES' ) GO TO 20010 01760921 |
| WRITE (NUVI, 80002) IVTNUM 01770921 |
| IVPASS = IVPASS + 1 01780921 |
| GO TO 0011 01790921 |
| 20014 CONTINUE 01800921 |
| WRITE (NUVI, 20015) IVTNUM 01810921 |
| 20015 FORMAT (" ",2X,I3,4X," FAIL",12X, 01820921 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 01830921 |
| GO TO 20016 01840921 |
| 20010 CONTINUE 01850921 |
| WRITE (NUVI, 20011) IVTNUM 01860921 |
| 20011 FORMAT(" ",2X,I3,4X," FAIL",12X, 01870921 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 01880921 |
| 20016 IVFAIL = IVFAIL + 1 01890921 |
| WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,D10VK,KVI, 01900921 |
| 1 LVI,E11VK,G10VK 01910921 |
| 20012 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1, 01920921 |
| 1 " ,OPENED=",L1,", NUMBER=",I4,","/ 01930921 |
| 2 " ",26X,"ACCESS=",A6,", DIRECT=",A3,", RECL=", 01940921 |
| 3 I4,","/" ",26X,"NEXTREC=",I4,", FORM=", 01950921 |
| 4 A11,","/" ",26X,"UNFORMATTED=" ,A3) 01960921 |
| WRITE (NUVI, 20013) IOVI,MVI 01970921 |
| 20013 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, EXIST=T, " , 01980921 |
| 1 "OPENED=T, NUMBER=" ,I4,","/ 01990921 |
| 2 " ",26X,"ACCESS=DIRECT, DIRECT=YES, RECL=" , 02000921 |
| 3 I4,","/" ",26X,"NEXTREC= 1, FORM=UNFORMATTED," / 02010921 |
| 4 " ",26X,"UNFORMATTED=YES" ) 02020921 |
| 0011 CONTINUE 02030921 |
| C***** 02040921 |
| C***** WRITE A RECORD TO FILE 02050921 |
| 44103 WRITE(IOVI, REC=1) JVI 02060921 |
| C***** 02070921 |
| CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 02080921 |
| IVTNUM = 2 02090921 |
| C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02100921 |
| C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02110921 |
| INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02120921 |
| 1 ERR=20024, IOSTAT=IVI) 02130921 |
| C***** 02140921 |
| IF (IVI .NE. 0) GO TO 20020 02150921 |
| IF (D10VK .NE. 'YES') GO TO 20020 02160921 |
| IF (KVI .NE. MVI) GO TO 20020 02170921 |
| IF (LVI .NE. 2) GO TO 20020 02180921 |
| WRITE (NUVI, 80002) IVTNUM 02190921 |
| IVPASS = IVPASS + 1 02200921 |
| GO TO 0021 02210921 |
| 20024 CONTINUE 02220921 |
| WRITE (NUVI, 20025) IVTNUM 02230921 |
| 20025 FORMAT (" ",2X,I3,4X," FAIL",12X, 02240921 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 02250921 |
| GO TO 20026 02260921 |
| 20020 CONTINUE 02270921 |
| WRITE (NUVI, 20021) IVTNUM 02280921 |
| 20021 FORMAT(" ",2X,I3,4X," FAIL",12X, 02290921 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 02300921 |
| 20026 IVFAIL = IVFAIL + 1 02310921 |
| WRITE (NUVI, 20022) IVI,D10VK,KVI,LVI 02320921 |
| 20022 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", DIRECT=",A3, 02330921 |
| 1 " ,RECL=",I4,", NEXTREC=" ,I4) 02340921 |
| WRITE (NUVI, 20023) MVI 02350921 |
| 20023 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, DIRECT=YES" , 02360921 |
| 1 " ,RECL=",I4,", NEXTREC= 2" ) 02370921 |
| 0021 CONTINUE 02380921 |
| C***** 02390921 |
| C***** READ A RECORD FROM FILE 02400921 |
| 44106 READ(IOVI, REC=1) JVI 02410921 |
| C***** 02420921 |
| CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02430921 |
| IVTNUM = 3 02440921 |
| C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02450921 |
| C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02460921 |
| INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02470921 |
| 1 ERR=20034, IOSTAT=IVI) 02480921 |
| C***** 02490921 |
| IF (IVI .NE. 0) GO TO 20030 02500921 |
| IF (D10VK .NE. 'YES') GO TO 20030 02510921 |
| IF (KVI .NE. MVI) GO TO 20030 02520921 |
| IF (LVI .NE. 2) GO TO 20030 02530921 |
| WRITE (NUVI, 80002) IVTNUM 02540921 |
| IVPASS = IVPASS + 1 02550921 |
| GO TO 0031 02560921 |
| 20034 CONTINUE 02570921 |
| WRITE (NUVI, 20035) IVTNUM 02580921 |
| 20035 FORMAT (" ",2X,I3,4X," FAIL",12X, 02590921 |
| 1 "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /) 02600921 |
| GO TO 20036 02610921 |
| 20030 CONTINUE 02620921 |
| WRITE (NUVI, 20031) IVTNUM 02630921 |
| 20031 FORMAT(" ",2X,I3,4X," FAIL",12X, 02640921 |
| 1 "ERROR IN AN INQUIRE SPECIFIER" /) 02650921 |
| 20036 IVFAIL = IVFAIL + 1 02660921 |
| WRITE (NUVI, 20032) IVI,D10VK,KVI,LVI 02670921 |
| 20032 FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", DIRECT=",A3, 02680921 |
| 1 " ,RECL=",I4,", NEXTREC=" ,I4) 02690921 |
| WRITE (NUVI, 20033) MVI 02700921 |
| 20033 FORMAT (" ",16X,"CORRECT: " ,"IOSTAT=0, DIRECT=YES" , 02710921 |
| 1 " ,RECL=",I4,", NEXTREC= 2" ) 02720921 |
| 0031 CONTINUE 02730921 |
| C***** 02740921 |
| CLOSE(UNIT=IOVI, STATUS='DELETE') 02750921 |
| C***** 02760921 |
| CBB** ********************** BBCSUM0 **********************************02770921 |
| C**** WRITE OUT TEST SUMMARY 02780921 |
| C**** 02790921 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02800921 |
| WRITE (I02, 90004) 02810921 |
| WRITE (I02, 90014) 02820921 |
| WRITE (I02, 90004) 02830921 |
| WRITE (I02, 90020) IVPASS 02840921 |
| WRITE (I02, 90022) IVFAIL 02850921 |
| WRITE (I02, 90024) IVDELE 02860921 |
| WRITE (I02, 90026) IVINSP 02870921 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 02880921 |
| CBE** ********************** BBCSUM0 **********************************02890921 |
| CBB** ********************** BBCFOOT0 **********************************02900921 |
| C**** WRITE OUT REPORT FOOTINGS 02910921 |
| C**** 02920921 |
| WRITE (I02,90016) ZPROG, ZPROG 02930921 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02940921 |
| WRITE (I02,90019) 02950921 |
| CBE** ********************** BBCFOOT0 **********************************02960921 |
| CBB** ********************** BBCFMT0A **********************************02970921 |
| C**** FORMATS FOR TEST DETAIL LINES 02980921 |
| C**** 02990921 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03000921 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03010921 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03020921 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03030921 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03040921 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 03050921 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03060921 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03070921 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03080921 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 03090921 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03100921 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03110921 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03120921 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03130921 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03140921 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03150921 |
| 80050 FORMAT (" ",48X,A31) 03160921 |
| CBE** ********************** BBCFMT0A **********************************03170921 |
| CBB** ********************** BBCFMT0B **********************************03180921 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 03190921 |
| C**** 03200921 |
| 90002 FORMAT ("1") 03210921 |
| 90004 FORMAT (" ") 03220921 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03230921 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03240921 |
| 90008 FORMAT (" ",21X,A13,A17) 03250921 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 03260921 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 03270921 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 03280921 |
| 1 7X,"REMARKS",24X) 03290921 |
| 90014 FORMAT (" ","----------------------------------------------" , 03300921 |
| 1 "---------------------------------" ) 03310921 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 03320921 |
| C**** 03330921 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03340921 |
| C**** 03350921 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 03360921 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 03370921 |
| 1 A13) 03380921 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 03390921 |
| C**** 03400921 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 03410921 |
| C**** 03420921 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03430921 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03440921 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03450921 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03460921 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03470921 |
| CBE** ********************** BBCFMT0B **********************************03480921 |
| C***** 03490921 |
| C***** END OF TEST SEGMENT 441 03500921 |
| STOP 03510921 |
| END 03520921 |