![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM718.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 FM718.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 FM718 00010718 ! 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 00020718 ! 6: C THIS ROUTINE TESTS LOGICAL EXPRESSIONS AND ANS REF. 00030718 ! 7: C USE OF THE LOGICAL OPERATORS .NOT., .AND., .OR., 6.4, 6.4.2, 00040718 ! 8: C .EQV., AND .NEQV. 6.4.3, 6.4.400050718 ! 9: C 00060718 ! 10: CBB** ********************** BBCCOMNT **********************************00070718 ! 11: C**** 00080718 ! 12: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00090718 ! 13: C**** VERSION 2.0 00100718 ! 14: C**** 00110718 ! 15: C**** 00120718 ! 16: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00130718 ! 17: C**** GENERAL SERVICES ADMINISTRATION 00140718 ! 18: C**** FEDERAL SOFTWARE TESTING CENTER 00150718 ! 19: C**** 5203 LEESBURG PIKE, SUITE 1100 00160718 ! 20: C**** FALLS CHURCH, VA. 22041 00170718 ! 21: C**** 00180718 ! 22: C**** (703) 756-6153 00190718 ! 23: C**** 00200718 ! 24: CBE** ********************** BBCCOMNT **********************************00210718 ! 25: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00220718 ! 26: IMPLICIT CHARACTER*27 (C) 00230718 ! 27: CBB** ********************** BBCINITA **********************************00240718 ! 28: C**** SPECIFICATION STATEMENTS 00250718 ! 29: C**** 00260718 ! 30: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00270718 ! 31: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00280718 ! 32: CBE** ********************** BBCINITA **********************************00290718 ! 33: C 00300718 ! 34: LOGICAL LPN001, LPN002, LPN003, LPN004 00310718 ! 35: LOGICAL LVCOMP, LVCORR, LVN001 00320718 ! 36: PARAMETER (LPN001 = .TRUE., LPN002 = .FALSE., 00330718 ! 37: 1 LPN003 = .TRUE., LPN004 = .FALSE.) 00340718 ! 38: C 00350718 ! 39: C 00360718 ! 40: CBB** ********************** BBCINITB **********************************00370718 ! 41: C**** INITIALIZE SECTION 00380718 ! 42: DATA ZVERS, ZVERSD, ZDATE 00390718 ! 43: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00400718 ! 44: DATA ZCOMPL, ZNAME, ZTAPE 00410718 ! 45: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00420718 ! 46: DATA ZPROJ, ZTAPED, ZPROG 00430718 ! 47: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00440718 ! 48: DATA REMRKS /' '/ 00450718 ! 49: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460718 ! 50: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00470718 ! 51: C**** 00480718 ! 52: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490718 ! 53: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500718 ! 54: CZ03 ZPROG = 'PROGRAM NAME' 00510718 ! 55: ZDATE = '07-Nov-85 ' *RP ! 56: ZCOMPL = 'CCI 5.2 ' *RP ! 57: ZPROJ = 'TC-85- -410' *RP ! 58: ZNAME = ' ' *RP ! 59: ZTAPE = ' ' *RP ! 60: ZTAPED = '850703 ' *RP ! 61: C 00580718 ! 62: IVPASS = 0 00590718 ! 63: IVFAIL = 0 00600718 ! 64: IVDELE = 0 00610718 ! 65: IVINSP = 0 00620718 ! 66: IVTOTL = 0 00630718 ! 67: IVTOTN = 0 00640718 ! 68: ICZERO = 0 00650718 ! 69: C 00660718 ! 70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670718 ! 71: I01 = 05 00680718 ! 72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690718 ! 73: I02 = 06 00700718 ! 74: C 00710718 ! 75: I01 = 5 00720718 ! 76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730718 ! 77: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00740718 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00750718 ! 79: C 00760718 ! 80: I02 = 6 00770718 ! 81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00780718 ! 82: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00790718 ! 83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00800718 ! 84: C 00810718 ! 85: CBE** ********************** BBCINITB **********************************00820718 ! 86: ZPROG='FM718' 00830718 ! 87: IVTOTL = 29 00840718 ! 88: CBB** ********************** BBCHED0A **********************************00850718 ! 89: C**** 00860718 ! 90: C**** WRITE REPORT TITLE 00870718 ! 91: C**** 00880718 ! 92: WRITE (I02, 90002) 00890718 ! 93: WRITE (I02, 90006) 00900718 ! 94: WRITE (I02, 90007) 00910718 ! 95: WRITE (I02, 90008) ZVERS, ZVERSD 00920718 ! 96: WRITE (I02, 90009) ZPROG, ZPROG 00930718 ! 97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940718 ! 98: CBE** ********************** BBCHED0A **********************************00950718 ! 99: CBB** ********************** BBCHED0B **********************************00960718 ! 100: C**** WRITE DETAIL REPORT HEADERS 00970718 ! 101: C**** 00980718 ! 102: WRITE (I02,90004) 00990718 ! 103: WRITE (I02,90004) 01000718 ! 104: WRITE (I02,90013) 01010718 ! 105: WRITE (I02,90014) 01020718 ! 106: WRITE (I02,90015) IVTOTL 01030718 ! 107: CBE** ********************** BBCHED0B **********************************01040718 ! 108: C 01050718 ! 109: CT001* TEST 001 **** FCVS PROGRAM 718 **** 01060718 ! 110: C 01070718 ! 111: C LOGICAL EXPRESSION CONTAINING SYMBOLIC NAME OF A LOGICAL CONSTANT 01080718 ! 112: C 01090718 ! 113: IVTNUM = 1 01100718 ! 114: LVCORR = .TRUE. 01110718 ! 115: LVCOMP = LPN001 01120718 ! 116: IVCOMP = 0 01130718 ! 117: IF (LVCOMP) IVCOMP = 1 01140718 ! 118: IF (IVCOMP - 1) 20010, 10010, 20010 01150718 ! 119: 10010 IVPASS = IVPASS + 1 01160718 ! 120: WRITE (I02,80002) IVTNUM 01170718 ! 121: GO TO 0011 01180718 ! 122: 20010 IVFAIL = IVFAIL + 1 01190718 ! 123: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01200718 ! 124: 0011 CONTINUE 01210718 ! 125: C 01220718 ! 126: C TESTS 2-3 - TEST LOGICAL EXPRESSIONS INVOLVING .NOT. 01230718 ! 127: C 01240718 ! 128: C 01250718 ! 129: CT002* TEST 002 **** FCVS PROGRAM 718 **** 01260718 ! 130: C 01270718 ! 131: C 01280718 ! 132: IVTNUM = 2 01290718 ! 133: LVCORR = .TRUE. 01300718 ! 134: LVCOMP = .NOT..FALSE. 01310718 ! 135: IVCOMP = 0 01320718 ! 136: IF (LVCOMP) IVCOMP = 1 01330718 ! 137: IF (IVCOMP - 1) 20020, 10020, 20020 01340718 ! 138: 10020 IVPASS = IVPASS + 1 01350718 ! 139: WRITE (I02,80002) IVTNUM 01360718 ! 140: GO TO 0021 01370718 ! 141: 20020 IVFAIL = IVFAIL + 1 01380718 ! 142: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01390718 ! 143: 0021 CONTINUE 01400718 ! 144: C 01410718 ! 145: CT003* TEST 003 **** FCVS PROGRAM 718 **** 01420718 ! 146: C 01430718 ! 147: C 01440718 ! 148: IVTNUM = 3 01450718 ! 149: IVCORR = 1 01460718 ! 150: IVCOMP = 0 01470718 ! 151: IF (.NOT. LPN002) IVCOMP = 1 01480718 ! 152: 40030 IF (IVCOMP - 1) 20030, 10030, 20030 01490718 ! 153: 10030 IVPASS = IVPASS + 1 01500718 ! 154: WRITE (I02,80002) IVTNUM 01510718 ! 155: GO TO 0031 01520718 ! 156: 20030 IVFAIL = IVFAIL + 1 01530718 ! 157: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01540718 ! 158: 0031 CONTINUE 01550718 ! 159: C 01560718 ! 160: C TESTS 4-5 - TEST LOGICAL EXPRESSIONS INVOLVING .AND. 01570718 ! 161: C 01580718 ! 162: C 01590718 ! 163: CT004* TEST 004 **** FCVS PROGRAM 718 **** 01600718 ! 164: C 01610718 ! 165: C 01620718 ! 166: IVTNUM = 4 01630718 ! 167: LVCORR = .TRUE. 01640718 ! 168: LVCOMP = .TRUE..AND.LPN003 01650718 ! 169: IVCOMP = 0 01660718 ! 170: IF (LVCOMP) IVCOMP = 1 01670718 ! 171: IF (IVCOMP - 1) 20040, 10040, 20040 01680718 ! 172: 10040 IVPASS = IVPASS + 1 01690718 ! 173: WRITE (I02,80002) IVTNUM 01700718 ! 174: GO TO 0041 01710718 ! 175: 20040 IVFAIL = IVFAIL + 1 01720718 ! 176: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01730718 ! 177: 0041 CONTINUE 01740718 ! 178: C 01750718 ! 179: CT005* TEST 005 **** FCVS PROGRAM 718 **** 01760718 ! 180: C 01770718 ! 181: C 01780718 ! 182: IVTNUM = 5 01790718 ! 183: IVCORR = 1 01800718 ! 184: IVCOMP = 0 01810718 ! 185: IF (LPN003.AND..TRUE.) IVCOMP = 1 01820718 ! 186: 40050 IF (IVCOMP - 1) 20050, 10050, 20050 01830718 ! 187: 10050 IVPASS = IVPASS + 1 01840718 ! 188: WRITE (I02,80002) IVTNUM 01850718 ! 189: GO TO 0051 01860718 ! 190: 20050 IVFAIL = IVFAIL + 1 01870718 ! 191: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01880718 ! 192: 0051 CONTINUE 01890718 ! 193: C 01900718 ! 194: C TESTS 6-7 - TEST LOGICAL EXPRESSIONS INVOLVING .OR. 01910718 ! 195: C 01920718 ! 196: C 01930718 ! 197: CT006* TEST 006 **** FCVS PROGRAM 718 **** 01940718 ! 198: C 01950718 ! 199: C 01960718 ! 200: IVTNUM = 6 01970718 ! 201: LVCORR = .TRUE. 01980718 ! 202: LVCOMP = .TRUE..OR.LPN004 01990718 ! 203: IVCOMP = 0 02000718 ! 204: IF (LVCOMP) IVCOMP = 1 02010718 ! 205: IF (IVCOMP - 1) 20060, 10060, 20060 02020718 ! 206: 10060 IVPASS = IVPASS + 1 02030718 ! 207: WRITE (I02,80002) IVTNUM 02040718 ! 208: GO TO 0061 02050718 ! 209: 20060 IVFAIL = IVFAIL + 1 02060718 ! 210: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02070718 ! 211: 0061 CONTINUE 02080718 ! 212: C 02090718 ! 213: CT007* TEST 007 **** FCVS PROGRAM 718 **** 02100718 ! 214: C 02110718 ! 215: C 02120718 ! 216: IVTNUM = 7 02130718 ! 217: IVCORR = 1 02140718 ! 218: IVCOMP = 0 02150718 ! 219: IF (LPN001.OR..FALSE.) IVCOMP = 1 02160718 ! 220: 40070 IF (IVCOMP - 1) 20070, 10070, 20070 02170718 ! 221: 10070 IVPASS = IVPASS + 1 02180718 ! 222: WRITE (I02,80002) IVTNUM 02190718 ! 223: GO TO 0071 02200718 ! 224: 20070 IVFAIL = IVFAIL + 1 02210718 ! 225: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02220718 ! 226: 0071 CONTINUE 02230718 ! 227: C 02240718 ! 228: C TESTS 8-9 - TEST LOGICAL EXPRESSIONS INVOLVING .EQV. 02250718 ! 229: C 02260718 ! 230: C 02270718 ! 231: CT008* TEST 008 **** FCVS PROGRAM 718 **** 02280718 ! 232: C 02290718 ! 233: C 02300718 ! 234: IVTNUM = 8 02310718 ! 235: LVCORR = .TRUE. 02320718 ! 236: LVCOMP = .FALSE..EQV.LPN002 02330718 ! 237: IVCOMP = 0 02340718 ! 238: IF (LVCOMP) IVCOMP = 1 02350718 ! 239: IF (IVCOMP - 1) 20080, 10080, 20080 02360718 ! 240: 10080 IVPASS = IVPASS + 1 02370718 ! 241: WRITE (I02,80002) IVTNUM 02380718 ! 242: GO TO 0081 02390718 ! 243: 20080 IVFAIL = IVFAIL + 1 02400718 ! 244: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02410718 ! 245: 0081 CONTINUE 02420718 ! 246: C 02430718 ! 247: CT009* TEST 009 **** FCVS PROGRAM 718 **** 02440718 ! 248: C 02450718 ! 249: C 02460718 ! 250: IVTNUM = 9 02470718 ! 251: IVCORR = 1 02480718 ! 252: IVCOMP = 0 02490718 ! 253: IF (LPN003.EQV..TRUE.) IVCOMP = 1 02500718 ! 254: 40090 IF (IVCOMP - 1) 20090, 10090, 20090 02510718 ! 255: 10090 IVPASS = IVPASS + 1 02520718 ! 256: WRITE (I02,80002) IVTNUM 02530718 ! 257: GO TO 0091 02540718 ! 258: 20090 IVFAIL = IVFAIL + 1 02550718 ! 259: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02560718 ! 260: 0091 CONTINUE 02570718 ! 261: C 02580718 ! 262: C TESTS 10-11 - TEST LOGICAL EXPRESSIONS INVOLVING .NEQV. 02590718 ! 263: C 02600718 ! 264: C 02610718 ! 265: CT010* TEST 010 **** FCVS PROGRAM 718 **** 02620718 ! 266: C 02630718 ! 267: C 02640718 ! 268: IVTNUM = 10 02650718 ! 269: LVCORR = .TRUE. 02660718 ! 270: LVCOMP = .FALSE..NEQV.LPN001 02670718 ! 271: IVCOMP = 0 02680718 ! 272: IF (LVCOMP) IVCOMP = 1 02690718 ! 273: IF (IVCOMP - 1) 20100, 10100, 20100 02700718 ! 274: 10100 IVPASS = IVPASS + 1 02710718 ! 275: WRITE (I02,80002) IVTNUM 02720718 ! 276: GO TO 0101 02730718 ! 277: 20100 IVFAIL = IVFAIL + 1 02740718 ! 278: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02750718 ! 279: 0101 CONTINUE 02760718 ! 280: C 02770718 ! 281: CT011* TEST 011 **** FCVS PROGRAM 718 **** 02780718 ! 282: C 02790718 ! 283: C 02800718 ! 284: IVTNUM = 11 02810718 ! 285: IVCORR = 1 02820718 ! 286: IVCOMP = 0 02830718 ! 287: IF (LPN003.NEQV..FALSE.) IVCOMP = 1 02840718 ! 288: 40110 IF (IVCOMP - 1) 20110, 10110, 20110 02850718 ! 289: 10110 IVPASS = IVPASS + 1 02860718 ! 290: WRITE (I02,80002) IVTNUM 02870718 ! 291: GO TO 0111 02880718 ! 292: 20110 IVFAIL = IVFAIL + 1 02890718 ! 293: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02900718 ! 294: 0111 CONTINUE 02910718 ! 295: C 02920718 ! 296: C TESTS 12-17 - TEST LOGICAL EXPRESSIONS INVOLVING VARIOUS COMBINA- 02930718 ! 297: C TIONS OF LOGICAL OPERATORS AND ALSO TEST PRECEDENCE AMONG THE 02940718 ! 298: C LOGICAL OPERATORS WITH OR WITHOUT PARENTHESES 02950718 ! 299: C 02960718 ! 300: C 02970718 ! 301: CT012* TEST 012 **** FCVS PROGRAM 718 **** 02980718 ! 302: C 02990718 ! 303: C 03000718 ! 304: IVTNUM = 12 03010718 ! 305: LVCORR = .TRUE. 03020718 ! 306: LVN001 = .TRUE. 03030718 ! 307: LVCOMP = LVN001.EQV.LPN002.AND..TRUE..NEQV.LPN003 03040718 ! 308: IVCOMP = 0 03050718 ! 309: IF (LVCOMP) IVCOMP = 1 03060718 ! 310: IF (IVCOMP - 1) 20120, 10120, 20120 03070718 ! 311: 10120 IVPASS = IVPASS + 1 03080718 ! 312: WRITE (I02,80002) IVTNUM 03090718 ! 313: GO TO 0121 03100718 ! 314: 20120 IVFAIL = IVFAIL + 1 03110718 ! 315: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03120718 ! 316: 0121 CONTINUE 03130718 ! 317: C 03140718 ! 318: CT013* TEST 013 **** FCVS PROGRAM 718 **** 03150718 ! 319: C 03160718 ! 320: C 03170718 ! 321: IVTNUM = 13 03180718 ! 322: LVCORR = .FALSE. 03190718 ! 323: LVCOMP = (.TRUE..EQV..FALSE.).AND.(LVN001.NEQV.LPN003) 03200718 ! 324: IVCOMP = 0 03210718 ! 325: IF (LVCOMP) IVCOMP = 1 03220718 ! 326: IF (IVCOMP - 0) 20130, 10130, 20130 03230718 ! 327: 10130 IVPASS = IVPASS + 1 03240718 ! 328: WRITE (I02,80002) IVTNUM 03250718 ! 329: GO TO 0131 03260718 ! 330: 20130 IVFAIL = IVFAIL + 1 03270718 ! 331: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03280718 ! 332: 0131 CONTINUE 03290718 ! 333: C 03300718 ! 334: CT014* TEST 014 **** FCVS PROGRAM 718 **** 03310718 ! 335: C 03320718 ! 336: C 03330718 ! 337: IVTNUM = 14 03340718 ! 338: LVCORR = .TRUE. 03350718 ! 339: LVN001 = .FALSE. 03360718 ! 340: LVCOMP = LVN001.EQV.LPN002.AND..NOT.LPN001.OR..FALSE. 03370718 ! 341: IVCOMP = 0 03380718 ! 342: IF (LVCOMP) IVCOMP = 1 03390718 ! 343: IF (IVCOMP - 1) 20140, 10140, 20140 03400718 ! 344: 10140 IVPASS = IVPASS + 1 03410718 ! 345: WRITE (I02,80002) IVTNUM 03420718 ! 346: GO TO 0141 03430718 ! 347: 20140 IVFAIL = IVFAIL + 1 03440718 ! 348: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03450718 ! 349: 0141 CONTINUE 03460718 ! 350: C 03470718 ! 351: CT015* TEST 015 **** FCVS PROGRAM 718 **** 03480718 ! 352: C 03490718 ! 353: C 03500718 ! 354: IVTNUM = 15 03510718 ! 355: LVCORR = .FALSE. 03520718 ! 356: LVCOMP = (LVN001.EQV.LPN002).AND.(.NOT.LPN001.OR..FALSE.) 03530718 ! 357: IVCOMP = 0 03540718 ! 358: IF (LVCOMP) IVCOMP = 1 03550718 ! 359: IF (IVCOMP - 0) 20150, 10150, 20150 03560718 ! 360: 10150 IVPASS = IVPASS + 1 03570718 ! 361: WRITE (I02,80002) IVTNUM 03580718 ! 362: GO TO 0151 03590718 ! 363: 20150 IVFAIL = IVFAIL + 1 03600718 ! 364: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03610718 ! 365: 0151 CONTINUE 03620718 ! 366: C 03630718 ! 367: CT016* TEST 016 **** FCVS PROGRAM 718 **** 03640718 ! 368: C 03650718 ! 369: C 03660718 ! 370: IVTNUM = 16 03670718 ! 371: LVCORR = .TRUE. 03680718 ! 372: LVCOMP = LPN001.EQV.LVN001.OR..NOT.LPN003.NEQV..TRUE. 03690718 ! 373: IVCOMP = 0 03700718 ! 374: IF (LVCOMP) IVCOMP = 1 03710718 ! 375: IF (IVCOMP - 1) 20160, 10160, 20160 03720718 ! 376: 10160 IVPASS = IVPASS + 1 03730718 ! 377: WRITE (I02,80002) IVTNUM 03740718 ! 378: GO TO 0161 03750718 ! 379: 20160 IVFAIL = IVFAIL + 1 03760718 ! 380: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03770718 ! 381: 0161 CONTINUE 03780718 ! 382: C 03790718 ! 383: CT017* TEST 017 **** FCVS PROGRAM 718 **** 03800718 ! 384: C 03810718 ! 385: C 03820718 ! 386: IVTNUM = 17 03830718 ! 387: LVCORR = .TRUE. 03840718 ! 388: LVCOMP = LPN001.AND.(LVN001.OR..NOT.(LPN002.EQV.(LPN003.NEQV. 03850718 ! 389: 1 LPN004))) 03860718 ! 390: IVCOMP = 0 03870718 ! 391: IF (LVCOMP) IVCOMP = 1 03880718 ! 392: IF (IVCOMP - 1) 20170, 10170, 20170 03890718 ! 393: 10170 IVPASS = IVPASS + 1 03900718 ! 394: WRITE (I02,80002) IVTNUM 03910718 ! 395: GO TO 0171 03920718 ! 396: 20170 IVFAIL = IVFAIL + 1 03930718 ! 397: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03940718 ! 398: 0171 CONTINUE 03950718 ! 399: C 03960718 ! 400: C TESTS 18-21 - TEST LOGICAL EXPRESSIONS INVOLOVING .EQV. 03970718 ! 401: C 03980718 ! 402: C 03990718 ! 403: CT018* TEST 018 **** FCVS PROGRAM 718 **** 04000718 ! 404: C 04010718 ! 405: C 04020718 ! 406: IVTNUM = 18 04030718 ! 407: LVCORR = .TRUE. 04040718 ! 408: LVCOMP = LPN001.EQV.LPN003 04050718 ! 409: IVCOMP = 0 04060718 ! 410: IF (LVCOMP) IVCOMP = 1 04070718 ! 411: IF (IVCOMP - 1) 20180, 10180, 20180 04080718 ! 412: 10180 IVPASS = IVPASS + 1 04090718 ! 413: WRITE (I02,80002) IVTNUM 04100718 ! 414: GO TO 0181 04110718 ! 415: 20180 IVFAIL = IVFAIL + 1 04120718 ! 416: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04130718 ! 417: 0181 CONTINUE 04140718 ! 418: C 04150718 ! 419: CT019* TEST 019 **** FCVS PROGRAM 718 **** 04160718 ! 420: C 04170718 ! 421: C 04180718 ! 422: IVTNUM = 19 04190718 ! 423: LVCORR = .FALSE. 04200718 ! 424: LVCOMP = LPN001.EQV.LPN002 04210718 ! 425: IVCOMP = 0 04220718 ! 426: IF (LVCOMP) IVCOMP = 1 04230718 ! 427: IF (IVCOMP - 0) 20190, 10190, 20190 04240718 ! 428: 10190 IVPASS = IVPASS + 1 04250718 ! 429: WRITE (I02,80002) IVTNUM 04260718 ! 430: GO TO 0191 04270718 ! 431: 20190 IVFAIL = IVFAIL + 1 04280718 ! 432: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04290718 ! 433: 0191 CONTINUE 04300718 ! 434: C 04310718 ! 435: CT020* TEST 020 **** FCVS PROGRAM 718 **** 04320718 ! 436: C 04330718 ! 437: C 04340718 ! 438: IVTNUM = 20 04350718 ! 439: LVCORR = .FALSE. 04360718 ! 440: LVCOMP = LPN002.EQV.LPN003 04370718 ! 441: IVCOMP = 0 04380718 ! 442: IF (LVCOMP) IVCOMP = 1 04390718 ! 443: IF (IVCOMP - 0) 20200, 10200, 20200 04400718 ! 444: 10200 IVPASS = IVPASS + 1 04410718 ! 445: WRITE (I02,80002) IVTNUM 04420718 ! 446: GO TO 0201 04430718 ! 447: 20200 IVFAIL = IVFAIL + 1 04440718 ! 448: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04450718 ! 449: 0201 CONTINUE 04460718 ! 450: C 04470718 ! 451: CT021* TEST 021 **** FCVS PROGRAM 718 **** 04480718 ! 452: C 04490718 ! 453: C 04500718 ! 454: IVTNUM = 21 04510718 ! 455: LVCORR = .TRUE. 04520718 ! 456: LVCOMP = LPN002.EQV.LPN004 04530718 ! 457: IVCOMP = 0 04540718 ! 458: IF (LVCOMP) IVCOMP = 1 04550718 ! 459: IF (IVCOMP - 1) 20210, 10210, 20210 04560718 ! 460: 10210 IVPASS = IVPASS + 1 04570718 ! 461: WRITE (I02,80002) IVTNUM 04580718 ! 462: GO TO 0211 04590718 ! 463: 20210 IVFAIL = IVFAIL + 1 04600718 ! 464: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04610718 ! 465: 0211 CONTINUE 04620718 ! 466: C 04630718 ! 467: C TESTS 22-25 - TEST LOGICAL EXPRESSIONS INVOLVING .NEQV. 04640718 ! 468: C 04650718 ! 469: C 04660718 ! 470: CT022* TEST 022 **** FCVS PROGRAM 718 **** 04670718 ! 471: C 04680718 ! 472: C 04690718 ! 473: IVTNUM = 22 04700718 ! 474: LVCORR = .FALSE. 04710718 ! 475: LVCOMP = LPN001.NEQV.LPN003 04720718 ! 476: IVCOMP = 0 04730718 ! 477: IF (LVCOMP) IVCOMP = 1 04740718 ! 478: IF (IVCOMP - 0) 20220, 10220, 20220 04750718 ! 479: 10220 IVPASS = IVPASS + 1 04760718 ! 480: WRITE (I02,80002) IVTNUM 04770718 ! 481: GO TO 0221 04780718 ! 482: 20220 IVFAIL = IVFAIL + 1 04790718 ! 483: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04800718 ! 484: 0221 CONTINUE 04810718 ! 485: C 04820718 ! 486: CT023* TEST 023 **** FCVS PROGRAM 718 **** 04830718 ! 487: C 04840718 ! 488: C 04850718 ! 489: IVTNUM = 23 04860718 ! 490: LVCORR = .TRUE. 04870718 ! 491: LVCOMP = LPN001.NEQV.LPN002 04880718 ! 492: IVCOMP = 0 04890718 ! 493: IF (LVCOMP) IVCOMP = 1 04900718 ! 494: IF (IVCOMP - 1) 20230, 10230, 20230 04910718 ! 495: 10230 IVPASS = IVPASS + 1 04920718 ! 496: WRITE (I02,80002) IVTNUM 04930718 ! 497: GO TO 0231 04940718 ! 498: 20230 IVFAIL = IVFAIL + 1 04950718 ! 499: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04960718 ! 500: 0231 CONTINUE 04970718 ! 501: C 04980718 ! 502: CT024* TEST 024 **** FCVS PROGRAM 718 **** 04990718 ! 503: C 05000718 ! 504: C 05010718 ! 505: IVTNUM = 24 05020718 ! 506: LVCORR = .TRUE. 05030718 ! 507: LVCOMP = LPN002.NEQV.LPN003 05040718 ! 508: IVCOMP = 0 05050718 ! 509: IF (LVCOMP) IVCOMP = 1 05060718 ! 510: IF (IVCOMP - 1) 20240, 10240, 20240 05070718 ! 511: 10240 IVPASS = IVPASS + 1 05080718 ! 512: WRITE (I02,80002) IVTNUM 05090718 ! 513: GO TO 0241 05100718 ! 514: 20240 IVFAIL = IVFAIL + 1 05110718 ! 515: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05120718 ! 516: 0241 CONTINUE 05130718 ! 517: C 05140718 ! 518: CT025* TEST 025 **** FCVS PROGRAM 718 **** 05150718 ! 519: C 05160718 ! 520: C 05170718 ! 521: IVTNUM = 25 05180718 ! 522: LVCORR = .FALSE. 05190718 ! 523: LVCOMP = LPN002.NEQV.LPN004 05200718 ! 524: IVCOMP = 0 05210718 ! 525: IF (LVCOMP) IVCOMP = 1 05220718 ! 526: IF (IVCOMP - 0) 20250, 10250, 20250 05230718 ! 527: 10250 IVPASS = IVPASS + 1 05240718 ! 528: WRITE (I02,80002) IVTNUM 05250718 ! 529: GO TO 0251 05260718 ! 530: 20250 IVFAIL = IVFAIL + 1 05270718 ! 531: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05280718 ! 532: 0251 CONTINUE 05290718 ! 533: C 05300718 ! 534: C TESTS 26-29 TEST LOGICAL CONSTANT EXPRESSIONS USING SYMBOLIC NAMES 05310718 ! 535: C OF LOGICAL CONSTANTS 05320718 ! 536: C 05330718 ! 537: C 05340718 ! 538: CT026* TEST 026 **** FCVS PROGRAM 718 **** 05350718 ! 539: C 05360718 ! 540: C 05370718 ! 541: IVTNUM = 26 05380718 ! 542: LVCORR = .FALSE. 05390718 ! 543: LVCOMP = LPN001.EQV.LPN002.NEQV.LPN004 05400718 ! 544: IVCOMP = 0 05410718 ! 545: IF (LVCOMP) IVCOMP = 1 05420718 ! 546: IF (IVCOMP - 0) 20260, 10260, 20260 05430718 ! 547: 10260 IVPASS = IVPASS + 1 05440718 ! 548: WRITE (I02,80002) IVTNUM 05450718 ! 549: GO TO 0261 05460718 ! 550: 20260 IVFAIL = IVFAIL + 1 05470718 ! 551: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05480718 ! 552: 0261 CONTINUE 05490718 ! 553: C 05500718 ! 554: CT027* TEST 027 **** FCVS PROGRAM 718 **** 05510718 ! 555: C 05520718 ! 556: C 05530718 ! 557: IVTNUM = 27 05540718 ! 558: LVCORR = .TRUE. 05550718 ! 559: LVCOMP = LPN003.NEQV.LPN001.AND.LPN002 05560718 ! 560: IVCOMP = 0 05570718 ! 561: IF (LVCOMP) IVCOMP = 1 05580718 ! 562: IF (IVCOMP - 1) 20270, 10270, 20270 05590718 ! 563: 10270 IVPASS = IVPASS + 1 05600718 ! 564: WRITE (I02,80002) IVTNUM 05610718 ! 565: GO TO 0271 05620718 ! 566: 20270 IVFAIL = IVFAIL + 1 05630718 ! 567: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05640718 ! 568: 0271 CONTINUE 05650718 ! 569: C 05660718 ! 570: CT028* TEST 028 **** FCVS PROGRAM 718 **** 05670718 ! 571: C 05680718 ! 572: C 05690718 ! 573: IVTNUM = 28 05700718 ! 574: LVCORR = .FALSE. 05710718 ! 575: LVCOMP = (LPN003.NEQV.LPN001).AND.LPN002 05720718 ! 576: IVCOMP = 0 05730718 ! 577: IF (LVCOMP) IVCOMP = 1 05740718 ! 578: IF (IVCOMP - 0) 20280, 10280, 20280 05750718 ! 579: 10280 IVPASS = IVPASS + 1 05760718 ! 580: WRITE (I02,80002) IVTNUM 05770718 ! 581: GO TO 0281 05780718 ! 582: 20280 IVFAIL = IVFAIL + 1 05790718 ! 583: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05800718 ! 584: 0281 CONTINUE 05810718 ! 585: C 05820718 ! 586: CT029* TEST 029 **** FCVS PROGRAM 718 **** 05830718 ! 587: C 05840718 ! 588: C 05850718 ! 589: IVTNUM = 29 05860718 ! 590: LVCORR = .TRUE. 05870718 ! 591: LVCOMP = .NOT.(LPN002.EQV.LPN004.AND.LPN001.OR.LPN003) 05880718 ! 592: IVCOMP = 0 05890718 ! 593: IF (LVCOMP) IVCOMP = 1 05900718 ! 594: IF (IVCOMP - 1) 20290, 10290, 20290 05910718 ! 595: 10290 IVPASS = IVPASS + 1 05920718 ! 596: WRITE (I02,80002) IVTNUM 05930718 ! 597: GO TO 0291 05940718 ! 598: 20290 IVFAIL = IVFAIL + 1 05950718 ! 599: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05960718 ! 600: 0291 CONTINUE 05970718 ! 601: C 05980718 ! 602: CBB** ********************** BBCSUM0 **********************************05990718 ! 603: C**** WRITE OUT TEST SUMMARY 06000718 ! 604: C**** 06010718 ! 605: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 06020718 ! 606: WRITE (I02, 90004) 06030718 ! 607: WRITE (I02, 90014) 06040718 ! 608: WRITE (I02, 90004) 06050718 ! 609: WRITE (I02, 90020) IVPASS 06060718 ! 610: WRITE (I02, 90022) IVFAIL 06070718 ! 611: WRITE (I02, 90024) IVDELE 06080718 ! 612: WRITE (I02, 90026) IVINSP 06090718 ! 613: WRITE (I02, 90028) IVTOTN, IVTOTL 06100718 ! 614: CBE** ********************** BBCSUM0 **********************************06110718 ! 615: CBB** ********************** BBCFOOT0 **********************************06120718 ! 616: C**** WRITE OUT REPORT FOOTINGS 06130718 ! 617: C**** 06140718 ! 618: WRITE (I02,90016) ZPROG, ZPROG 06150718 ! 619: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 06160718 ! 620: WRITE (I02,90019) 06170718 ! 621: CBE** ********************** BBCFOOT0 **********************************06180718 ! 622: 90001 FORMAT (1H ,56X,5HFM718) 06190718 ! 623: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM718) 06200718 ! 624: CBB** ********************** BBCFMT0A **********************************06210718 ! 625: C**** FORMATS FOR TEST DETAIL LINES 06220718 ! 626: C**** 06230718 ! 627: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 06240718 ! 628: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 06250718 ! 629: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 06260718 ! 630: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 06270718 ! 631: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 06280718 ! 632: 1I6,/,1H ,15X,10HCORRECT= ,I6) 06290718 ! 633: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06300718 ! 634: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 06310718 ! 635: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06320718 ! 636: 1A21,/,1H ,16X,10HCORRECT= ,A21) 06330718 ! 637: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 06340718 ! 638: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 06350718 ! 639: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 06360718 ! 640: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 06370718 ! 641: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 06380718 ! 642: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 06390718 ! 643: 80050 FORMAT (1H ,48X,A31) 06400718 ! 644: CBE** ********************** BBCFMT0A **********************************06410718 ! 645: CBB** ********************** BBCFMAT1 **********************************06420718 ! 646: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06430718 ! 647: C**** 06440718 ! 648: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06450718 ! 649: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 06460718 ! 650: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 06470718 ! 651: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 06480718 ! 652: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06490718 ! 653: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06500718 ! 654: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06510718 ! 655: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06520718 ! 656: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06530718 ! 657: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06540718 ! 658: 21H(,F12.5,2H, ,F12.5,1H)) 06550718 ! 659: CBE** ********************** BBCFMAT1 **********************************06560718 ! 660: CBB** ********************** BBCFMT0B **********************************06570718 ! 661: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06580718 ! 662: C**** 06590718 ! 663: 90002 FORMAT (1H1) 06600718 ! 664: 90004 FORMAT (1H ) 06610718 ! 665: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06620718 ! 666: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06630718 ! 667: 90008 FORMAT (1H ,21X,A13,A17) 06640718 ! 668: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06650718 ! 669: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06660718 ! 670: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06670718 ! 671: 1 7X,7HREMARKS,24X) 06680718 ! 672: 90014 FORMAT (1H ,46H----------------------------------------------, 06690718 ! 673: 1 33H---------------------------------) 06700718 ! 674: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06710718 ! 675: C**** 06720718 ! 676: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06730718 ! 677: C**** 06740718 ! 678: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06750718 ! 679: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06760718 ! 680: 1 A13) 06770718 ! 681: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06780718 ! 682: C**** 06790718 ! 683: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06800718 ! 684: C**** 06810718 ! 685: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06820718 ! 686: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06830718 ! 687: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06840718 ! 688: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06850718 ! 689: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06860718 ! 690: CBE** ********************** BBCFMT0B **********************************06870718 ! 691: END 06880718
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.