![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM920.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 FM920.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***********************************************************************00010920 ! 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 00020920 ! 6: C***** FM920 00030920 ! 7: C***** INQF2 - (439) 00040920 ! 8: C***** 00050920 ! 9: C***********************************************************************00060920 ! 10: C***** GENERAL PURPOSE ANS REF 00070920 ! 11: C***** TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080920 ! 12: C***** 00090920 ! 13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100920 ! 14: C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110920 ! 15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120920 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130920 ! 17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140920 ! 18: C***** THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150920 ! 19: C***** BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160920 ! 20: C***** AND AFTER READING FROM A FILE. 00170920 ! 21: C***********************************************************************00180920 ! 22: C***** 00190920 ! 23: CBB** ********************** BBCCOMNT **********************************00200920 ! 24: C**** 00210920 ! 25: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00220920 ! 26: C**** VERSION 2.0 00230920 ! 27: C**** 00240920 ! 28: C**** 00250920 ! 29: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00260920 ! 30: C**** GENERAL SERVICES ADMINISTRATION 00270920 ! 31: C**** FEDERAL SOFTWARE TESTING CENTER 00280920 ! 32: C**** 5203 LEESBURG PIKE, SUITE 1100 00290920 ! 33: C**** FALLS CHURCH, VA. 22041 00300920 ! 34: C**** 00310920 ! 35: C**** (703) 756-6153 00320920 ! 36: C**** 00330920 ! 37: CBE** ********************** BBCCOMNT **********************************00340920 ! 38: C***** 00350920 ! 39: LOGICAL AVB, BVB 00360920 ! 40: CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK 00370920 ! 41: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00380920 ! 42: CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00390920 ! 43: CHARACTER*15 CSEQ 00400920 ! 44: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-050 00410920 ! 45: C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00420920 ! 46: C***** 00430920 ! 47: CBB** ********************** BBCINITA **********************************00440920 ! 48: C**** SPECIFICATION STATEMENTS 00450920 ! 49: C**** 00460920 ! 50: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00470920 ! 51: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00480920 ! 52: CBE** ********************** BBCINITA **********************************00490920 ! 53: CBB** ********************** BBCINITB **********************************00500920 ! 54: C**** INITIALIZE SECTION 00510920 ! 55: DATA ZVERS, ZVERSD, ZDATE 00520920 ! 56: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00530920 ! 57: DATA ZCOMPL, ZNAME, ZTAPE 00540920 ! 58: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00550920 ! 59: DATA ZPROJ, ZTAPED, ZPROG 00560920 ! 60: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00570920 ! 61: DATA REMRKS /' '/ 00580920 ! 62: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00590920 ! 63: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00600920 ! 64: C**** 00610920 ! 65: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00620920 ! 66: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00630920 ! 67: CZ03 ZPROG = 'PROGRAM NAME' 00640920 ! 68: ZDATE = '07-Nov-85 ' *RP ! 69: ZCOMPL = 'CCI 5.2 ' *RP ! 70: ZPROJ = 'TC-85- -410' *RP ! 71: ZNAME = ' ' *RP ! 72: ZTAPE = ' ' *RP ! 73: ZTAPED = '850703 ' *RP ! 74: C 00710920 ! 75: IVPASS = 0 00720920 ! 76: IVFAIL = 0 00730920 ! 77: IVDELE = 0 00740920 ! 78: IVINSP = 0 00750920 ! 79: IVTOTL = 0 00760920 ! 80: IVTOTN = 0 00770920 ! 81: ICZERO = 0 00780920 ! 82: C 00790920 ! 83: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00800920 ! 84: I01 = 05 00810920 ! 85: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00820920 ! 86: I02 = 06 00830920 ! 87: C 00840920 ! 88: I01 = 5 00850920 ! 89: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00860920 ! 90: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00870920 ! 91: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00880920 ! 92: C 00890920 ! 93: I02 = 6 00900920 ! 94: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00910920 ! 95: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00920920 ! 96: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00930920 ! 97: C 00940920 ! 98: CBE** ********************** BBCINITB **********************************00950920 ! 99: C***** 00960920 ! 100: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00970920 ! 101: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00980920 ! 102: C***** SEQUENTIAL, UNFORMATTED FILE. 00990920 ! 103: C***** 01000920 ! 104: I05 = 14 01010920 ! 105: OPEN(UNIT=I05,ACCESS='SEQUENTIAL',FORM='UNFORMATTED') 01020920 ! 106: C X-050 I05 = NN WILL OVERRIDE DEFAULT I05 = 14 01030920 ! 107: C 01040920 ! 108: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050920 ! 109: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060920 ! 110: C***** UNFORMATTED FILE. 01070920 ! 111: C***** 01080920 ! 112: C CSEQ CONTAINS THE FILE NAME FOR UNIT I05. 01090920 ! 113: CSEQ = ' SEQFILE' 01100920 ! 114: C 01110920 ! 115: CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120920 ! 116: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130920 ! 117: C X-050 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140920 ! 118: C***** 01150920 ! 119: NUVI = I02 01160920 ! 120: IMVI = I05 01170920 ! 121: ZPROG = 'FM920' 01180920 ! 122: IVTOTL = 3 01190920 ! 123: CBB** ********************** BBCHED0A **********************************01200920 ! 124: C**** 01210920 ! 125: C**** WRITE REPORT TITLE 01220920 ! 126: C**** 01230920 ! 127: WRITE (I02, 90002) 01240920 ! 128: WRITE (I02, 90006) 01250920 ! 129: WRITE (I02, 90007) 01260920 ! 130: WRITE (I02, 90008) ZVERS, ZVERSD 01270920 ! 131: WRITE (I02, 90009) ZPROG, ZPROG 01280920 ! 132: WRITE (I02, 90010) ZDATE, ZCOMPL 01290920 ! 133: CBE** ********************** BBCHED0A **********************************01300920 ! 134: C***** 01310920 ! 135: WRITE(NUVI,43900) 01320920 ! 136: 43900 FORMAT(1H , / 30H INQF2 - (439) INQUIRE BY FILE// 01330920 ! 137: 1 47H SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN// 01340920 ! 138: 2 19H ANS REF. - 12.10.3) 01350920 ! 139: CBB** ********************** BBCHED0B **********************************01360920 ! 140: C**** WRITE DETAIL REPORT HEADERS 01370920 ! 141: C**** 01380920 ! 142: WRITE (I02,90004) 01390920 ! 143: WRITE (I02,90004) 01400920 ! 144: WRITE (I02,90013) 01410920 ! 145: WRITE (I02,90014) 01420920 ! 146: WRITE (I02,90015) IVTOTL 01430920 ! 147: CBE** ********************** BBCHED0B **********************************01440920 ! 148: C***** 01450920 ! 149: C***** OPEN FILE 01460920 ! 150: OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470920 ! 151: 1 FORM='UNFORMATTED') 01480920 ! 152: C***** 01490920 ! 153: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500920 ! 154: IVTNUM = 1 01510920 ! 155: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520920 ! 156: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530920 ! 157: 2 UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01540920 ! 158: C***** 01550920 ! 159: IF (IVI .NE. 0) GO TO 20010 01560920 ! 160: IF (.NOT. AVB) GO TO 20010 01570920 ! 161: IF (.NOT. BVB) GO TO 20010 01580920 ! 162: IF (JVI .NE. IMVI) GO TO 20010 01590920 ! 163: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600920 ! 164: IF (C10VK. NE. 'YES') GO TO 20010 01610920 ! 165: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01620920 ! 166: IF (G10VK .NE. 'YES' ) GO TO 20010 01630920 ! 167: WRITE (NUVI, 80002) IVTNUM 01640920 ! 168: IVPASS = IVPASS + 1 01650920 ! 169: GO TO 0011 01660920 ! 170: 20014 CONTINUE 01670920 ! 171: WRITE (NUVI, 20015) IVTNUM 01680920 ! 172: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01690920 ! 173: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01700920 ! 174: GO TO 20016 01710920 ! 175: 20010 CONTINUE 01720920 ! 176: WRITE (NUVI, 20011) IVTNUM 01730920 ! 177: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01740920 ! 178: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01750920 ! 179: 20016 IVFAIL = IVFAIL + 1 01760920 ! 180: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01770920 ! 181: 1 G10VK 01780920 ! 182: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01790920 ! 183: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01800920 ! 184: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01810920 ! 185: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01820920 ! 186: WRITE (NUVI, 20013) IMVI 01830920 ! 187: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01840920 ! 188: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01850920 ! 189: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01860920 ! 190: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 01870920 ! 191: 0011 CONTINUE 01880920 ! 192: C***** 01890920 ! 193: C***** WRITE TO FILE 01900920 ! 194: WRITE(IMVI) JVI 01910920 ! 195: C***** 01920920 ! 196: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 01930920 ! 197: IVTNUM = 2 01940920 ! 198: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01950920 ! 199: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01960920 ! 200: 2 UNFORMATTED=G10VK, ERR=20024, IOSTAT=IVI) 01970920 ! 201: C***** 01980920 ! 202: IF (IVI .NE. 0) GO TO 20020 01990920 ! 203: IF (.NOT. AVB) GO TO 20020 02000920 ! 204: IF (.NOT. BVB) GO TO 20020 02010920 ! 205: IF (JVI .NE. IMVI) GO TO 20020 02020920 ! 206: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020 02030920 ! 207: IF (C10VK.NE. 'YES') GO TO 20020 02040920 ! 208: IF (E11VK .NE. 'UNFORMATTED') GO TO 20020 02050920 ! 209: IF (G10VK .NE. 'YES' ) GO TO 20020 02060920 ! 210: WRITE (NUVI, 80002) IVTNUM 02070920 ! 211: IVPASS = IVPASS + 1 02080920 ! 212: GO TO 0021 02090920 ! 213: 20024 CONTINUE 02100920 ! 214: WRITE (NUVI, 20025) IVTNUM 02110920 ! 215: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02120920 ! 216: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02130920 ! 217: GO TO 20026 02140920 ! 218: 20020 CONTINUE 02150920 ! 219: WRITE (NUVI, 20011) IVTNUM 02160920 ! 220: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02170920 ! 221: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02180920 ! 222: 20026 IVFAIL = IVFAIL + 1 02190920 ! 223: WRITE (NUVI, 20022) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02200920 ! 224: 1 G10VK 02210920 ! 225: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02220920 ! 226: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02230920 ! 227: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02240920 ! 228: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02250920 ! 229: WRITE (NUVI, 20023) IMVI 02260920 ! 230: 20023 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02270920 ! 231: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02280920 ! 232: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02290920 ! 233: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02300920 ! 234: 0021 CONTINUE 02310920 ! 235: C***** 02320920 ! 236: C***** REWIND AND READ FILE 02330920 ! 237: REWIND IMVI 02340920 ! 238: READ(IMVI) JVI 02350920 ! 239: REWIND IMVI 02360920 ! 240: C***** 02370920 ! 241: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02380920 ! 242: IVTNUM = 3 02390920 ! 243: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 02400920 ! 244: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 02410920 ! 245: 2 UNFORMATTED=G10VK, ERR=20034, IOSTAT=IVI) 02420920 ! 246: C***** 02430920 ! 247: IF (IVI .NE. 0) GO TO 20030 02440920 ! 248: IF (.NOT. AVB) GO TO 20030 02450920 ! 249: IF (.NOT. BVB) GO TO 20030 02460920 ! 250: IF (JVI .NE. IMVI) GO TO 20030 02470920 ! 251: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030 02480920 ! 252: IF (C10VK .NE. 'YES') GO TO 20030 02490920 ! 253: IF (E11VK .NE. 'UNFORMATTED') GO TO 20030 02500920 ! 254: IF (G10VK .NE. 'YES' ) GO TO 20030 02510920 ! 255: WRITE (NUVI, 80002) IVTNUM 02520920 ! 256: IVPASS = IVPASS + 1 02530920 ! 257: GO TO 0031 02540920 ! 258: 20034 CONTINUE 02550920 ! 259: WRITE (NUVI, 20035) IVTNUM 02560920 ! 260: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02570920 ! 261: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02580920 ! 262: GO TO 20036 02590920 ! 263: 20030 CONTINUE 02600920 ! 264: WRITE (NUVI, 20031) IVTNUM 02610920 ! 265: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02620920 ! 266: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02630920 ! 267: 20036 IVFAIL = IVFAIL + 1 02640920 ! 268: WRITE (NUVI, 20032) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02650920 ! 269: 1 G10VK 02660920 ! 270: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02670920 ! 271: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02680920 ! 272: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02690920 ! 273: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02700920 ! 274: WRITE (NUVI, 20033) IMVI 02710920 ! 275: 20033 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02720920 ! 276: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02730920 ! 277: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02740920 ! 278: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02750920 ! 279: 0031 CONTINUE 02760920 ! 280: C***** 02770920 ! 281: CLOSE(UNIT=IMVI, STATUS='DELETE') 02780920 ! 282: C***** 02790920 ! 283: CBB** ********************** BBCSUM0 **********************************02800920 ! 284: C**** WRITE OUT TEST SUMMARY 02810920 ! 285: C**** 02820920 ! 286: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02830920 ! 287: WRITE (I02, 90004) 02840920 ! 288: WRITE (I02, 90014) 02850920 ! 289: WRITE (I02, 90004) 02860920 ! 290: WRITE (I02, 90020) IVPASS 02870920 ! 291: WRITE (I02, 90022) IVFAIL 02880920 ! 292: WRITE (I02, 90024) IVDELE 02890920 ! 293: WRITE (I02, 90026) IVINSP 02900920 ! 294: WRITE (I02, 90028) IVTOTN, IVTOTL 02910920 ! 295: CBE** ********************** BBCSUM0 **********************************02920920 ! 296: CBB** ********************** BBCFOOT0 **********************************02930920 ! 297: C**** WRITE OUT REPORT FOOTINGS 02940920 ! 298: C**** 02950920 ! 299: WRITE (I02,90016) ZPROG, ZPROG 02960920 ! 300: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02970920 ! 301: WRITE (I02,90019) 02980920 ! 302: CBE** ********************** BBCFOOT0 **********************************02990920 ! 303: CBB** ********************** BBCFMT0A **********************************03000920 ! 304: C**** FORMATS FOR TEST DETAIL LINES 03010920 ! 305: C**** 03020920 ! 306: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03030920 ! 307: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03040920 ! 308: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03050920 ! 309: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03060920 ! 310: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03070920 ! 311: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03080920 ! 312: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03090920 ! 313: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03100920 ! 314: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03110920 ! 315: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03120920 ! 316: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03130920 ! 317: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03140920 ! 318: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03150920 ! 319: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03160920 ! 320: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03170920 ! 321: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03180920 ! 322: 80050 FORMAT (1H ,48X,A31) 03190920 ! 323: CBE** ********************** BBCFMT0A **********************************03200920 ! 324: CBB** ********************** BBCFMT0B **********************************03210920 ! 325: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03220920 ! 326: C**** 03230920 ! 327: 90002 FORMAT (1H1) 03240920 ! 328: 90004 FORMAT (1H ) 03250920 ! 329: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03260920 ! 330: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03270920 ! 331: 90008 FORMAT (1H ,21X,A13,A17) 03280920 ! 332: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03290920 ! 333: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03300920 ! 334: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03310920 ! 335: 1 7X,7HREMARKS,24X) 03320920 ! 336: 90014 FORMAT (1H ,46H----------------------------------------------, 03330920 ! 337: 1 33H---------------------------------) 03340920 ! 338: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03350920 ! 339: C**** 03360920 ! 340: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03370920 ! 341: C**** 03380920 ! 342: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03390920 ! 343: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03400920 ! 344: 1 A13) 03410920 ! 345: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03420920 ! 346: C**** 03430920 ! 347: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03440920 ! 348: C**** 03450920 ! 349: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03460920 ! 350: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03470920 ! 351: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03480920 ! 352: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03490920 ! 353: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03500920 ! 354: CBE** ********************** BBCFMT0B **********************************03510920 ! 355: C***** 03520920 ! 356: C***** END OF TEST SEGMENT 439 03530920 ! 357: STOP 03540920 ! 358: END 03550920
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.