![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM503.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 FM503.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***********************************************************************00010503 ! 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 00020503 ! 6: C***** FM503 00030503 ! 7: C***** BLKD2 - (261) 00040503 ! 8: C***** THIS PROGRAM USES FM504 (UNNAMED BLOCK DATA SUBPROGRAM 00050503 ! 9: C***** AND SUBROUTINE SN505 00060503 ! 10: C***********************************************************************00070503 ! 11: C***** TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00080503 ! 12: C***** DATA INTERNAL FORMS 16 00090503 ! 13: C***** THIS SEGMENT USES SEGMENTS 702 AND 703, BLOCK DATA PROGRAM 00100503 ! 14: C***** FM504 AND SUBROUTINE SN505 00110503 ! 15: C***** 00120503 ! 16: CBB** ********************** BBCCOMNT **********************************00130503 ! 17: C**** 00140503 ! 18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150503 ! 19: C**** VERSION 2.0 00160503 ! 20: C**** 00170503 ! 21: C**** 00180503 ! 22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190503 ! 23: C**** GENERAL SERVICES ADMINISTRATION 00200503 ! 24: C**** FEDERAL SOFTWARE TESTING CENTER 00210503 ! 25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220503 ! 26: C**** FALLS CHURCH, VA. 22041 00230503 ! 27: C**** 00240503 ! 28: C**** (703) 756-6153 00250503 ! 29: C**** 00260503 ! 30: CBE** ********************** BBCCOMNT **********************************00270503 ! 31: C***** 00280503 ! 32: C***** S P E C I F I C A T I O N S SEGMENT 261 00290503 ! 33: C***** 00300503 ! 34: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00310503 ! 35: C***** DOUBLE PRECISION AXVD, DVCORR 00320503 ! 36: C***** COMPLEX AXVC, ZVCORR 00330503 ! 37: C***** LOGICAL AXVB 00340503 ! 38: C***** CHARACTER*6 A6XVK, B6XVK, CVCORR 00350503 ! 39: C***** 00360503 ! 40: C***** COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503 ! 41: C***** COMMON /BLK7/ A6XVK, B6XVK 00380503 ! 42: C***** 00390503 ! 43: C***** 00400503 ! 44: CALL SN505 00410503 ! 45: STOP 00420503 ! 46: C***** 00430503 ! 47: C***** END OF TEST SEGMENT 261 00440503 ! 48: END 00450503 ! 49: C***********************************************************************00010504 ! 50: C DATE***82/08/02*18.33.46 ! 51: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 52: C AUDIT FCVS78 V2.0 ! 53: C***** FORTRAN 77 00020504 ! 54: C***** FM504 BDS2 (UNNAMED) - (702) 00030504 ! 55: C***** THIS BLOCK DATA SUBPROGRAM IS USED BY FM503 00040504 ! 56: C***********************************************************************00050504 ! 57: C***** 00060504 ! 58: C***** GENERAL PURPOSE 00070504 ! 59: C***** THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080504 ! 60: C***** TO BE RUN WITH TEST SEGMENT 261 00090504 ! 61: C***** THIS SEGMENT WILL TEST INTERNAL DATA FORMS, AS WELL 00100504 ! 62: C***** AS THE USE OF UNNAMED BLOCK DATA PROGRAM 00110504 ! 63: C***** 00120504 ! 64: BLOCK DATA 00130504 ! 65: C***** 00140504 ! 66: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00150504 ! 67: DOUBLE PRECISION AXVD 00160504 ! 68: COMPLEX AXVC 00170504 ! 69: LOGICAL AXVB 00180504 ! 70: CHARACTER*6 A6XVK, B6XVK 00190504 ! 71: C***** 00200504 ! 72: COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00210504 ! 73: COMMON /BLK7/ A6XVK, B6XVK 00220504 ! 74: DATA AXVS, BXVS, IXVI, AXVD, AXVC, AXVB /34.25E-1, 43.23, 21, 00230504 ! 75: 1 1.23456, (234.23, 34.9), .TRUE./ 00240504 ! 76: DATA A6XVK, B6XVK /'ABCDE', 'FGHIJK'/ 00250504 ! 77: C***** 00260504 ! 78: END 00270504 ! 79: C***********************************************************************00010505 ! 80: C DATE***82/08/02*18.33.46 ! 81: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 82: C AUDIT FCVS78 V2.0 ! 83: C***** FORTRAN 77 00020505 ! 84: C***** FM505 BLKD2Q - (703) 00030505 ! 85: C***** THIS SUBROUTINE IS CALLED BY FM503 00040505 ! 86: C***********************************************************************00050505 ! 87: C***** 00060505 ! 88: C***** GENERAL PURPOSE 00070505 ! 89: C***** THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 261 00080505 ! 90: C***** THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090505 ! 91: C***** IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED THE MANY 00100505 ! 92: C***** VARIABLES 00110505 ! 93: C***** 00120505 ! 94: SUBROUTINE SN505 00130505 ! 95: C***** 00140505 ! 96: C***** 00150505 ! 97: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00160505 ! 98: DOUBLE PRECISION AXVD, DVCORR 00170505 ! 99: COMPLEX AXVC, ZVCORR 00180505 ! 100: LOGICAL AXVB 00190505 ! 101: CHARACTER*6 A6XVK, B6XVK, CVCORR 00200505 ! 102: C***** 00210505 ! 103: COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00220505 ! 104: COMMON /BLK7/ A6XVK, B6XVK 00230505 ! 105: C***** LOCAL DECLARATION 00240505 ! 106: DOUBLE PRECISION AVD 00250505 ! 107: COMPLEX AVC 00260505 ! 108: REAL R2E(2) 00270505 ! 109: EQUIVALENCE (AVC, R2E) 00280505 ! 110: C***** 00290505 ! 111: CBB** ********************** BBCINITA **********************************00300505 ! 112: C**** SPECIFICATION STATEMENTS 00310505 ! 113: C**** 00320505 ! 114: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330505 ! 115: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340505 ! 116: CBE** ********************** BBCINITA **********************************00350505 ! 117: CBB** ********************** BBCINITB **********************************00360505 ! 118: C**** INITIALIZE SECTION 00370505 ! 119: DATA ZVERS, ZVERSD, ZDATE 00380505 ! 120: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390505 ! 121: DATA ZCOMPL, ZNAME, ZTAPE 00400505 ! 122: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410505 ! 123: DATA ZPROJ, ZTAPED, ZPROG 00420505 ! 124: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430505 ! 125: DATA REMRKS /' '/ 00440505 ! 126: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450505 ! 127: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460505 ! 128: C**** 00470505 ! 129: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480505 ! 130: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490505 ! 131: CZ03 ZPROG = 'PROGRAM NAME' 00500505 ! 132: ZDATE = '07-Nov-85 ' *RP ! 133: ZCOMPL = 'CCI 5.2 ' *RP ! 134: ZPROJ = 'TC-85- -410' *RP ! 135: ZNAME = ' ' *RP ! 136: ZTAPE = ' ' *RP ! 137: ZTAPED = '850703 ' *RP ! 138: C 00570505 ! 139: IVPASS = 0 00580505 ! 140: IVFAIL = 0 00590505 ! 141: IVDELE = 0 00600505 ! 142: IVINSP = 0 00610505 ! 143: IVTOTL = 0 00620505 ! 144: IVTOTN = 0 00630505 ! 145: ICZERO = 0 00640505 ! 146: C 00650505 ! 147: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660505 ! 148: I01 = 05 00670505 ! 149: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680505 ! 150: I02 = 06 00690505 ! 151: C 00700505 ! 152: I01 = 5 00710505 ! 153: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720505 ! 154: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730505 ! 155: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740505 ! 156: C 00750505 ! 157: I02 = 6 00760505 ! 158: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770505 ! 159: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780505 ! 160: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790505 ! 161: C 00800505 ! 162: CBE** ********************** BBCINITB **********************************00810505 ! 163: NUVI = I02 00820505 ! 164: IVTOTL = 8 00830505 ! 165: ZPROG = 'FM503' 00840505 ! 166: CBB** ********************** BBCHED0A **********************************00850505 ! 167: C**** 00860505 ! 168: C**** WRITE REPORT TITLE 00870505 ! 169: C**** 00880505 ! 170: WRITE (I02, 90002) 00890505 ! 171: WRITE (I02, 90006) 00900505 ! 172: WRITE (I02, 90007) 00910505 ! 173: WRITE (I02, 90008) ZVERS, ZVERSD 00920505 ! 174: WRITE (I02, 90009) ZPROG, ZPROG 00930505 ! 175: WRITE (I02, 90010) ZDATE, ZCOMPL 00940505 ! 176: CBE** ********************** BBCHED0A **********************************00950505 ! 177: WRITE(NUVI,26100) 00960505 ! 178: 26100 FORMAT( 1H , / 39H BLKD2 - (261) BLOCK DATA SUBPROGRAM --// 00970505 ! 179: 1 21H DATA INTERNAL FORMS// 00980505 ! 180: 2 15H ANS REF. - 16) 00990505 ! 181: CBB** ********************** BBCHED0B **********************************01000505 ! 182: C**** WRITE DETAIL REPORT HEADERS 01010505 ! 183: C**** 01020505 ! 184: WRITE (I02,90004) 01030505 ! 185: WRITE (I02,90004) 01040505 ! 186: WRITE (I02,90013) 01050505 ! 187: WRITE (I02,90014) 01060505 ! 188: WRITE (I02,90015) IVTOTL 01070505 ! 189: CBE** ********************** BBCHED0B **********************************01080505 ! 190: C***** 01090505 ! 191: CT001* TEST 1 REAL VARIABLE - EXPONENT FORM 01100505 ! 192: IVTNUM = 1 01110505 ! 193: AVS = AXVS 01120505 ! 194: IF (AVS - 0.34248E+01) 20010, 10010, 40010 01130505 ! 195: 40010 IF (AVS - 0.34252E+01) 10010, 10010, 20010 01140505 ! 196: 10010 IVPASS = IVPASS + 1 01150505 ! 197: WRITE (NUVI, 80002) IVTNUM 01160505 ! 198: GO TO 0011 01170505 ! 199: 20010 IVFAIL = IVFAIL + 1 01180505 ! 200: RVCORR = 34.25E-1 01190505 ! 201: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01200505 ! 202: 0011 CONTINUE 01210505 ! 203: CT002* TEST 2 REAL VARIABLE - NON EXPONENT FORM 01220505 ! 204: IVTNUM = 2 01230505 ! 205: AVS = BXVS 01240505 ! 206: IF (AVS - 0.43227E+02) 20020, 10020, 40020 01250505 ! 207: 40020 IF (AVS - 0.43233E+02) 10020, 10020, 20020 01260505 ! 208: 10020 IVPASS = IVPASS + 1 01270505 ! 209: WRITE (NUVI, 80002) IVTNUM 01280505 ! 210: GO TO 0021 01290505 ! 211: 20020 IVFAIL = IVFAIL + 1 01300505 ! 212: RVCORR = 43.23 01310505 ! 213: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01320505 ! 214: 0021 CONTINUE 01330505 ! 215: CT003* TEST 3 INTEGER VARIABLE 01340505 ! 216: IVTNUM = 3 01350505 ! 217: IVI = IXVI 01360505 ! 218: IF (IVI - 21) 20030, 10030, 20030 01370505 ! 219: 10030 IVPASS = IVPASS + 1 01380505 ! 220: WRITE (NUVI, 80002) IVTNUM 01390505 ! 221: GO TO 0031 01400505 ! 222: 20030 IVFAIL = IVFAIL + 1 01410505 ! 223: IVCORR = 21 01420505 ! 224: WRITE (NUVI, 80010) IVTNUM, IVI, IVCORR 01430505 ! 225: 0031 CONTINUE 01440505 ! 226: CT004* TEST 4 DOUBLE PRECISION VARIABLE 01450505 ! 227: IVTNUM = 4 01460505 ! 228: AVD = AXVD 01470505 ! 229: IF (AVD - 0.12345D+01) 20040, 10040, 40040 01480505 ! 230: 40040 IF (AVD - 0.12347D+01) 10040, 10040, 20040 01490505 ! 231: 10040 IVPASS = IVPASS + 1 01500505 ! 232: WRITE (NUVI, 80002) IVTNUM 01510505 ! 233: GO TO 0041 01520505 ! 234: 20040 IVFAIL = IVFAIL + 1 01530505 ! 235: DVCORR = 1.23456D+0 01540505 ! 236: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01550505 ! 237: 0041 CONTINUE 01560505 ! 238: CT005* TEST 5 COMPLEX VARIABLE 01570505 ! 239: IVTNUM = 5 01580505 ! 240: AVC = AXVC 01590505 ! 241: IF (R2E(1) - 0.23421E+03) 20050, 40052, 40051 01600505 ! 242: 40051 IF (R2E(1) - 0.23425E+03) 40052, 40052, 20050 01610505 ! 243: 40052 IF (R2E(2) - 0.34898E+02) 20050, 10050, 40050 01620505 ! 244: 40050 IF (R2E(2) - 0.34902E+02) 10050, 10050, 20050 01630505 ! 245: 10050 IVPASS = IVPASS + 1 01640505 ! 246: WRITE (NUVI, 80002) IVTNUM 01650505 ! 247: GO TO 0051 01660505 ! 248: 20050 IVFAIL = IVFAIL + 1 01670505 ! 249: ZVCORR = (234.23, 34.9) 01680505 ! 250: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01690505 ! 251: 0051 CONTINUE 01700505 ! 252: CT006* TEST 6 LOGICAL VARIABLE 01710505 ! 253: IVTNUM = 6 01720505 ! 254: IVI = 0 01730505 ! 255: IF (AXVB) IVI = 1 01740505 ! 256: IF (IVI - 1) 20060, 10060, 20060 01750505 ! 257: 10060 IVPASS = IVPASS + 1 01760505 ! 258: WRITE (NUVI, 80002) IVTNUM 01770505 ! 259: GO TO 0061 01780505 ! 260: 20060 IVFAIL = IVFAIL + 1 01790505 ! 261: LVCORR = 1 01800505 ! 262: REMRKS = '1 = TRUE ; 0 = FALSE' 01810505 ! 263: WRITE (NUVI, 80008) IVTNUM, REMRKS 01820505 ! 264: WRITE (NUVI, 80024) IVI 01830505 ! 265: WRITE (NUVI, 80026) LVCORR 01840505 ! 266: 0061 CONTINUE 01850505 ! 267: CT007* TEST 7 6 CHARACTER VARIABLE - INIT WITH 5 CHARACTERS 01860505 ! 268: IVTNUM = 7 01870505 ! 269: IVI = 0 01880505 ! 270: IF (A6XVK.EQ.'ABCDE ') IVI = 1 01890505 ! 271: IF (IVI - 1) 20070, 10070, 20070 01900505 ! 272: 10070 IVPASS = IVPASS + 1 01910505 ! 273: WRITE (NUVI, 80002) IVTNUM 01920505 ! 274: GO TO 0071 01930505 ! 275: 20070 IVFAIL = IVFAIL + 1 01940505 ! 276: CVCORR = 'ABCDE ' 01950505 ! 277: WRITE (NUVI, 80018) IVTNUM, A6XVK, CVCORR 01960505 ! 278: 0071 CONTINUE 01970505 ! 279: CT008* TEST 8 6 CHARACTER VARIABLE - INIT WITH 6 CHARACTERS 01980505 ! 280: IVTNUM = 8 01990505 ! 281: IVI = 0 02000505 ! 282: IF (B6XVK.EQ.'FGHIJK') IVI = 1 02010505 ! 283: IF (IVI - 1) 20080, 10080, 20080 02020505 ! 284: 10080 IVPASS = IVPASS + 1 02030505 ! 285: WRITE (NUVI, 80002) IVTNUM 02040505 ! 286: GO TO 0081 02050505 ! 287: 20080 IVFAIL = IVFAIL + 1 02060505 ! 288: CVCORR = 'FGHIJK' 02070505 ! 289: WRITE (NUVI, 80018) IVTNUM, B6XVK, CVCORR 02080505 ! 290: 0081 CONTINUE 02090505 ! 291: C***** 02100505 ! 292: CBB** ********************** BBCSUM0 **********************************02110505 ! 293: C**** WRITE OUT TEST SUMMARY 02120505 ! 294: C**** 02130505 ! 295: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02140505 ! 296: WRITE (I02, 90004) 02150505 ! 297: WRITE (I02, 90014) 02160505 ! 298: WRITE (I02, 90004) 02170505 ! 299: WRITE (I02, 90020) IVPASS 02180505 ! 300: WRITE (I02, 90022) IVFAIL 02190505 ! 301: WRITE (I02, 90024) IVDELE 02200505 ! 302: WRITE (I02, 90026) IVINSP 02210505 ! 303: WRITE (I02, 90028) IVTOTN, IVTOTL 02220505 ! 304: CBE** ********************** BBCSUM0 **********************************02230505 ! 305: CBB** ********************** BBCFOOT0 **********************************02240505 ! 306: C**** WRITE OUT REPORT FOOTINGS 02250505 ! 307: C**** 02260505 ! 308: WRITE (I02,90016) ZPROG, ZPROG 02270505 ! 309: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02280505 ! 310: WRITE (I02,90019) 02290505 ! 311: CBE** ********************** BBCFOOT0 **********************************02300505 ! 312: CBB** ********************** BBCFMT0A **********************************02310505 ! 313: C**** FORMATS FOR TEST DETAIL LINES 02320505 ! 314: C**** 02330505 ! 315: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02340505 ! 316: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02350505 ! 317: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02360505 ! 318: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02370505 ! 319: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02380505 ! 320: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02390505 ! 321: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02400505 ! 322: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02410505 ! 323: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02420505 ! 324: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02430505 ! 325: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02440505 ! 326: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02450505 ! 327: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02460505 ! 328: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02470505 ! 329: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02480505 ! 330: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02490505 ! 331: 80050 FORMAT (1H ,48X,A31) 02500505 ! 332: CBE** ********************** BBCFMT0A **********************************02510505 ! 333: CBB** ********************** BBCFMAT1 **********************************02520505 ! 334: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02530505 ! 335: C**** 02540505 ! 336: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02550505 ! 337: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02560505 ! 338: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02570505 ! 339: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02580505 ! 340: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02590505 ! 341: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02600505 ! 342: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02610505 ! 343: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02620505 ! 344: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02630505 ! 345: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02640505 ! 346: 21H(,F12.5,2H, ,F12.5,1H)) 02650505 ! 347: CBE** ********************** BBCFMAT1 **********************************02660505 ! 348: CBB** ********************** BBCFMT0B **********************************02670505 ! 349: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02680505 ! 350: C**** 02690505 ! 351: 90002 FORMAT (1H1) 02700505 ! 352: 90004 FORMAT (1H ) 02710505 ! 353: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02720505 ! 354: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02730505 ! 355: 90008 FORMAT (1H ,21X,A13,A17) 02740505 ! 356: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02750505 ! 357: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02760505 ! 358: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02770505 ! 359: 1 7X,7HREMARKS,24X) 02780505 ! 360: 90014 FORMAT (1H ,46H----------------------------------------------, 02790505 ! 361: 1 33H---------------------------------) 02800505 ! 362: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02810505 ! 363: C**** 02820505 ! 364: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02830505 ! 365: C**** 02840505 ! 366: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02850505 ! 367: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02860505 ! 368: 1 A13) 02870505 ! 369: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02880505 ! 370: C**** 02890505 ! 371: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02900505 ! 372: C**** 02910505 ! 373: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02920505 ! 374: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02930505 ! 375: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02940505 ! 376: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02950505 ! 377: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02960505 ! 378: CBE** ********************** BBCFMT0B **********************************02970505 ! 379: C***** 02980505 ! 380: END 02990505
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.