![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM921.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM921.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C***********************************************************************00010921 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C***** FORTRAN 77 00020921 ! 6: C***** FM921 00030921 ! 7: C***** INQF4 - (441) 00040921 ! 8: C***** 00050921 ! 9: C***********************************************************************00060921 ! 10: C***** GENERAL PURPOSE ANS REF 00070921 ! 11: C***** TEST INQUIRE BY FILE ON DIRECT, UNFORMATTED FILE 12.10.3 00080921 ! 12: C***** 00090921 ! 13: C***** THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100921 ! 14: C***** FILE THAT IS CONNECTED FOR DIRECT, UNFORMATTED ACCESS 00110921 ! 15: C***** (ANS REF. 12.2.4.2 AND 12.9.5.1) 00120921 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130921 ! 17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140921 ! 18: C***** THIS SEGMENT TESTS THAT AN INQUIRE IS PERFORMED CORRECTLY 00150921 ! 19: C***** BEFORE READING OR WRITING TO THE FILE, AFTER WRITING TO 00160921 ! 20: C***** THE FILE, AND AFTER READING FROM THE FILE. 00170921 ! 21: C***** 00180921 ! 22: C***** NOTE: 00190921 ! 23: C***** AN INQUIRE STATEMENT IS NEEDED TO TEST THE READ AND 00200921 ! 24: C***** WRITE OF MORE THAN A SINGLE RECORD AT A TIME, IN ORDER TO 00210921 ! 25: C***** DETERMINE THAT THE RECORD NUMBER IS ADVANCED THE CORRECT 00220921 ! 26: C***** NUMBER (ONE MORE THAN THE RECORD NUMBER LAST READ OR WRITTEN).00230921 ! 27: C***** THIS TEST WILL BE PERFORMED IN THE SEGMENTS WHICH TEST 00240921 ! 28: C***** DIRECT ACCESS FILES - DIRAF3 (412). 00250921 ! 29: C***********************************************************************00260921 ! 30: CBB** ********************** BBCCOMNT **********************************00270921 ! 31: C**** 00280921 ! 32: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00290921 ! 33: C**** VERSION 2.0 00300921 ! 34: C**** 00310921 ! 35: C**** 00320921 ! 36: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00330921 ! 37: C**** GENERAL SERVICES ADMINISTRATION 00340921 ! 38: C**** FEDERAL SOFTWARE TESTING CENTER 00350921 ! 39: C**** 5203 LEESBURG PIKE, SUITE 1100 00360921 ! 40: C**** FALLS CHURCH, VA. 22041 00370921 ! 41: C**** 00380921 ! 42: C**** (703) 756-6153 00390921 ! 43: C**** 00400921 ! 44: CBE** ********************** BBCCOMNT **********************************00410921 ! 45: C***** 00420921 ! 46: LOGICAL AVB, BVB 00430921 ! 47: CHARACTER*10 B10VK, D10VK, E11VK*11, G10VK 00440921 ! 48: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00450921 ! 49: CX20 REPLACED BY FEXEC X-20 CONTROL CARD. X-20 IS FOR REPLACING 00460921 ! 50: CHARACTER*15 CDIR, CSEQ 00470921 ! 51: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-100 00480921 ! 52: C (PROGRAM VARIABLE CDIR) IF NOT VALID FOR THE PROCESSOR. 00490921 ! 53: CBB** ********************** BBCINITA **********************************00500921 ! 54: C**** SPECIFICATION STATEMENTS 00510921 ! 55: C**** 00520921 ! 56: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00530921 ! 57: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00540921 ! 58: CBE** ********************** BBCINITA **********************************00550921 ! 59: CBB** ********************** BBCINITB **********************************00560921 ! 60: C**** INITIALIZE SECTION 00570921 ! 61: DATA ZVERS, ZVERSD, ZDATE 00580921 ! 62: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00590921 ! 63: DATA ZCOMPL, ZNAME, ZTAPE 00600921 ! 64: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00610921 ! 65: DATA ZPROJ, ZTAPED, ZPROG 00620921 ! 66: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00630921 ! 67: DATA REMRKS /' '/ 00640921 ! 68: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00650921 ! 69: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00660921 ! 70: C**** 00670921 ! 71: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00680921 ! 72: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00690921 ! 73: CZ03 ZPROG = 'PROGRAM NAME' 00700921 ! 74: ZDATE = '07-Nov-85 ' *RP ! 75: ZCOMPL = 'CCI 5.2 ' *RP ! 76: ZPROJ = 'TC-85- -410' *RP ! 77: ZNAME = ' ' *RP ! 78: ZTAPE = ' ' *RP ! 79: ZTAPED = '850703 ' *RP ! 80: C 00770921 ! 81: IVPASS = 0 00780921 ! 82: IVFAIL = 0 00790921 ! 83: IVDELE = 0 00800921 ! 84: IVINSP = 0 00810921 ! 85: IVTOTL = 0 00820921 ! 86: IVTOTN = 0 00830921 ! 87: ICZERO = 0 00840921 ! 88: C 00850921 ! 89: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00860921 ! 90: I01 = 05 00870921 ! 91: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00880921 ! 92: I02 = 06 00890921 ! 93: C 00900921 ! 94: I01 = 5 00910921 ! 95: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00920921 ! 96: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00930921 ! 97: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00940921 ! 98: C 00950921 ! 99: I02 = 6 00960921 ! 100: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00970921 ! 101: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00980921 ! 102: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00990921 ! 103: C 01000921 ! 104: CBE** ********************** BBCINITB **********************************01010921 ! 105: C***** 01020921 ! 106: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 01030921 ! 107: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 01040921 ! 108: C***** DIRECT, UNFORMATTED FILE. 01050921 ! 109: C***** 01060921 ! 110: C I10 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 01070921 ! 111: I10 = 24 01080921 ! 112: OPEN(UNIT=I10,ACCESS='DIRECT',FORM='UNFORMATTED',RECL=80) 01090921 ! 113: C SPECIFYING I10 = NN OVERRIDES THE DEFAULT I10 = 24. 01100921 ! 114: C***** 01110921 ! 115: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01120921 ! 116: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 01130921 ! 117: C***** UNFORMATTED FILE. 01140921 ! 118: C***** 01150921 ! 119: C CDIR CONTAINS THE FILE NAME FOR UNIT I10. 01160921 ! 120: CDIR = ' DIRFILE' 01170921 ! 121: C 01180921 ! 122: CX201 REPLACED BY FEXEC X-201 CONTROL CARD. CX201 IS FOR SYSTEMS 01190921 ! 123: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01200921 ! 124: C X-100 THAN THE DEFAULT CDIR = ' DIRFILE'. 01210921 ! 125: C***** 01220921 ! 126: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 01230921 ! 127: C***** NOT A VALID RECORD LENGTH. 01240921 ! 128: MVI = 40 01250921 ! 129: C***** 01260921 ! 130: NUVI = I02 01270921 ! 131: IOVI = I10 01280921 ! 132: ZPROG = 'FM921' 01290921 ! 133: IVTOTL = 3 01300921 ! 134: CBB** ********************** BBCHED0A **********************************01310921 ! 135: C**** 01320921 ! 136: C**** WRITE REPORT TITLE 01330921 ! 137: C**** 01340921 ! 138: WRITE (I02, 90002) 01350921 ! 139: WRITE (I02, 90006) 01360921 ! 140: WRITE (I02, 90007) 01370921 ! 141: WRITE (I02, 90008) ZVERS, ZVERSD 01380921 ! 142: WRITE (I02, 90009) ZPROG, ZPROG 01390921 ! 143: WRITE (I02, 90010) ZDATE, ZCOMPL 01400921 ! 144: CBE** ********************** BBCHED0A **********************************01410921 ! 145: C***** 01420921 ! 146: WRITE(NUVI,44100) 01430921 ! 147: 44100 FORMAT(1H , / 30H INQF4 - (441) INQUIRE BY FILE// 01440921 ! 148: 1 31H DIRECT ACCESS UNFORMATTED FILE// 01450921 ! 149: 2 19H ANS REF. - 12.10.3) 01460921 ! 150: CBB** ********************** BBCHED0B **********************************01470921 ! 151: C**** WRITE DETAIL REPORT HEADERS 01480921 ! 152: C**** 01490921 ! 153: WRITE (I02,90004) 01500921 ! 154: WRITE (I02,90004) 01510921 ! 155: WRITE (I02,90013) 01520921 ! 156: WRITE (I02,90014) 01530921 ! 157: WRITE (I02,90015) IVTOTL 01540921 ! 158: CBE** ********************** BBCHED0B **********************************01550921 ! 159: C***** 01560921 ! 160: C***** OPEN FILE 01570921 ! 161: OPEN(FILE=CDIR, UNIT=IOVI, ACCESS='DIRECT', RECL=MVI, 01580921 ! 162: 1 FORM='UNFORMATTED') 01590921 ! 163: C***** 01600921 ! 164: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01610921 ! 165: IVTNUM = 1 01620921 ! 166: INQUIRE(FILE=CDIR, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01630921 ! 167: 1 ACCESS=B10VK, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 01640921 ! 168: 2 FORM=E11VK, UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01650921 ! 169: C***** 01660921 ! 170: IF (IVI .NE. 0) GO TO 20010 01670921 ! 171: IF (.NOT. AVB) GO TO 20010 01680921 ! 172: IF (.NOT. BVB) GO TO 20010 01690921 ! 173: IF (JVI .NE. IOVI) GO TO 20010 01700921 ! 174: IF (B10VK .NE. 'DIRECT') GO TO 20010 01710921 ! 175: IF (D10VK .NE. 'YES') GO TO 20010 01720921 ! 176: IF (KVI .NE. MVI) GO TO 20010 01730921 ! 177: IF (LVI .NE. 1) GO TO 20010 01740921 ! 178: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01750921 ! 179: IF (G10VK .NE. 'YES' ) GO TO 20010 01760921 ! 180: WRITE (NUVI, 80002) IVTNUM 01770921 ! 181: IVPASS = IVPASS + 1 01780921 ! 182: GO TO 0011 01790921 ! 183: 20014 CONTINUE 01800921 ! 184: WRITE (NUVI, 20015) IVTNUM 01810921 ! 185: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01820921 ! 186: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01830921 ! 187: GO TO 20016 01840921 ! 188: 20010 CONTINUE 01850921 ! 189: WRITE (NUVI, 20011) IVTNUM 01860921 ! 190: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01870921 ! 191: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01880921 ! 192: 20016 IVFAIL = IVFAIL + 1 01890921 ! 193: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,D10VK,KVI, 01900921 ! 194: 1 LVI,E11VK,G10VK 01910921 ! 195: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01920921 ! 196: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01930921 ! 197: 2 1H ,26X,7HACCESS=,A6,9H, DIRECT=,A3,7H, RECL=, 01940921 ! 198: 3 I4,1H,/1H ,26X,8HNEXTREC=,I4,7H, FORM=, 01950921 ! 199: 4 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01960921 ! 200: WRITE (NUVI, 20013) IOVI,MVI 01970921 ! 201: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01980921 ! 202: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01990921 ! 203: 2 1H ,26X,32HACCESS=DIRECT, DIRECT=YES, RECL=, 02000921 ! 204: 3 I4,1H,/1H ,26X,31HNEXTREC= 1, FORM=UNFORMATTED,/ 02010921 ! 205: 4 1H ,26X,15HUNFORMATTED=YES) 02020921 ! 206: 0011 CONTINUE 02030921 ! 207: C***** 02040921 ! 208: C***** WRITE A RECORD TO FILE 02050921 ! 209: 44103 WRITE(IOVI, REC=1) JVI 02060921 ! 210: C***** 02070921 ! 211: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 02080921 ! 212: IVTNUM = 2 02090921 ! 213: C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02100921 ! 214: C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02110921 ! 215: INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02120921 ! 216: 1 ERR=20024, IOSTAT=IVI) 02130921 ! 217: C***** 02140921 ! 218: IF (IVI .NE. 0) GO TO 20020 02150921 ! 219: IF (D10VK .NE. 'YES') GO TO 20020 02160921 ! 220: IF (KVI .NE. MVI) GO TO 20020 02170921 ! 221: IF (LVI .NE. 2) GO TO 20020 02180921 ! 222: WRITE (NUVI, 80002) IVTNUM 02190921 ! 223: IVPASS = IVPASS + 1 02200921 ! 224: GO TO 0021 02210921 ! 225: 20024 CONTINUE 02220921 ! 226: WRITE (NUVI, 20025) IVTNUM 02230921 ! 227: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02240921 ! 228: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02250921 ! 229: GO TO 20026 02260921 ! 230: 20020 CONTINUE 02270921 ! 231: WRITE (NUVI, 20021) IVTNUM 02280921 ! 232: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02290921 ! 233: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02300921 ! 234: 20026 IVFAIL = IVFAIL + 1 02310921 ! 235: WRITE (NUVI, 20022) IVI,D10VK,KVI,LVI 02320921 ! 236: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,9H, DIRECT=,A3, 02330921 ! 237: 1 7H ,RECL=,I4,10H, NEXTREC=,I4) 02340921 ! 238: WRITE (NUVI, 20023) MVI 02350921 ! 239: 20023 FORMAT (1H ,16X,10HCORRECT: ,20HIOSTAT=0, DIRECT=YES, 02360921 ! 240: 1 7H ,RECL=,I4,14H, NEXTREC= 2) 02370921 ! 241: 0021 CONTINUE 02380921 ! 242: C***** 02390921 ! 243: C***** READ A RECORD FROM FILE 02400921 ! 244: 44106 READ(IOVI, REC=1) JVI 02410921 ! 245: C***** 02420921 ! 246: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02430921 ! 247: IVTNUM = 3 02440921 ! 248: C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02450921 ! 249: C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02460921 ! 250: INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02470921 ! 251: 1 ERR=20034, IOSTAT=IVI) 02480921 ! 252: C***** 02490921 ! 253: IF (IVI .NE. 0) GO TO 20030 02500921 ! 254: IF (D10VK .NE. 'YES') GO TO 20030 02510921 ! 255: IF (KVI .NE. MVI) GO TO 20030 02520921 ! 256: IF (LVI .NE. 2) GO TO 20030 02530921 ! 257: WRITE (NUVI, 80002) IVTNUM 02540921 ! 258: IVPASS = IVPASS + 1 02550921 ! 259: GO TO 0031 02560921 ! 260: 20034 CONTINUE 02570921 ! 261: WRITE (NUVI, 20035) IVTNUM 02580921 ! 262: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02590921 ! 263: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02600921 ! 264: GO TO 20036 02610921 ! 265: 20030 CONTINUE 02620921 ! 266: WRITE (NUVI, 20031) IVTNUM 02630921 ! 267: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02640921 ! 268: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02650921 ! 269: 20036 IVFAIL = IVFAIL + 1 02660921 ! 270: WRITE (NUVI, 20032) IVI,D10VK,KVI,LVI 02670921 ! 271: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,9H, DIRECT=,A3, 02680921 ! 272: 1 7H ,RECL=,I4,10H, NEXTREC=,I4) 02690921 ! 273: WRITE (NUVI, 20033) MVI 02700921 ! 274: 20033 FORMAT (1H ,16X,10HCORRECT: ,20HIOSTAT=0, DIRECT=YES, 02710921 ! 275: 1 7H ,RECL=,I4,14H, NEXTREC= 2) 02720921 ! 276: 0031 CONTINUE 02730921 ! 277: C***** 02740921 ! 278: CLOSE(UNIT=IOVI, STATUS='DELETE') 02750921 ! 279: C***** 02760921 ! 280: CBB** ********************** BBCSUM0 **********************************02770921 ! 281: C**** WRITE OUT TEST SUMMARY 02780921 ! 282: C**** 02790921 ! 283: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02800921 ! 284: WRITE (I02, 90004) 02810921 ! 285: WRITE (I02, 90014) 02820921 ! 286: WRITE (I02, 90004) 02830921 ! 287: WRITE (I02, 90020) IVPASS 02840921 ! 288: WRITE (I02, 90022) IVFAIL 02850921 ! 289: WRITE (I02, 90024) IVDELE 02860921 ! 290: WRITE (I02, 90026) IVINSP 02870921 ! 291: WRITE (I02, 90028) IVTOTN, IVTOTL 02880921 ! 292: CBE** ********************** BBCSUM0 **********************************02890921 ! 293: CBB** ********************** BBCFOOT0 **********************************02900921 ! 294: C**** WRITE OUT REPORT FOOTINGS 02910921 ! 295: C**** 02920921 ! 296: WRITE (I02,90016) ZPROG, ZPROG 02930921 ! 297: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02940921 ! 298: WRITE (I02,90019) 02950921 ! 299: CBE** ********************** BBCFOOT0 **********************************02960921 ! 300: CBB** ********************** BBCFMT0A **********************************02970921 ! 301: C**** FORMATS FOR TEST DETAIL LINES 02980921 ! 302: C**** 02990921 ! 303: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03000921 ! 304: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03010921 ! 305: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03020921 ! 306: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03030921 ! 307: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03040921 ! 308: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03050921 ! 309: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03060921 ! 310: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03070921 ! 311: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03080921 ! 312: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03090921 ! 313: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03100921 ! 314: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03110921 ! 315: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03120921 ! 316: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03130921 ! 317: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03140921 ! 318: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03150921 ! 319: 80050 FORMAT (1H ,48X,A31) 03160921 ! 320: CBE** ********************** BBCFMT0A **********************************03170921 ! 321: CBB** ********************** BBCFMT0B **********************************03180921 ! 322: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03190921 ! 323: C**** 03200921 ! 324: 90002 FORMAT (1H1) 03210921 ! 325: 90004 FORMAT (1H ) 03220921 ! 326: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03230921 ! 327: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03240921 ! 328: 90008 FORMAT (1H ,21X,A13,A17) 03250921 ! 329: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03260921 ! 330: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03270921 ! 331: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03280921 ! 332: 1 7X,7HREMARKS,24X) 03290921 ! 333: 90014 FORMAT (1H ,46H----------------------------------------------, 03300921 ! 334: 1 33H---------------------------------) 03310921 ! 335: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03320921 ! 336: C**** 03330921 ! 337: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03340921 ! 338: C**** 03350921 ! 339: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03360921 ! 340: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03370921 ! 341: 1 A13) 03380921 ! 342: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03390921 ! 343: C**** 03400921 ! 344: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03410921 ! 345: C**** 03420921 ! 346: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03430921 ! 347: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03440921 ! 348: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03450921 ! 349: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03460921 ! 350: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03470921 ! 351: CBE** ********************** BBCFMT0B **********************************03480921 ! 352: C***** 03490921 ! 353: C***** END OF TEST SEGMENT 441 03500921 ! 354: STOP 03510921 ! 355: END 03520921
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.