![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm019.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests|
Return to fm019.f CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: c ! 2: c comment section. ! 3: c ! 4: c fm019 ! 5: c ! 6: c this routine continues tests of the fortran logical if state ! 7: c by testing various forms of relational expressions with arithmetic ! 8: c expressions . positive and negative signs are used in conjunction ! 9: c with parentheses. combinations of logical .and. .or. ! 10: c .not. are used to test the more complex expressions. ! 11: c ! 12: c references ! 13: c american national standard programming language fortran, ! 14: c x3.9-1978 ! 15: c ! 16: c section 4.7.1, logical constant ! 17: c section 6, expressions ! 18: c section 11.5, logical if statement ! 19: c ! 20: logical lctnt1, lctnt2 ! 21: c ! 22: c ********************************************************** ! 23: c ! 24: c a compiler validation system for the fortran language ! 25: c based on specifications as defined in american national standard ! 26: c programming language fortran x3.9-1978, has been developed by the ! 27: c federal cobol compiler testing service. the fortran compiler ! 28: c validation system (fcvs) consists of audit routines, their related ! 29: c data, and an executive system. each audit routine is a fortran ! 30: c program, subprogram or function which includes tests of specific ! 31: c language elements and supporting procedures indicating the result ! 32: c of executing these tests. ! 33: c ! 34: c this particular program/subprogram/function contains features ! 35: c found only in the subset as defined in x3.9-1978. ! 36: c ! 37: c suggestions and comments should be forwarded to - ! 38: c ! 39: c department of the navy ! 40: c federal cobol compiler testing service ! 41: c washington, d.c. 20376 ! 42: c ! 43: c ********************************************************** ! 44: c ! 45: c ! 46: c ! 47: c initialization section ! 48: c ! 49: c initialize constants ! 50: c ************** ! 51: c i01 contains the logical unit number for the card reader. ! 52: i01 = 5 ! 53: c i02 contains the logical unit number for the printer. ! 54: i02 = 6 ! 55: c system environment section ! 56: c ! 57: cx010 this card is replaced by contents of fexec x-010 control card. ! 58: c the cx010 card is for overriding the program default i01 = 5 ! 59: c (unit number for card reader). ! 60: cx011 this card is replaced by contents of fexec x-011 control card. ! 61: c the cx011 card is for systems which require additional ! 62: c fortran statements for files associated with cx010 above. ! 63: c ! 64: cx020 this card is replaced by contents of fexec x-020 control card. ! 65: c the cx020 card is for overriding the program default i02 = 6 ! 66: c (unit number for printer). ! 67: cx021 this card is replaced by contents of fexec x-021 control card. ! 68: c the cx021 card is for systems which require additional ! 69: c fortran statements for files associated with cx020 above. ! 70: c ! 71: ivpass=0 ! 72: ivfail=0 ! 73: ivdele=0 ! 74: iczero=0 ! 75: c ! 76: c write page headers ! 77: write (i02,90000) ! 78: write (i02,90001) ! 79: write (i02,90002) ! 80: write (i02, 90002) ! 81: write (i02,90003) ! 82: write (i02,90002) ! 83: write (i02,90004) ! 84: write (i02,90002) ! 85: write (i02,90011) ! 86: write (i02,90002) ! 87: write (i02,90002) ! 88: write (i02,90005) ! 89: write (i02,90006) ! 90: write (i02,90002) ! 91: ivtnum = 530 ! 92: c ! 93: c **** test 530 **** ! 94: c test 530 - test of positively signed term +(ic) (ro) -(ic) ! 95: c .lt. false path ! 96: c ! 97: if (iczero) 35300, 5300, 35300 ! 98: 5300 continue ! 99: ivon01 = 1 ! 100: if ( +3 .lt. -3) ivon01 = 0 ! 101: go to 45300 ! 102: 35300 ivdele = ivdele + 1 ! 103: write (i02,80003) ivtnum ! 104: if (iczero) 45300, 5311, 45300 ! 105: 45300 if ( ivon01 - 1 ) 25300, 15300, 25300 ! 106: 15300 ivpass = ivpass + 1 ! 107: write (i02,80001) ivtnum ! 108: go to 5311 ! 109: 25300 ivfail = ivfail + 1 ! 110: ivcomp = ivon01 ! 111: ivcorr = 1 ! 112: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 113: 5311 continue ! 114: ivtnum = 531 ! 115: c ! 116: c **** test 531 **** ! 117: c test 531 - test of signed zero .lt. false path ! 118: c ! 119: c ! 120: if (iczero) 35310, 5310, 35310 ! 121: 5310 continue ! 122: ivon01 = 1 ! 123: if ( +0 .lt. -0 ) ivon01 = 0 ! 124: go to 45310 ! 125: 35310 ivdele = ivdele + 1 ! 126: write (i02,80003) ivtnum ! 127: if (iczero) 45310, 5321, 45310 ! 128: 45310 if ( ivon01 - 1 ) 25310, 15310, 25310 ! 129: 15310 ivpass = ivpass + 1 ! 130: write (i02,80001) ivtnum ! 131: go to 5321 ! 132: 25310 ivfail = ivfail + 1 ! 133: ivcomp = ivon01 ! 134: ivcorr = 1 ! 135: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 136: 5321 continue ! 137: ivtnum = 532 ! 138: c ! 139: c **** test 532 **** ! 140: c test 532 - test of signed zero .le. true path ! 141: c ! 142: c ! 143: if (iczero) 35320, 5320, 35320 ! 144: 5320 continue ! 145: ivon01 = 0 ! 146: if ( +0 .le. -0 ) ivon01 = 1 ! 147: go to 45320 ! 148: 35320 ivdele = ivdele + 1 ! 149: write (i02,80003) ivtnum ! 150: if (iczero) 45320, 5331, 45320 ! 151: 45320 if ( ivon01 - 1 ) 25320, 15320, 25320 ! 152: 15320 ivpass = ivpass + 1 ! 153: write (i02,80001) ivtnum ! 154: go to 5331 ! 155: 25320 ivfail = ivfail + 1 ! 156: ivcomp = ivon01 ! 157: ivcorr = 1 ! 158: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 159: 5331 continue ! 160: ivtnum = 533 ! 161: c ! 162: c **** test 533 **** ! 163: c test 533 - test of signed zero .eq. true path ! 164: c ! 165: c ! 166: if (iczero) 35330, 5330, 35330 ! 167: 5330 continue ! 168: ivon01 = 0 ! 169: if ( +0 .eq. -0 ) ivon01 = 1 ! 170: go to 45330 ! 171: 35330 ivdele = ivdele + 1 ! 172: write (i02,80003) ivtnum ! 173: if (iczero) 45330, 5341, 45330 ! 174: 45330 if ( ivon01 - 1 ) 25330, 15330, 25330 ! 175: 15330 ivpass = ivpass + 1 ! 176: write (i02,80001) ivtnum ! 177: go to 5341 ! 178: 25330 ivfail = ivfail + 1 ! 179: ivcomp = ivon01 ! 180: ivcorr = 1 ! 181: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 182: 5341 continue ! 183: ivtnum = 534 ! 184: c ! 185: c **** test 534 **** ! 186: c test 534 - test of signed zero .ne. false path ! 187: c ! 188: c ! 189: if (iczero) 35340, 5340, 35340 ! 190: 5340 continue ! 191: ivon01 = 1 ! 192: if ( +0 .ne. -0 ) ivon01 = 0 ! 193: go to 45340 ! 194: 35340 ivdele = ivdele + 1 ! 195: write (i02,80003) ivtnum ! 196: if (iczero) 45340, 5351, 45340 ! 197: 45340 if ( ivon01 - 1 ) 25340, 15340, 25340 ! 198: 15340 ivpass = ivpass + 1 ! 199: write (i02,80001) ivtnum ! 200: go to 5351 ! 201: 25340 ivfail = ivfail + 1 ! 202: ivcomp = ivon01 ! 203: ivcorr = 1 ! 204: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 205: 5351 continue ! 206: ivtnum = 535 ! 207: c ! 208: c **** test 535 **** ! 209: c test 535 - test of signed zero .ge. true path ! 210: c ! 211: c ! 212: if (iczero) 35350, 5350, 35350 ! 213: 5350 continue ! 214: ivon01 = 0 ! 215: if ( +0 .ge. -0 ) ivon01 = 1 ! 216: go to 45350 ! 217: 35350 ivdele = ivdele + 1 ! 218: write (i02,80003) ivtnum ! 219: if (iczero) 45350, 5361, 45350 ! 220: 45350 if ( ivon01 - 1 ) 25350, 15350, 25350 ! 221: 15350 ivpass = ivpass + 1 ! 222: write (i02,80001) ivtnum ! 223: go to 5361 ! 224: 25350 ivfail = ivfail + 1 ! 225: ivcomp = ivon01 ! 226: ivcorr = 1 ! 227: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 228: 5361 continue ! 229: ivtnum = 536 ! 230: c ! 231: c **** test 536 **** ! 232: c test 536 - test of signed zero .gt. false path ! 233: c ! 234: c ! 235: if (iczero) 35360, 5360, 35360 ! 236: 5360 continue ! 237: ivon01 = 1 ! 238: if ( +0 .gt. -0 ) ivon01 = 0 ! 239: go to 45360 ! 240: 35360 ivdele = ivdele + 1 ! 241: write (i02,80003) ivtnum ! 242: if (iczero) 45360, 5371, 45360 ! 243: 45360 if ( ivon01 - 1 ) 25360, 15360, 25360 ! 244: 15360 ivpass = ivpass + 1 ! 245: write (i02,80001) ivtnum ! 246: go to 5371 ! 247: 25360 ivfail = ivfail + 1 ! 248: ivcomp = ivon01 ! 249: ivcorr = 1 ! 250: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 251: 5371 continue ! 252: ivtnum = 537 ! 253: c ! 254: c **** test 537 **** ! 255: c test 537 - test of +32767 .eq. -32766 false path ! 256: c ! 257: c ! 258: if (iczero) 35370, 5370, 35370 ! 259: 5370 continue ! 260: ivon01 = 1 ! 261: if ( +32767 .eq. -32766 ) ivon01 = 0 ! 262: go to 45370 ! 263: 35370 ivdele = ivdele + 1 ! 264: write (i02,80003) ivtnum ! 265: if (iczero) 45370, 5381, 45370 ! 266: 45370 if ( ivon01 - 1 ) 25370, 15370, 25370 ! 267: 15370 ivpass = ivpass + 1 ! 268: write (i02,80001) ivtnum ! 269: go to 5381 ! 270: 25370 ivfail = ivfail + 1 ! 271: ivcomp = ivon01 ! 272: ivcorr = 1 ! 273: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 274: 5381 continue ! 275: ivtnum = 538 ! 276: c ! 277: c **** test 538 **** ! 278: c test 538 - tests minus sign with integer variables ! 279: c relational expression uses .le. true path ! 280: c ! 281: c ! 282: if (iczero) 35380, 5380, 35380 ! 283: 5380 continue ! 284: ivon01 = 0 ! 285: ivon02 = 3 ! 286: if ( -ivon02 .le. -ivon02 ) ivon01 = 1 ! 287: go to 45380 ! 288: 35380 ivdele = ivdele + 1 ! 289: write (i02,80003) ivtnum ! 290: if (iczero) 45380, 5391, 45380 ! 291: 45380 if ( ivon01 - 1 ) 25380, 15380, 25380 ! 292: 15380 ivpass = ivpass + 1 ! 293: write (i02,80001) ivtnum ! 294: go to 5391 ! 295: 25380 ivfail = ivfail + 1 ! 296: ivcomp = ivon01 ! 297: ivcorr = 1 ! 298: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 299: 5391 continue ! 300: ivtnum = 539 ! 301: c ! 302: c **** test 539 **** ! 303: c test 539 - test is like test 538 uses .ge. true path ! 304: c ! 305: c ! 306: if (iczero) 35390, 5390, 35390 ! 307: 5390 continue ! 308: ivon01 = 0 ! 309: ivon02 = 32766 ! 310: if ( -ivon02 .ge. -ivon02 ) ivon01 = 1 ! 311: go to 45390 ! 312: 35390 ivdele = ivdele + 1 ! 313: write (i02,80003) ivtnum ! 314: if (iczero) 45390, 5401, 45390 ! 315: 45390 if ( ivon01 - 1 ) 25390, 15390, 25390 ! 316: 15390 ivpass = ivpass + 1 ! 317: write (i02,80001) ivtnum ! 318: go to 5401 ! 319: 25390 ivfail = ivfail + 1 ! 320: ivcomp = ivon01 ! 321: ivcorr = 1 ! 322: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 323: 5401 continue ! 324: ivtnum = 540 ! 325: c ! 326: c **** test 540 **** ! 327: c test 540 - integer exponientiation and minus sign uses .ne. ! 328: c false path ! 329: c ! 330: c ! 331: if (iczero) 35400, 5400, 35400 ! 332: 5400 continue ! 333: ivon01 = 1 ! 334: ivon02 = 3 ! 335: if ( -ivon02 ** 3 .ne. -27 ) ivon01 = 0 ! 336: go to 45400 ! 337: 35400 ivdele = ivdele + 1 ! 338: write (i02,80003) ivtnum ! 339: if (iczero) 45400, 5411, 45400 ! 340: 45400 if ( ivon01 - 1 ) 25400, 15400, 25400 ! 341: 15400 ivpass = ivpass + 1 ! 342: write (i02,80001) ivtnum ! 343: go to 5411 ! 344: 25400 ivfail = ivfail + 1 ! 345: ivcomp = ivon01 ! 346: ivcorr = 1 ! 347: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 348: 5411 continue ! 349: ivtnum = 541 ! 350: c ! 351: c **** test 541 **** ! 352: c test 541 - like test 540 uses .le. true path ! 353: c ! 354: c ! 355: if (iczero) 35410, 5410, 35410 ! 356: 5410 continue ! 357: ivon01 = 0 ! 358: ivon02 = 3 ! 359: if ( -3 ** ivon02 .le. -27 ) ivon01 = 1 ! 360: go to 45410 ! 361: 35410 ivdele = ivdele + 1 ! 362: write (i02,80003) ivtnum ! 363: if (iczero) 45410, 5421, 45410 ! 364: 45410 if ( ivon01 - 1 ) 25410, 15410, 25410 ! 365: 15410 ivpass = ivpass + 1 ! 366: write (i02,80001) ivtnum ! 367: go to 5421 ! 368: 25410 ivfail = ivfail + 1 ! 369: ivcomp = ivon01 ! 370: ivcorr = 1 ! 371: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 372: 5421 continue ! 373: ivtnum = 542 ! 374: c ! 375: c **** test 542 **** ! 376: c test 542 - integer exponientiation and multiplication ! 377: c uses .eq. true path ! 378: c ! 379: c ! 380: if (iczero) 35420, 5420, 35420 ! 381: 5420 continue ! 382: ivon01 = 0 ! 383: ivon02 = 3 ! 384: ivon03 = 27 ! 385: if ( -ivon02 ** 2 * ivon02 .eq. -ivon03 ) ivon01 = 1 ! 386: go to 45420 ! 387: 35420 ivdele = ivdele + 1 ! 388: write (i02,80003) ivtnum ! 389: if (iczero) 45420, 5431, 45420 ! 390: 45420 if ( ivon01 - 1 ) 25420, 15420, 25420 ! 391: 15420 ivpass = ivpass + 1 ! 392: write (i02,80001) ivtnum ! 393: go to 5431 ! 394: 25420 ivfail = ivfail + 1 ! 395: ivcomp = ivon01 ! 396: ivcorr = 1 ! 397: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 398: 5431 continue ! 399: ivtnum = 543 ! 400: c ! 401: c **** test 543 **** ! 402: c test 543 - integer exponientiation and division ! 403: c uses .lt. true path ! 404: c ! 405: c ! 406: if (iczero) 35430, 5430, 35430 ! 407: 5430 continue ! 408: ivon01 = 0 ! 409: ivon02 = 587 ! 410: ivon03 = 3 ! 411: ivon04 = 3 ! 412: if ( -ivon02/ivon04 ** 3 .lt. -3 ** ivon03/ivon02 ) ivon01 = 1 ! 413: go to 45430 ! 414: 35430 ivdele = ivdele + 1 ! 415: write (i02,80003) ivtnum ! 416: if (iczero) 45430, 5441, 45430 ! 417: 45430 if ( ivon01 - 1 ) 25430, 15430, 25430 ! 418: 15430 ivpass = ivpass + 1 ! 419: write (i02,80001) ivtnum ! 420: go to 5441 ! 421: 25430 ivfail = ivfail + 1 ! 422: ivcomp = ivon01 ! 423: ivcorr = 1 ! 424: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 425: 5441 continue ! 426: ivtnum = 544 ! 427: c ! 428: c **** test 544 **** ! 429: c test 544 - integer addition and subtraction ! 430: c uses .eq. true path ! 431: c ! 432: c ! 433: if (iczero) 35440, 5440, 35440 ! 434: 5440 continue ! 435: ivon01 = 0 ! 436: ivon02 = 3 ! 437: ivon03 = 587 ! 438: if ( ivon02 - ivon03 .eq. -ivon03 + ivon02 ) ivon01 = 1 ! 439: go to 45440 ! 440: 35440 ivdele = ivdele + 1 ! 441: write (i02,80003) ivtnum ! 442: if (iczero) 45440, 5451, 45440 ! 443: 45440 if ( ivon01 - 1 ) 25440, 15440, 25440 ! 444: 15440 ivpass = ivpass + 1 ! 445: write (i02,80001) ivtnum ! 446: go to 5451 ! 447: 25440 ivfail = ivfail + 1 ! 448: ivcomp = ivon01 ! 449: ivcorr = 1 ! 450: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 451: 5451 continue ! 452: ivtnum = 545 ! 453: c ! 454: c **** test 545 **** ! 455: c test 545 - integer addition and subtraction with parentheses ! 456: c uses .eq. true path like test 544 ! 457: c ! 458: c ! 459: if (iczero) 35450, 5450, 35450 ! 460: 5450 continue ! 461: ivon01 = 0 ! 462: ivon02 = 3 ! 463: ivon03 = 587 ! 464: if ( (ivon02 - ivon03) .eq. (-ivon03 + ivon02) ) ivon01 = 1 ! 465: go to 45450 ! 466: 35450 ivdele = ivdele + 1 ! 467: write (i02,80003) ivtnum ! 468: if (iczero) 45450, 5461, 45450 ! 469: 45450 if ( ivon01 - 1 ) 25450, 15450, 25450 ! 470: 15450 ivpass = ivpass + 1 ! 471: write (i02,80001) ivtnum ! 472: go to 5461 ! 473: 25450 ivfail = ivfail + 1 ! 474: ivcomp = ivon01 ! 475: ivcorr = 1 ! 476: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 477: 5461 continue ! 478: ivtnum = 546 ! 479: c ! 480: c **** test 546 **** ! 481: c test 546 - integer exponientiation and division with parens ! 482: c uses .lt. true path ! 483: c ! 484: c ! 485: if (iczero) 35460, 5460, 35460 ! 486: 5460 continue ! 487: ivon01 = 0 ! 488: ivon02 = 587 ! 489: ivon03 = 3 ! 490: ivon04 = 3 ! 491: if ((-ivon02/(ivon04**3)).lt.((-3**ivon03)/ivon02))ivon01=1 ! 492: go to 45460 ! 493: 35460 ivdele = ivdele + 1 ! 494: write (i02,80003) ivtnum ! 495: if (iczero) 45460, 5471, 45460 ! 496: 45460 if ( ivon01 - 1 ) 25460, 15460, 25460 ! 497: 15460 ivpass = ivpass + 1 ! 498: write (i02,80001) ivtnum ! 499: go to 5471 ! 500: 25460 ivfail = ivfail + 1 ! 501: ivcomp = ivon01 ! 502: ivcorr = 1 ! 503: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 504: 5471 continue ! 505: ivtnum = 547 ! 506: c ! 507: c **** test 547 **** ! 508: c test 547 - integer multiplication with parentheses .lt. false ! 509: c ! 510: c ! 511: if (iczero) 35470, 5470, 35470 ! 512: 5470 continue ! 513: ivon01 = 1 ! 514: ivon02 = 587 ! 515: if ((-3)*(-3).lt.(-ivon02))ivon01=0 ! 516: go to 45470 ! 517: 35470 ivdele = ivdele + 1 ! 518: write (i02,80003) ivtnum ! 519: if (iczero) 45470, 5481, 45470 ! 520: 45470 if ( ivon01 - 1 ) 25470, 15470, 25470 ! 521: 15470 ivpass = ivpass + 1 ! 522: write (i02,80001) ivtnum ! 523: go to 5481 ! 524: 25470 ivfail = ivfail + 1 ! 525: ivcomp = ivon01 ! 526: ivcorr = 1 ! 527: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 528: 5481 continue ! 529: ivtnum = 548 ! 530: c ! 531: c **** test 548 **** ! 532: c test 548 - integer exponientiation, minus signs, and parentheses ! 533: c uses .le. true path ! 534: c ! 535: c ! 536: if (iczero) 35480, 5480, 35480 ! 537: 5480 continue ! 538: ivon01 = 0 ! 539: ivon02 = 3 ! 540: ivon03 = 27 ! 541: if ( ((-ivon02) ** ivon02 .le. (-ivon03))) ivon01 = 1 ! 542: go to 45480 ! 543: 35480 ivdele = ivdele + 1 ! 544: write (i02,80003) ivtnum ! 545: if (iczero) 45480, 5491, 45480 ! 546: 45480 if ( ivon01 - 1 ) 25480, 15480, 25480 ! 547: 15480 ivpass = ivpass + 1 ! 548: write (i02,80001) ivtnum ! 549: go to 5491 ! 550: 25480 ivfail = ivfail + 1 ! 551: ivcomp = ivon01 ! 552: ivcorr = 1 ! 553: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 554: 5491 continue ! 555: ivtnum = 549 ! 556: c ! 557: c **** test 549 **** ! 558: c test 549 - test the order of integer arithmetic operations ! 559: c uses integer exponientiation, addition, multiplication, ! 560: c and parentheses. also uses .eq. true path ! 561: c see section 6.1, arithmetic expressions. ! 562: c ! 563: c ! 564: if (iczero) 35490, 5490, 35490 ! 565: 5490 continue ! 566: ivon01 = 0 ! 567: ivon02 = 3 ! 568: if(ivon02 * ivon02/(ivon02+ivon02)**ivon02+ivon02 .eq. 3) ivon01=1 ! 569: go to 45490 ! 570: 35490 ivdele = ivdele + 1 ! 571: write (i02,80003) ivtnum ! 572: if (iczero) 45490, 5501, 45490 ! 573: 45490 if ( ivon01 - 1 ) 25490, 15490, 25490 ! 574: 15490 ivpass = ivpass + 1 ! 575: write (i02,80001) ivtnum ! 576: go to 5501 ! 577: 25490 ivfail = ivfail + 1 ! 578: ivcomp = ivon01 ! 579: ivcorr = 1 ! 580: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 581: 5501 continue ! 582: ivtnum = 550 ! 583: c ! 584: c **** test 550 **** ! 585: c test 550 - combination of logical .not. and .and. ! 586: c .not. (lp) .and. .not. (lp) ! 587: c true path ! 588: c ! 589: c ! 590: if (iczero) 35500, 5500, 35500 ! 591: 5500 continue ! 592: ivon01 = 0 ! 593: lctnt1 = .false. ! 594: if ( .not. .false. .and. .not. lctnt1 ) ivon01 = 1 ! 595: go to 45500 ! 596: 35500 ivdele = ivdele + 1 ! 597: write (i02,80003) ivtnum ! 598: if (iczero) 45500, 5511, 45500 ! 599: 45500 if ( ivon01 - 1 ) 25500, 15500, 25500 ! 600: 15500 ivpass = ivpass + 1 ! 601: write (i02,80001) ivtnum ! 602: go to 5511 ! 603: 25500 ivfail = ivfail + 1 ! 604: ivcomp = ivon01 ! 605: ivcorr = 1 ! 606: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 607: 5511 continue ! 608: ivtnum = 551 ! 609: c ! 610: c **** test 551 **** ! 611: c test 551 - combination of logical .or. and .not. ! 612: c .not. (lp) .or. .not. (lp) ! 613: c true path ! 614: c ! 615: c ! 616: if (iczero) 35510, 5510, 35510 ! 617: 5510 continue ! 618: ivon01 = 0 ! 619: lctnt1 = .true. ! 620: lctnt2 = .false. ! 621: if ( .not. lctnt1 .or. .not. lctnt2 ) ivon01 = 1 ! 622: go to 45510 ! 623: 35510 ivdele = ivdele + 1 ! 624: write (i02,80003) ivtnum ! 625: if (iczero) 45510, 5521, 45510 ! 626: 45510 if ( ivon01 - 1 ) 25510, 15510, 25510 ! 627: 15510 ivpass = ivpass + 1 ! 628: write (i02,80001) ivtnum ! 629: go to 5521 ! 630: 25510 ivfail = ivfail + 1 ! 631: ivcomp = ivon01 ! 632: ivcorr = 1 ! 633: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 634: 5521 continue ! 635: ivtnum = 552 ! 636: c ! 637: c **** test 552 **** ! 638: c test 552 - combination of logical .and. .or. and .not. ! 639: c .not. ( (le) .or. (lt) ) .and. .not. ( (lt) .and. (lf) ) ! 640: c .not. is applied to a logical expression inclosed in parens ! 641: c false path ! 642: c ! 643: if (iczero) 35520, 5520, 35520 ! 644: 5520 continue ! 645: ivon01 = 1 ! 646: lctnt1 = .false. ! 647: lctnt2 = .true. ! 648: if(.not.(lctnt1.or.lctnt2).and..not.(lctnt1.and.lctnt2))ivon01 = 0 ! 649: go to 45520 ! 650: 35520 ivdele = ivdele + 1 ! 651: write (i02,80003) ivtnum ! 652: if (iczero) 45520, 5531, 45520 ! 653: 45520 if ( ivon01 - 1 ) 25520, 15520, 25520 ! 654: 15520 ivpass = ivpass + 1 ! 655: write (i02,80001) ivtnum ! 656: go to 5531 ! 657: 25520 ivfail = ivfail + 1 ! 658: ivcomp = ivon01 ! 659: ivcorr = 1 ! 660: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 661: 5531 continue ! 662: c ! 663: c write page footings and run summaries ! 664: 99999 continue ! 665: write (i02,90002) ! 666: write (i02,90006) ! 667: write (i02,90002) ! 668: write (i02,90002) ! 669: write (i02,90007) ! 670: write (i02,90002) ! 671: write (i02,90008) ivfail ! 672: write (i02,90009) ivpass ! 673: write (i02,90010) ivdele ! 674: c ! 675: c ! 676: c terminate routine execution ! 677: stop ! 678: c ! 679: c format statements for page headers ! 680: 90000 format (1h1) ! 681: 90002 format (1h ) ! 682: 90001 format (1h ,10x,34hfortran compiler validation system) ! 683: 90003 format (1h ,21x,11hversion 1.0) ! 684: 90004 format (1h ,10x,38hfor official use only - copyright 1978) ! 685: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) ! 686: 90006 format (1h ,5x,46h----------------------------------------------) ! 687: 90011 format (1h ,18x,17hsubset level test) ! 688: c ! 689: c format statements for run summaries ! 690: 90008 format (1h ,15x,i5,19h errors encountered) ! 691: 90009 format (1h ,15x,i5,13h tests passed) ! 692: 90010 format (1h ,15x,i5,14h tests deleted) ! 693: c ! 694: c format statements for test results ! 695: 80001 format (1h ,4x,i5,7x,4hpass) ! 696: 80002 format (1h ,4x,i5,7x,4hfail) ! 697: 80003 format (1h ,4x,i5,7x,7hdeleted) ! 698: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) ! 699: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) ! 700: c ! 701: 90007 format (1h ,20x,20hend of program fm019) ! 702: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.