![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM710.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 FM710.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: PROGRAM FM710 00010710 ! 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 00020710 ! 6: C THIS ROUTINE TESTS SUBSCRIPT EXPRESSIONS AND ANS REF. 00030710 ! 7: C CHARACTER SUBSTRINGS. 5.4.2, 5.4.300040710 ! 8: C 5.7.1, 5.7.200050710 ! 9: C 00060710 ! 10: C THIS ROUTINE ASSUMES THE INTRINSIC FUNCTIONS 00070710 ! 11: C INT AND IABS ARE WORKING. 00080710 ! 12: C 00090710 ! 13: CBB** ********************** BBCCOMNT **********************************00100710 ! 14: C**** 00110710 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120710 ! 16: C**** VERSION 2.0 00130710 ! 17: C**** 00140710 ! 18: C**** 00150710 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160710 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170710 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180710 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190710 ! 23: C**** FALLS CHURCH, VA. 22041 00200710 ! 24: C**** 00210710 ! 25: C**** (703) 756-6153 00220710 ! 26: C**** 00230710 ! 27: CBE** ********************** BBCCOMNT **********************************00240710 ! 28: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00250710 ! 29: IMPLICIT CHARACTER*27 (C) 00260710 ! 30: CBB** ********************** BBCINITA **********************************00270710 ! 31: C**** SPECIFICATION STATEMENTS 00280710 ! 32: C**** 00290710 ! 33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300710 ! 34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310710 ! 35: CBE** ********************** BBCINITA **********************************00320710 ! 36: C 00330710 ! 37: DIMENSION I2N001(2,3), I2N002(3,5), I1N003(-1:8), I2N004(10,4) 00340710 ! 38: CHARACTER*10 CVCOMP, CVCORR, CVN001, C2N001(2,4) 00350710 ! 39: DATA I2N001 /1,2,3,4,5,6/ 00360710 ! 40: DATA I2N002 /11,21,31,12,22,32,13,23,33,14,24,34,15,25,35/ 00370710 ! 41: DATA I1N003 /1,2,3,4,5,6,7,8,9,10/ 00380710 ! 42: DATA I2N004 / 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 00390710 ! 43: 1 4,-2, 6,-3, 8,-4,10,-5, 2,-1, 00400710 ! 44: 2 1, 3, 5, 7, 9, 2, 4, 6, 8, 10, 00410710 ! 45: 3 -10,-9,-8,-7,-6,-5,-4,-3,-2,-1 / 00420710 ! 46: DATA C2N001 /'11FIRSTELE','21SECONDXX','12THIRDXYZ','22FOURTHWW', 00430710 ! 47: 1 '13FIFTHABC','23SIXTHIJK','14SEVENTHH','24EIGHTHUV'/ 00440710 ! 48: C 00450710 ! 49: C 00460710 ! 50: CBB** ********************** BBCINITB **********************************00470710 ! 51: C**** INITIALIZE SECTION 00480710 ! 52: DATA ZVERS, ZVERSD, ZDATE 00490710 ! 53: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00500710 ! 54: DATA ZCOMPL, ZNAME, ZTAPE 00510710 ! 55: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00520710 ! 56: DATA ZPROJ, ZTAPED, ZPROG 00530710 ! 57: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00540710 ! 58: DATA REMRKS /' '/ 00550710 ! 59: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00560710 ! 60: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00570710 ! 61: C**** 00580710 ! 62: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00590710 ! 63: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00600710 ! 64: CZ03 ZPROG = 'PROGRAM NAME' 00610710 ! 65: ZDATE = '07-Nov-85 ' *RP ! 66: ZCOMPL = 'CCI 5.2 ' *RP ! 67: ZPROJ = 'TC-85- -410' *RP ! 68: ZNAME = ' ' *RP ! 69: ZTAPE = ' ' *RP ! 70: ZTAPED = '850703 ' *RP ! 71: C 00680710 ! 72: IVPASS = 0 00690710 ! 73: IVFAIL = 0 00700710 ! 74: IVDELE = 0 00710710 ! 75: IVINSP = 0 00720710 ! 76: IVTOTL = 0 00730710 ! 77: IVTOTN = 0 00740710 ! 78: ICZERO = 0 00750710 ! 79: C 00760710 ! 80: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00770710 ! 81: I01 = 05 00780710 ! 82: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00790710 ! 83: I02 = 06 00800710 ! 84: C 00810710 ! 85: I01 = 5 00820710 ! 86: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00830710 ! 87: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00840710 ! 88: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00850710 ! 89: C 00860710 ! 90: I02 = 6 00870710 ! 91: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00880710 ! 92: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00890710 ! 93: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00900710 ! 94: C 00910710 ! 95: CBE** ********************** BBCINITB **********************************00920710 ! 96: ZPROG='FM710' 00930710 ! 97: IVTOTL = 19 00940710 ! 98: CBB** ********************** BBCHED0A **********************************00950710 ! 99: C**** 00960710 ! 100: C**** WRITE REPORT TITLE 00970710 ! 101: C**** 00980710 ! 102: WRITE (I02, 90002) 00990710 ! 103: WRITE (I02, 90006) 01000710 ! 104: WRITE (I02, 90007) 01010710 ! 105: WRITE (I02, 90008) ZVERS, ZVERSD 01020710 ! 106: WRITE (I02, 90009) ZPROG, ZPROG 01030710 ! 107: WRITE (I02, 90010) ZDATE, ZCOMPL 01040710 ! 108: CBE** ********************** BBCHED0A **********************************01050710 ! 109: CBB** ********************** BBCHED0B **********************************01060710 ! 110: C**** WRITE DETAIL REPORT HEADERS 01070710 ! 111: C**** 01080710 ! 112: WRITE (I02,90004) 01090710 ! 113: WRITE (I02,90004) 01100710 ! 114: WRITE (I02,90013) 01110710 ! 115: WRITE (I02,90014) 01120710 ! 116: WRITE (I02,90015) IVTOTL 01130710 ! 117: CBE** ********************** BBCHED0B **********************************01140710 ! 118: C 01150710 ! 119: C TESTS 1-2 - SUBSCRIPT EXPRESSION TO IDENTIFY VARIOUS 01160710 ! 120: C ARRAY ELEMENTS 01170710 ! 121: C 01180710 ! 122: C 01190710 ! 123: CT001* TEST 001 **** FCVS PROGRAM 710 **** 01200710 ! 124: C 01210710 ! 125: C TEST 001 ARRAY ELEMENT REFERENCE 01220710 ! 126: C 01230710 ! 127: IVTNUM = 1 01240710 ! 128: IVCOMP = 0 01250710 ! 129: IVCORR = 34 01260710 ! 130: IVCOMP = I2N002(I2N001(1,2),I2N001(2,3)/2 + 1) 01270710 ! 131: 40010 IF (IVCOMP - 34) 20010, 10010, 20010 01280710 ! 132: 10010 IVPASS = IVPASS + 1 01290710 ! 133: WRITE (I02,80002) IVTNUM 01300710 ! 134: GO TO 0011 01310710 ! 135: 20010 IVFAIL = IVFAIL + 1 01320710 ! 136: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01330710 ! 137: 0011 CONTINUE 01340710 ! 138: C 01350710 ! 139: CT002* TEST 002 **** FCVS PROGRAM 710 **** 01360710 ! 140: C 01370710 ! 141: C TEST 002 FUNCTION REFERENCE 01380710 ! 142: C 01390710 ! 143: IVTNUM = 2 01400710 ! 144: RVD001 = 2.64 01410710 ! 145: IVCOMP = 0 01420710 ! 146: IVCORR = 25 01430710 ! 147: IVCOMP = I2N002(INT(RVD001), 19 - IABS(-7)*2) 01440710 ! 148: 40020 IF (IVCOMP - 25) 20020, 10020, 20020 01450710 ! 149: 10020 IVPASS = IVPASS + 1 01460710 ! 150: WRITE (I02,80002) IVTNUM 01470710 ! 151: GO TO 0021 01480710 ! 152: 20020 IVFAIL = IVFAIL + 1 01490710 ! 153: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01500710 ! 154: 0021 CONTINUE 01510710 ! 155: C 01520710 ! 156: C TESTS 3-7 - TEST SUBSCRIPT VALUE IN IDENTIFYING 01530710 ! 157: C ARRAY ELEMENTS 01540710 ! 158: C 01550710 ! 159: CT003* TEST 003 **** FCVS PROGRAM 710 **** 01560710 ! 160: C 01570710 ! 161: C TEST 003 RANGE 01580710 ! 162: C 01590710 ! 163: IVTNUM = 3 01600710 ! 164: WRITE (I02, 80004) IVTNUM 01610710 ! 165: WRITE (I02, 80020) 01620710 ! 166: WRITE (I02, 70030) (I1N003(IVN001), IVN001=5,8) 01630710 ! 167: 70030 FORMAT (1H ,26X,4I4) 01640710 ! 168: IVINSP = IVINSP + 1 01650710 ! 169: WRITE (I02, 80022) 01660710 ! 170: WRITE (I02, 70031) 01670710 ! 171: 70031 FORMAT (1H ,26X,16H 7 8 9 10) 01680710 ! 172: C 01690710 ! 173: CT004* TEST 004 **** FCVS PROGRAM 710 **** 01700710 ! 174: C 01710710 ! 175: C TEST 004 SINGLE ELEMENT 01720710 ! 176: C 01730710 ! 177: IVTNUM = 4 01740710 ! 178: IVCOMP = 0 01750710 ! 179: IVCORR = 4 01760710 ! 180: IVCOMP = I1N003(2) 01770710 ! 181: 40040 IF (IVCOMP - 4) 20040, 10040, 20040 01780710 ! 182: 10040 IVPASS = IVPASS + 1 01790710 ! 183: WRITE (I02,80002) IVTNUM 01800710 ! 184: GO TO 0041 01810710 ! 185: 20040 IVFAIL = IVFAIL + 1 01820710 ! 186: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01830710 ! 187: 0041 CONTINUE 01840710 ! 188: C 01850710 ! 189: CT005* TEST 005 **** FCVS PROGRAM 710 **** 01860710 ! 190: C 01870710 ! 191: C TEST 005 EXPRESSION 01880710 ! 192: C 01890710 ! 193: IVTNUM = 5 01900710 ! 194: IVN001 = -3 01910710 ! 195: IVCOMP = 0 01920710 ! 196: IVCORR = 1 01930710 ! 197: IVCOMP = I1N003((IVN001+5)*3 - 7) 01940710 ! 198: 40050 IF (IVCOMP - 1) 20050, 10050, 20050 01950710 ! 199: 10050 IVPASS = IVPASS + 1 01960710 ! 200: WRITE (I02,80002) IVTNUM 01970710 ! 201: GO TO 0051 01980710 ! 202: 20050 IVFAIL = IVFAIL + 1 01990710 ! 203: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02000710 ! 204: 0051 CONTINUE 02010710 ! 205: C 02020710 ! 206: CT006* TEST 006 **** FCVS PROGRAM 710 **** 02030710 ! 207: C 02040710 ! 208: C TEST 006 31ST ELEMENT IN 2 DIMENSIONAL, 40 ELEMENT ARRAY 02050710 ! 209: C 02060710 ! 210: IVTNUM = 6 02070710 ! 211: IVCOMP = 0 02080710 ! 212: IVCORR = -10 02090710 ! 213: IVCOMP = I2N004(1,4) 02100710 ! 214: 40060 IF (IVCOMP + 10) 20060, 10060, 20060 02110710 ! 215: 10060 IVPASS = IVPASS + 1 02120710 ! 216: WRITE (I02,80002) IVTNUM 02130710 ! 217: GO TO 0061 02140710 ! 218: 20060 IVFAIL = IVFAIL + 1 02150710 ! 219: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02160710 ! 220: 0061 CONTINUE 02170710 ! 221: C 02180710 ! 222: CT007* TEST 007 **** FCVS PROGRAM 710 **** 02190710 ! 223: C 02200710 ! 224: C TEST 007 4TH ELEMENT OF FIRST ARRAY EQUAL TO 02210710 ! 225: C 11TH ELEMENT OF SECOND ARRAY 02220710 ! 226: C 02230710 ! 227: IVTNUM = 7 02240710 ! 228: IVCOMP = 0 02250710 ! 229: IVCORR = 1 02260710 ! 230: IF (I1N003(2).EQ.I2N004(1,2)) IVCOMP = 1 02270710 ! 231: 40070 IF (IVCOMP - 1) 20070, 10070, 20070 02280710 ! 232: 10070 IVPASS = IVPASS + 1 02290710 ! 233: WRITE (I02,80002) IVTNUM 02300710 ! 234: GO TO 0071 02310710 ! 235: 20070 IVFAIL = IVFAIL + 1 02320710 ! 236: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02330710 ! 237: 0071 CONTINUE 02340710 ! 238: C 02350710 ! 239: C TESTS 8-15 - CHARACTER SUBSTRING NAME 02360710 ! 240: C 02370710 ! 241: C 02380710 ! 242: CT008* TEST 008 **** FCVS PROGRAM 710 **** 02390710 ! 243: C 02400710 ! 244: C TEST 008 USING LEFT AND RIGHT POSITION OF SUBSTRING 02410710 ! 245: C 02420710 ! 246: IVTNUM = 8 02430710 ! 247: CVCOMP = ' ' 02440710 ! 248: IVCOMP = 0 02450710 ! 249: CVN001 = 'THIS IS IT' 02460710 ! 250: CVCORR = 'HIS ' 02470710 ! 251: CVCOMP = CVN001(2:4) 02480710 ! 252: IF (CVCOMP .EQ. 'HIS ') IVCOMP = 1 02490710 ! 253: IF (IVCOMP - 1) 20080, 10080, 20080 02500710 ! 254: 10080 IVPASS = IVPASS + 1 02510710 ! 255: WRITE (I02,80002) IVTNUM 02520710 ! 256: GO TO 0081 02530710 ! 257: 20080 IVFAIL = IVFAIL + 1 02540710 ! 258: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02550710 ! 259: 0081 CONTINUE 02560710 ! 260: C 02570710 ! 261: CT009* TEST 009 **** FCVS PROGRAM 710 **** 02580710 ! 262: C 02590710 ! 263: C TEST 009 LEFT POSITION OMITTED, VALUE OF 1 ASSUMED 02600710 ! 264: C 02610710 ! 265: IVTNUM = 9 02620710 ! 266: CVCOMP = ' ' 02630710 ! 267: IVCOMP = 0 02640710 ! 268: CVCORR = 'THIS ' 02650710 ! 269: CVCOMP = CVN001(:4) 02660710 ! 270: IF (CVCOMP .EQ. 'THIS ') IVCOMP = 1 02670710 ! 271: IF (IVCOMP - 1) 20090, 10090, 20090 02680710 ! 272: 10090 IVPASS = IVPASS + 1 02690710 ! 273: WRITE (I02,80002) IVTNUM 02700710 ! 274: GO TO 0091 02710710 ! 275: 20090 IVFAIL = IVFAIL + 1 02720710 ! 276: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02730710 ! 277: 0091 CONTINUE 02740710 ! 278: C 02750710 ! 279: CT010* TEST 010 **** FCVS PROGRAM 710 **** 02760710 ! 280: C 02770710 ! 281: C TEST 010 RIGHT POSITION OMITTED, RIGHT-HAND END OF STRING ASSUMED 02780710 ! 282: C 02790710 ! 283: IVTNUM = 10 02800710 ! 284: CVCOMP = ' ' 02810710 ! 285: IVCOMP = 0 02820710 ! 286: CVCORR = 'S IS IT ' 02830710 ! 287: CVCOMP = CVN001(4:) 02840710 ! 288: IF (CVCOMP .EQ. 'S IS IT ') IVCOMP = 1 02850710 ! 289: IF (IVCOMP - 1) 20100, 10100, 20100 02860710 ! 290: 10100 IVPASS = IVPASS + 1 02870710 ! 291: WRITE (I02,80002) IVTNUM 02880710 ! 292: GO TO 0101 02890710 ! 293: 20100 IVFAIL = IVFAIL + 1 02900710 ! 294: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02910710 ! 295: 0101 CONTINUE 02920710 ! 296: C 02930710 ! 297: CT011* TEST 011 **** FCVS PROGRAM 710 **** 02940710 ! 298: C 02950710 ! 299: C TEST 011 EXTRACT SUBSTRING FROM ARRAY 02960710 ! 300: C 02970710 ! 301: IVTNUM = 11 02980710 ! 302: CVCOMP = ' ' 02990710 ! 303: IVCOMP = 0 03000710 ! 304: CVCORR = '12THIR ' 03010710 ! 305: CVCOMP = C2N001(1,2)(1:6) 03020710 ! 306: IF (CVCOMP .EQ. '12THIR ') IVCOMP = 1 03030710 ! 307: IF (IVCOMP - 1) 20110, 10110, 20110 03040710 ! 308: 10110 IVPASS = IVPASS + 1 03050710 ! 309: WRITE (I02,80002) IVTNUM 03060710 ! 310: GO TO 0111 03070710 ! 311: 20110 IVFAIL = IVFAIL + 1 03080710 ! 312: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03090710 ! 313: 0111 CONTINUE 03100710 ! 314: C 03110710 ! 315: CT012* TEST 012 **** FCVS PROGRAM 710 **** 03120710 ! 316: C 03130710 ! 317: C TEST 012 ENTIRE SUBSTRING 03140710 ! 318: C 03150710 ! 319: IVTNUM = 12 03160710 ! 320: CVCOMP = ' ' 03170710 ! 321: IVCOMP = 0 03180710 ! 322: CVCORR = 'THIS IS IT' 03190710 ! 323: CVCOMP = CVN001(:) 03200710 ! 324: IF (CVCOMP .EQ. 'THIS IS IT') IVCOMP = 1 03210710 ! 325: IF (IVCOMP - 1) 20120, 10120, 20120 03220710 ! 326: 10120 IVPASS = IVPASS + 1 03230710 ! 327: WRITE (I02,80002) IVTNUM 03240710 ! 328: GO TO 0121 03250710 ! 329: 20120 IVFAIL = IVFAIL + 1 03260710 ! 330: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03270710 ! 331: 0121 CONTINUE 03280710 ! 332: C 03290710 ! 333: CT013* TEST 013 **** FCVS PROGRAM 710 **** 03300710 ! 334: C 03310710 ! 335: C TEST 013 ENTIRE SUBSTRING FROM ARRAY 03320710 ! 336: C 03330710 ! 337: IVTNUM = 13 03340710 ! 338: CVCOMP = ' ' 03350710 ! 339: IVCOMP = 0 03360710 ! 340: CVCORR = '23SIXTHIJK' 03370710 ! 341: CVCOMP = C2N001(2,3)(:) 03380710 ! 342: IF (CVCOMP .EQ. '23SIXTHIJK') IVCOMP = 1 03390710 ! 343: IF (IVCOMP - 1) 20130, 10130, 20130 03400710 ! 344: 10130 IVPASS = IVPASS + 1 03410710 ! 345: WRITE (I02,80002) IVTNUM 03420710 ! 346: GO TO 0131 03430710 ! 347: 20130 IVFAIL = IVFAIL + 1 03440710 ! 348: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03450710 ! 349: 0131 CONTINUE 03460710 ! 350: C 03470710 ! 351: CT014* TEST 014 **** FCVS PROGRAM 710 **** 03480710 ! 352: C 03490710 ! 353: C RIGHT POSITION OMITTED USING ARRAY 03500710 ! 354: C 03510710 ! 355: IVTNUM = 14 03520710 ! 356: CVCOMP = ' ' 03530710 ! 357: IVCOMP = 0 03540710 ! 358: CVCORR = 'EVENTHH ' 03550710 ! 359: CVCOMP = C2N001(1,4)(4:) 03560710 ! 360: IF (CVCOMP .EQ. 'EVENTHH ') IVCOMP = 1 03570710 ! 361: IF (IVCOMP - 1) 20140, 10140, 20140 03580710 ! 362: 10140 IVPASS = IVPASS + 1 03590710 ! 363: WRITE (I02,80002) IVTNUM 03600710 ! 364: GO TO 0141 03610710 ! 365: 20140 IVFAIL = IVFAIL + 1 03620710 ! 366: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03630710 ! 367: 0141 CONTINUE 03640710 ! 368: C 03650710 ! 369: CT015* TEST 015 **** FCVS PROGRAM 710 **** 03660710 ! 370: C 03670710 ! 371: C LEFT POSITION OMITTED 03680710 ! 372: C 03690710 ! 373: IVTNUM = 15 03700710 ! 374: CVCOMP = ' ' 03710710 ! 375: IVCOMP = 0 03720710 ! 376: CVCORR = '24EI ' 03730710 ! 377: CVCOMP = C2N001(2,4)(:4) 03740710 ! 378: IF (CVCOMP .EQ. '24EI ') IVCOMP = 1 03750710 ! 379: IF (IVCOMP - 1) 20150, 10150, 20150 03760710 ! 380: 10150 IVPASS = IVPASS + 1 03770710 ! 381: WRITE (I02,80002) IVTNUM 03780710 ! 382: GO TO 0151 03790710 ! 383: 20150 IVFAIL = IVFAIL + 1 03800710 ! 384: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03810710 ! 385: 0151 CONTINUE 03820710 ! 386: C 03830710 ! 387: C TESTS 16-19 - SUBSTRING EXPRESSION 03840710 ! 388: C 03850710 ! 389: C 03860710 ! 390: CT016* TEST 016 **** FCVS PROGRAM 710 **** 03870710 ! 391: C 03880710 ! 392: C TEST 016 ARITHMETIC EXPRESSION 03890710 ! 393: C 03900710 ! 394: IVTNUM = 16 03910710 ! 395: CVCOMP = ' ' 03920710 ! 396: IVCOMP = 0 03930710 ! 397: CVCORR = 'HIS IS IT ' 03940710 ! 398: CVCOMP = CVN001(2:5*2) 03950710 ! 399: IF (CVCOMP .EQ. 'HIS IS IT ') IVCOMP = 1 03960710 ! 400: IF (IVCOMP - 1) 20160, 10160, 20160 03970710 ! 401: 10160 IVPASS = IVPASS + 1 03980710 ! 402: WRITE (I02,80002) IVTNUM 03990710 ! 403: GO TO 0161 04000710 ! 404: 20160 IVFAIL = IVFAIL + 1 04010710 ! 405: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04020710 ! 406: 0161 CONTINUE 04030710 ! 407: C 04040710 ! 408: CT017* TEST 017 **** FCVS PROGRAM 710 **** 04050710 ! 409: C 04060710 ! 410: C TEST 017 SUBSTRING EXPRESSION IN AN ASSIGNMENT STATEMENT 04070710 ! 411: C 04080710 ! 412: IVTNUM = 17 04090710 ! 413: IVN001 = 5 04100710 ! 414: IVN002 = 8 04110710 ! 415: CVCOMP = ' ' 04120710 ! 416: IVCOMP = 0 04130710 ! 417: CVCORR = 'THISLIKEIT' 04140710 ! 418: CVN001(IVN001:IVN002) = 'LIKE' 04150710 ! 419: CVCOMP = CVN001 04160710 ! 420: IF (CVCOMP .EQ. 'THISLIKEIT') IVCOMP = 1 04170710 ! 421: IF (IVCOMP - 1) 20170, 10170, 20170 04180710 ! 422: 10170 IVPASS = IVPASS + 1 04190710 ! 423: WRITE (I02,80002) IVTNUM 04200710 ! 424: GO TO 0171 04210710 ! 425: 20170 IVFAIL = IVFAIL + 1 04220710 ! 426: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04230710 ! 427: 0171 CONTINUE 04240710 ! 428: C 04250710 ! 429: CT018* TEST 018 **** FCVS PROGRAM 710 **** 04260710 ! 430: C 04270710 ! 431: C TEST 018 SUBSTRING EXPRESSION CONTAINING ARRAY ELEMENT REFERENCE 04280710 ! 432: C 04290710 ! 433: IVTNUM = 18 04300710 ! 434: CVCOMP = ' ' 04310710 ! 435: IVCOMP = 0 04320710 ! 436: CVCORR = 'HISLIKE ' 04330710 ! 437: CVCOMP = CVN001(I2N001(2,1):I2N002(3,5)-27) 04340710 ! 438: IF (CVCOMP .EQ. 'HISLIKE ') IVCOMP = 1 04350710 ! 439: IF (IVCOMP - 1) 20180, 10180, 20180 04360710 ! 440: 10180 IVPASS = IVPASS + 1 04370710 ! 441: WRITE (I02,80002) IVTNUM 04380710 ! 442: GO TO 0181 04390710 ! 443: 20180 IVFAIL = IVFAIL + 1 04400710 ! 444: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04410710 ! 445: 0181 CONTINUE 04420710 ! 446: C 04430710 ! 447: CT019* TEST 019 **** FCVS PROGRAM 710 **** 04440710 ! 448: C 04450710 ! 449: C TEST 019 SUBSTRING EXPRESSION CONTAINING FUNCTION REFERENCES 04460710 ! 450: C 04470710 ! 451: IVTNUM = 19 04480710 ! 452: RVD001 = 1.475 04490710 ! 453: IVN001 = 1 04500710 ! 454: CVCOMP = ' ' 04510710 ! 455: IVCOMP = 0 04520710 ! 456: CVCORR = 'IFTHABC ' 04530710 ! 457: CVCOMP = C2N001(1,3)(INT(RVD001)+3 : (IVN001*5 + 7)/IABS(-6) + 8) 04540710 ! 458: IF (CVCOMP .EQ. 'IFTHABC ') IVCOMP = 1 04550710 ! 459: IF (IVCOMP - 1) 20190, 10190, 20190 04560710 ! 460: 10190 IVPASS = IVPASS + 1 04570710 ! 461: WRITE (I02,80002) IVTNUM 04580710 ! 462: GO TO 0191 04590710 ! 463: 20190 IVFAIL = IVFAIL + 1 04600710 ! 464: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04610710 ! 465: 0191 CONTINUE 04620710 ! 466: C 04630710 ! 467: CBB** ********************** BBCSUM0 **********************************04640710 ! 468: C**** WRITE OUT TEST SUMMARY 04650710 ! 469: C**** 04660710 ! 470: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04670710 ! 471: WRITE (I02, 90004) 04680710 ! 472: WRITE (I02, 90014) 04690710 ! 473: WRITE (I02, 90004) 04700710 ! 474: WRITE (I02, 90020) IVPASS 04710710 ! 475: WRITE (I02, 90022) IVFAIL 04720710 ! 476: WRITE (I02, 90024) IVDELE 04730710 ! 477: WRITE (I02, 90026) IVINSP 04740710 ! 478: WRITE (I02, 90028) IVTOTN, IVTOTL 04750710 ! 479: CBE** ********************** BBCSUM0 **********************************04760710 ! 480: CBB** ********************** BBCFOOT0 **********************************04770710 ! 481: C**** WRITE OUT REPORT FOOTINGS 04780710 ! 482: C**** 04790710 ! 483: WRITE (I02,90016) ZPROG, ZPROG 04800710 ! 484: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04810710 ! 485: WRITE (I02,90019) 04820710 ! 486: CBE** ********************** BBCFOOT0 **********************************04830710 ! 487: 90001 FORMAT (1H ,56X,5HFM710) 04840710 ! 488: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM710) 04850710 ! 489: CBB** ********************** BBCFMT0A **********************************04860710 ! 490: C**** FORMATS FOR TEST DETAIL LINES 04870710 ! 491: C**** 04880710 ! 492: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04890710 ! 493: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04900710 ! 494: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04910710 ! 495: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04920710 ! 496: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04930710 ! 497: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04940710 ! 498: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04950710 ! 499: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04960710 ! 500: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04970710 ! 501: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04980710 ! 502: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04990710 ! 503: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05000710 ! 504: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05010710 ! 505: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05020710 ! 506: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05030710 ! 507: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05040710 ! 508: 80050 FORMAT (1H ,48X,A31) 05050710 ! 509: CBE** ********************** BBCFMT0A **********************************05060710 ! 510: CBB** ********************** BBCFMAT1 **********************************05070710 ! 511: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05080710 ! 512: C**** 05090710 ! 513: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05100710 ! 514: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 05110710 ! 515: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 05120710 ! 516: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 05130710 ! 517: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05140710 ! 518: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05150710 ! 519: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05160710 ! 520: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05170710 ! 521: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05180710 ! 522: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 05190710 ! 523: 21H(,F12.5,2H, ,F12.5,1H)) 05200710 ! 524: CBE** ********************** BBCFMAT1 **********************************05210710 ! 525: CBB** ********************** BBCFMT0B **********************************05220710 ! 526: C**** FORMAT STATEMENTS FOR PAGE HEADERS 05230710 ! 527: C**** 05240710 ! 528: 90002 FORMAT (1H1) 05250710 ! 529: 90004 FORMAT (1H ) 05260710 ! 530: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 05270710 ! 531: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05280710 ! 532: 90008 FORMAT (1H ,21X,A13,A17) 05290710 ! 533: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 05300710 ! 534: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 05310710 ! 535: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 05320710 ! 536: 1 7X,7HREMARKS,24X) 05330710 ! 537: 90014 FORMAT (1H ,46H----------------------------------------------, 05340710 ! 538: 1 33H---------------------------------) 05350710 ! 539: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 05360710 ! 540: C**** 05370710 ! 541: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 05380710 ! 542: C**** 05390710 ! 543: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 05400710 ! 544: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 05410710 ! 545: 1 A13) 05420710 ! 546: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 05430710 ! 547: C**** 05440710 ! 548: C**** FORMAT STATEMENTS FOR RUN SUMMARY 05450710 ! 549: C**** 05460710 ! 550: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 05470710 ! 551: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 05480710 ! 552: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 05490710 ! 553: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 05500710 ! 554: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 05510710 ! 555: CBE** ********************** BBCFMT0B **********************************05520710 ! 556: END 05530710
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.