![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM360.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 FM360.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***********************************************************************00010360 ! 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 00020360 ! 6: C***** FM360 XDIM - (163) 00030360 ! 7: C***** 00040360 ! 8: C***********************************************************************00050360 ! 9: C***** GENERAL PURPOSE SUBSET REF00060360 ! 10: C***** TEST INTRINSIC FUNCTION DIM AND IDIM--POSITIVE 15.3 00070360 ! 11: C***** DIFFERENCE, WHICH IS DEFINED AS A1 - MIN(A1,A2) (TABLE 5)00080360 ! 12: C***** 00090360 ! 13: CBB** ********************** BBCCOMNT **********************************00100360 ! 14: C**** 00110360 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120360 ! 16: C**** VERSION 2.0 00130360 ! 17: C**** 00140360 ! 18: C**** 00150360 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160360 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170360 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180360 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190360 ! 23: C**** FALLS CHURCH, VA. 22041 00200360 ! 24: C**** 00210360 ! 25: C**** (703) 756-6153 00220360 ! 26: C**** 00230360 ! 27: CBE** ********************** BBCCOMNT **********************************00240360 ! 28: CBB** ********************** BBCINITA **********************************00250360 ! 29: C**** SPECIFICATION STATEMENTS 00260360 ! 30: C**** 00270360 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280360 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290360 ! 33: CBE** ********************** BBCINITA **********************************00300360 ! 34: CBB** ********************** BBCINITB **********************************00310360 ! 35: C**** INITIALIZE SECTION 00320360 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330360 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340360 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350360 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360360 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370360 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380360 ! 42: DATA REMRKS /' '/ 00390360 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400360 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410360 ! 45: C**** 00420360 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430360 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440360 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450360 ! 49: ZDATE = '07-Nov-85 ' *RP ! 50: ZCOMPL = 'CCI 5.2 ' *RP ! 51: ZPROJ = 'TC-85- -410' *RP ! 52: ZNAME = ' ' *RP ! 53: ZTAPE = ' ' *RP ! 54: ZTAPED = '850703 ' *RP ! 55: C 00520360 ! 56: IVPASS = 0 00530360 ! 57: IVFAIL = 0 00540360 ! 58: IVDELE = 0 00550360 ! 59: IVINSP = 0 00560360 ! 60: IVTOTL = 0 00570360 ! 61: IVTOTN = 0 00580360 ! 62: ICZERO = 0 00590360 ! 63: C 00600360 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610360 ! 65: I01 = 05 00620360 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630360 ! 67: I02 = 06 00640360 ! 68: C 00650360 ! 69: I01 = 5 00660360 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670360 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680360 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690360 ! 73: C 00700360 ! 74: I02 = 6 00710360 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720360 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730360 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740360 ! 78: C 00750360 ! 79: CBE** ********************** BBCINITB **********************************00760360 ! 80: NUVI = I02 00770360 ! 81: IVTOTL = 14 00780360 ! 82: ZPROG = 'FM360' 00790360 ! 83: CBB** ********************** BBCHED0A **********************************00800360 ! 84: C**** 00810360 ! 85: C**** WRITE REPORT TITLE 00820360 ! 86: C**** 00830360 ! 87: WRITE (I02, 90002) 00840360 ! 88: WRITE (I02, 90006) 00850360 ! 89: WRITE (I02, 90007) 00860360 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870360 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880360 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890360 ! 93: CBE** ********************** BBCHED0A **********************************00900360 ! 94: C***** 00910360 ! 95: C***** HEADER FOR SEGMENT 163 00920360 ! 96: WRITE (NUVI,16301) 00930360 ! 97: 16301 FORMAT(1H , //,2X,35HXDIM - (163) INTRINSIC FUNCTIONS-- //12X, 00940360 ! 98: 1 31HDIM, IDIM (POSITIVE DIFFERENCE)// 00950360 ! 99: 2 2X,18HSUBSET REF. - 15.3) 00960360 ! 100: CBB** ********************** BBCHED0B **********************************00970360 ! 101: C**** WRITE DETAIL REPORT HEADERS 00980360 ! 102: C**** 00990360 ! 103: WRITE (I02,90004) 01000360 ! 104: WRITE (I02,90004) 01010360 ! 105: WRITE (I02,90013) 01020360 ! 106: WRITE (I02,90014) 01030360 ! 107: WRITE (I02,90015) IVTOTL 01040360 ! 108: CBE** ********************** BBCHED0B **********************************01050360 ! 109: C***** 01060360 ! 110: C***** TEST OF DIM 01070360 ! 111: C***** 01080360 ! 112: WRITE(NUVI, 16304) 01090360 ! 113: 16304 FORMAT (/ 8X, 11HTEST OF DIM) 01100360 ! 114: CT001* TEST 1 BOTH VALUES EQUAL 01110360 ! 115: IVTNUM = 1 01120360 ! 116: RGBVS = 2.5 01130360 ! 117: RGDVS = 2.5 01140360 ! 118: RGAVS = DIM(RGBVS, RGDVS) 01150360 ! 119: IF (RGAVS + .00005) 20010, 10010, 40010 01160360 ! 120: 40010 IF (RGAVS - .00005) 10010, 10010, 20010 01170360 ! 121: 10010 IVPASS = IVPASS + 1 01180360 ! 122: WRITE (NUVI, 80002) IVTNUM 01190360 ! 123: GO TO 0011 01200360 ! 124: 20010 IVFAIL = IVFAIL + 1 01210360 ! 125: RVCORR = 0.0 01220360 ! 126: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01230360 ! 127: 0011 CONTINUE 01240360 ! 128: CT002* TEST 2 FIRST VALUE LESS THAN SECOND 01250360 ! 129: IVTNUM = 2 01260360 ! 130: RGBVS = 2.5 01270360 ! 131: RGDVS = 5.5 01280360 ! 132: RGAVS = DIM(RGBVS, RGDVS) 01290360 ! 133: IF (RGAVS + .00005) 20020, 10020, 40020 01300360 ! 134: 40020 IF (RGAVS - .00005) 10020, 10020, 20020 01310360 ! 135: 10020 IVPASS = IVPASS + 1 01320360 ! 136: WRITE (NUVI, 80002) IVTNUM 01330360 ! 137: GO TO 0021 01340360 ! 138: 20020 IVFAIL = IVFAIL + 1 01350360 ! 139: RVCORR = 0.0 01360360 ! 140: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01370360 ! 141: 0021 CONTINUE 01380360 ! 142: CT003* TEST 3 FIRST VALUE GREATER THAN SECOND 01390360 ! 143: IVTNUM = 3 01400360 ! 144: RGBVS = 5.5 01410360 ! 145: RGDVS = 2.5 01420360 ! 146: RGAVS = DIM(RGBVS, RGDVS) 01430360 ! 147: IF (RGAVS - 2.9998) 20030, 10030, 40030 01440360 ! 148: 40030 IF (RGAVS - 3.0002) 10030, 10030, 20030 01450360 ! 149: 10030 IVPASS = IVPASS + 1 01460360 ! 150: WRITE (NUVI, 80002) IVTNUM 01470360 ! 151: GO TO 0031 01480360 ! 152: 20030 IVFAIL = IVFAIL + 1 01490360 ! 153: RVCORR = 3.0 01500360 ! 154: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01510360 ! 155: 0031 CONTINUE 01520360 ! 156: CT004* TEST 4 BOTH VALUES EQUAL, BOTH NEGATIVE 01530360 ! 157: IVTNUM = 4 01540360 ! 158: RGBVS = -2.5 01550360 ! 159: RGDVS = -2.5 01560360 ! 160: RGAVS = DIM(RGBVS, RGDVS) 01570360 ! 161: IF (RGAVS + .00005) 20040, 10040, 40040 01580360 ! 162: 40040 IF (RGAVS - .00005) 10040, 10040, 20040 01590360 ! 163: 10040 IVPASS = IVPASS + 1 01600360 ! 164: WRITE (NUVI, 80002) IVTNUM 01610360 ! 165: GO TO 0041 01620360 ! 166: 20040 IVFAIL = IVFAIL + 1 01630360 ! 167: RVCORR = 0.0 01640360 ! 168: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01650360 ! 169: 0041 CONTINUE 01660360 ! 170: CT005* TEST 5 FIRST VALUE GREATER THAN SECOND, BOTH NEGATIVE 01670360 ! 171: IVTNUM = 5 01680360 ! 172: RGBVS = -2.5 01690360 ! 173: RGDVS = -5.5 01700360 ! 174: RGAVS = DIM(RGBVS, RGDVS) 01710360 ! 175: IF (RGAVS - 2.9998) 20050, 10050, 40050 01720360 ! 176: 40050 IF (RGAVS - 3.0002) 10050, 10050, 20050 01730360 ! 177: 10050 IVPASS = IVPASS + 1 01740360 ! 178: WRITE (NUVI, 80002) IVTNUM 01750360 ! 179: GO TO 0051 01760360 ! 180: 20050 IVFAIL = IVFAIL + 1 01770360 ! 181: RVCORR = 3.0 01780360 ! 182: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01790360 ! 183: 0051 CONTINUE 01800360 ! 184: CT006* TEST 6 FIRST VALUE LESS THAN SECOND, BOTH NEGATIVE 01810360 ! 185: IVTNUM = 6 01820360 ! 186: RGBVS = -5.5 01830360 ! 187: RGDVS = -2.5 01840360 ! 188: RGAVS = DIM(RGBVS, RGDVS) 01850360 ! 189: IF (RGAVS + .00005) 20060, 10060, 40060 01860360 ! 190: 40060 IF (RGAVS - .00005) 10060, 10060, 20060 01870360 ! 191: 10060 IVPASS = IVPASS + 1 01880360 ! 192: WRITE (NUVI, 80002) IVTNUM 01890360 ! 193: GO TO 0061 01900360 ! 194: 20060 IVFAIL = IVFAIL + 1 01910360 ! 195: RVCORR = 0.0 01920360 ! 196: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 01930360 ! 197: 0061 CONTINUE 01940360 ! 198: CT007* TEST 7 EXPRESSIONS PRESENTED TO DIM 01950360 ! 199: IVTNUM = 7 01960360 ! 200: RGDVS = 2.5 01970360 ! 201: RGEVS = 1.25 01980360 ! 202: RGAVS = DIM(RGDVS / RGEVS, RGDVS * RGEVS) 01990360 ! 203: IF (RGAVS + .00005) 20070, 10070, 40070 02000360 ! 204: 40070 IF (RGAVS - .00005) 10070, 10070, 20070 02010360 ! 205: 10070 IVPASS = IVPASS + 1 02020360 ! 206: WRITE (NUVI, 80002) IVTNUM 02030360 ! 207: GO TO 0071 02040360 ! 208: 20070 IVFAIL = IVFAIL + 1 02050360 ! 209: RVCORR = 0.0 02060360 ! 210: WRITE (NUVI, 80012) IVTNUM, RGAVS, RVCORR 02070360 ! 211: 0071 CONTINUE 02080360 ! 212: C***** 02090360 ! 213: C***** TEST OF IDIM 02100360 ! 214: C***** 02110360 ! 215: WRITE(NUVI, 16302) 02120360 ! 216: 16302 FORMAT (/ 08X, 12HTEST OF IDIM) 02130360 ! 217: CT008* TEST 8 BOTH VALUES EQUAL 02140360 ! 218: IVTNUM = 8 02150360 ! 219: IGBVI = 2 02160360 ! 220: IGDVI = 2 02170360 ! 221: IGAVI = IDIM(IGBVI, IGDVI) 02180360 ! 222: IF (IGAVI - 0) 20080, 10080, 20080 02190360 ! 223: 10080 IVPASS = IVPASS + 1 02200360 ! 224: WRITE (NUVI, 80002) IVTNUM 02210360 ! 225: GO TO 0081 02220360 ! 226: 20080 IVFAIL = IVFAIL + 1 02230360 ! 227: IVCORR = 0 02240360 ! 228: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02250360 ! 229: 0081 CONTINUE 02260360 ! 230: CT009* TEST 9 FIRST VALUE LESS THAN SECOND 02270360 ! 231: IVTNUM = 9 02280360 ! 232: IGBVI = 2 02290360 ! 233: IGDVI = 5 02300360 ! 234: IGAVI = IDIM(IGBVI, IGDVI) 02310360 ! 235: IF (IGAVI - 0) 20090, 10090, 20090 02320360 ! 236: 10090 IVPASS = IVPASS + 1 02330360 ! 237: WRITE (NUVI, 80002) IVTNUM 02340360 ! 238: GO TO 0091 02350360 ! 239: 20090 IVFAIL = IVFAIL + 1 02360360 ! 240: IVCORR = 0 02370360 ! 241: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02380360 ! 242: 0091 CONTINUE 02390360 ! 243: CT010* TEST 10 FIRST VALUE GREATER THAN SECOND 02400360 ! 244: IVTNUM = 10 02410360 ! 245: IGBVI = 5 02420360 ! 246: IGDVI = 2 02430360 ! 247: IGAVI = IDIM(IGBVI, IGDVI) 02440360 ! 248: IF (IGAVI - 3) 20100, 10100, 20100 02450360 ! 249: 10100 IVPASS = IVPASS + 1 02460360 ! 250: WRITE (NUVI, 80002) IVTNUM 02470360 ! 251: GO TO 0101 02480360 ! 252: 20100 IVFAIL = IVFAIL + 1 02490360 ! 253: IVCORR = 3 02500360 ! 254: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02510360 ! 255: 0101 CONTINUE 02520360 ! 256: CT011* TEST 11 BOTH VALUES EQUAL, BOTH NEGATIVE 02530360 ! 257: IVTNUM = 11 02540360 ! 258: IGBVI = -2 02550360 ! 259: IGDVI = -2 02560360 ! 260: IGAVI = IDIM(IGBVI, IGDVI) 02570360 ! 261: IF (IGAVI - 0) 20110, 10110, 20110 02580360 ! 262: 10110 IVPASS = IVPASS + 1 02590360 ! 263: WRITE (NUVI, 80002) IVTNUM 02600360 ! 264: GO TO 0111 02610360 ! 265: 20110 IVFAIL = IVFAIL + 1 02620360 ! 266: IVCORR = 0 02630360 ! 267: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02640360 ! 268: 0111 CONTINUE 02650360 ! 269: CT012* TEST 12 FIRST VALUE GREATER THAN SECOND, BOTH NEGATIVE 02660360 ! 270: IVTNUM = 12 02670360 ! 271: IGBVI = -2 02680360 ! 272: IGDVI = -5 02690360 ! 273: IGAVI = IDIM(IGBVI, IGDVI) 02700360 ! 274: IF (IGAVI - 3) 20120, 10120, 20120 02710360 ! 275: 10120 IVPASS = IVPASS + 1 02720360 ! 276: WRITE (NUVI, 80002) IVTNUM 02730360 ! 277: GO TO 0121 02740360 ! 278: 20120 IVFAIL = IVFAIL + 1 02750360 ! 279: IVCORR = 3 02760360 ! 280: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02770360 ! 281: 0121 CONTINUE 02780360 ! 282: CT013* TEST 13 FIRST VALUE LESS THAN SECOND, BOTH NEGATIVE 02790360 ! 283: IVTNUM = 13 02800360 ! 284: IGBVI = -5 02810360 ! 285: IGDVI = -2 02820360 ! 286: IGAVI = IDIM(IGBVI, IGDVI) 02830360 ! 287: IF (IGAVI - 0) 20130, 10130, 20130 02840360 ! 288: 10130 IVPASS = IVPASS + 1 02850360 ! 289: WRITE (NUVI, 80002) IVTNUM 02860360 ! 290: GO TO 0131 02870360 ! 291: 20130 IVFAIL = IVFAIL + 1 02880360 ! 292: IVCORR = 0 02890360 ! 293: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 02900360 ! 294: 0131 CONTINUE 02910360 ! 295: CT014* TEST 14 ARITHMETIC EXPRESSIONS PRESENTED TO IDIM 02920360 ! 296: IVTNUM = 14 02930360 ! 297: IGDVI = 2 02940360 ! 298: IGEVI = 1.25 02950360 ! 299: IGAVI = IDIM(IGDVI / IGEVI, IGDVI * IGEVI) 02960360 ! 300: IF (IGAVI - 0) 20140, 10140, 20140 02970360 ! 301: 10140 IVPASS = IVPASS + 1 02980360 ! 302: WRITE (NUVI, 80002) IVTNUM 02990360 ! 303: GO TO 0141 03000360 ! 304: 20140 IVFAIL = IVFAIL + 1 03010360 ! 305: IVCORR = 0 03020360 ! 306: WRITE (NUVI, 80010) IVTNUM, IGAVI, IVCORR 03030360 ! 307: 0141 CONTINUE 03040360 ! 308: C***** 03050360 ! 309: CBB** ********************** BBCSUM0 **********************************03060360 ! 310: C**** WRITE OUT TEST SUMMARY 03070360 ! 311: C**** 03080360 ! 312: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03090360 ! 313: WRITE (I02, 90004) 03100360 ! 314: WRITE (I02, 90014) 03110360 ! 315: WRITE (I02, 90004) 03120360 ! 316: WRITE (I02, 90020) IVPASS 03130360 ! 317: WRITE (I02, 90022) IVFAIL 03140360 ! 318: WRITE (I02, 90024) IVDELE 03150360 ! 319: WRITE (I02, 90026) IVINSP 03160360 ! 320: WRITE (I02, 90028) IVTOTN, IVTOTL 03170360 ! 321: CBE** ********************** BBCSUM0 **********************************03180360 ! 322: CBB** ********************** BBCFOOT0 **********************************03190360 ! 323: C**** WRITE OUT REPORT FOOTINGS 03200360 ! 324: C**** 03210360 ! 325: WRITE (I02,90016) ZPROG, ZPROG 03220360 ! 326: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03230360 ! 327: WRITE (I02,90019) 03240360 ! 328: CBE** ********************** BBCFOOT0 **********************************03250360 ! 329: CBB** ********************** BBCFMT0A **********************************03260360 ! 330: C**** FORMATS FOR TEST DETAIL LINES 03270360 ! 331: C**** 03280360 ! 332: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03290360 ! 333: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03300360 ! 334: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03310360 ! 335: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03320360 ! 336: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03330360 ! 337: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03340360 ! 338: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03350360 ! 339: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03360360 ! 340: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03370360 ! 341: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03380360 ! 342: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03390360 ! 343: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03400360 ! 344: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03410360 ! 345: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03420360 ! 346: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03430360 ! 347: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03440360 ! 348: 80050 FORMAT (1H ,48X,A31) 03450360 ! 349: CBE** ********************** BBCFMT0A **********************************03460360 ! 350: CBB** ********************** BBCFMT0B **********************************03470360 ! 351: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03480360 ! 352: C**** 03490360 ! 353: 90002 FORMAT (1H1) 03500360 ! 354: 90004 FORMAT (1H ) 03510360 ! 355: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03520360 ! 356: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03530360 ! 357: 90008 FORMAT (1H ,21X,A13,A17) 03540360 ! 358: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03550360 ! 359: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03560360 ! 360: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03570360 ! 361: 1 7X,7HREMARKS,24X) 03580360 ! 362: 90014 FORMAT (1H ,46H----------------------------------------------, 03590360 ! 363: 1 33H---------------------------------) 03600360 ! 364: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03610360 ! 365: C**** 03620360 ! 366: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03630360 ! 367: C**** 03640360 ! 368: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03650360 ! 369: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03660360 ! 370: 1 A13) 03670360 ! 371: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03680360 ! 372: C**** 03690360 ! 373: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03700360 ! 374: C**** 03710360 ! 375: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03720360 ! 376: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03730360 ! 377: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03740360 ! 378: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03750360 ! 379: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03760360 ! 380: CBE** ********************** BBCFMT0B **********************************03770360 ! 381: C***** 03780360 ! 382: 16303 FORMAT(2X, F7.2) 03790360 ! 383: 16305 FORMAT(3X, I5) 03800360 ! 384: C***** 03810360 ! 385: C***** END OF TEST SEGMENT 163 03820360 ! 386: STOP 03830360 ! 387: END 03840360 ! 388: 03850360
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.