![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm016.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 fm016.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 fm016 ! 5: c ! 6: c this routine begins a series of tests of the fortran ! 7: c logical if statement in all of the various forms. the ! 8: c following logical operands are used for this routine - logical ! 9: c constants, logical variables, logical array elements, and ! 10: c arithmetic expressions with various relational operators. both ! 11: c the true and false branches are tested in the series of tests. ! 12: c ! 13: c references ! 14: c american national standard programming language fortran, ! 15: c x3.9-1978 ! 16: c ! 17: c section 4.7.1, logical constant ! 18: c section 6, expressions ! 19: c section 6.1, arithmetic expressions ! 20: c section 6.3, relational expressions ! 21: c section 6.4, logical expressions ! 22: c section 6.6, evaluation of expressions ! 23: c section 10, assignment statements ! 24: c section 10.2, logical assignment statement ! 25: c section 11.5, logical if statement ! 26: c ! 27: logical lctnt1, lctnf1, lvtntf, lvtnft, latn1a(2) ! 28: logical ladn1d, ladn1b ! 29: dimension ladn1d(2), ladn1b(2) ! 30: data ladn1d/.true., .false./ ! 31: c ! 32: c ********************************************************** ! 33: c ! 34: c a compiler validation system for the fortran language ! 35: c based on specifications as defined in american national standard ! 36: c programming language fortran x3.9-1978, has been developed by the ! 37: c federal cobol compiler testing service. the fortran compiler ! 38: c validation system (fcvs) consists of audit routines, their related ! 39: c data, and an executive system. each audit routine is a fortran ! 40: c program, subprogram or function which includes tests of specific ! 41: c language elements and supporting procedures indicating the result ! 42: c of executing these tests. ! 43: c ! 44: c this particular program/subprogram/function contains features ! 45: c found only in the subset as defined in x3.9-1978. ! 46: c ! 47: c suggestions and comments should be forwarded to - ! 48: c ! 49: c department of the navy ! 50: c federal cobol compiler testing service ! 51: c washington, d.c. 20376 ! 52: c ! 53: c ********************************************************** ! 54: c ! 55: c ! 56: c ! 57: c initialization section ! 58: c ! 59: c initialize constants ! 60: c ************** ! 61: c i01 contains the logical unit number for the card reader. ! 62: i01 = 5 ! 63: c i02 contains the logical unit number for the printer. ! 64: i02 = 6 ! 65: c system environment section ! 66: c ! 67: cx010 this card is replaced by contents of fexec x-010 control card. ! 68: c the cx010 card is for overriding the program default i01 = 5 ! 69: c (unit number for card reader). ! 70: cx011 this card is replaced by contents of fexec x-011 control card. ! 71: c the cx011 card is for systems which require additional ! 72: c fortran statements for files associated with cx010 above. ! 73: c ! 74: cx020 this card is replaced by contents of fexec x-020 control card. ! 75: c the cx020 card is for overriding the program default i02 = 6 ! 76: c (unit number for printer). ! 77: cx021 this card is replaced by contents of fexec x-021 control card. ! 78: c the cx021 card is for systems which require additional ! 79: c fortran statements for files associated with cx020 above. ! 80: c ! 81: ivpass=0 ! 82: ivfail=0 ! 83: ivdele=0 ! 84: iczero=0 ! 85: c ! 86: c write page headers ! 87: write (i02,90000) ! 88: write (i02,90001) ! 89: write (i02,90002) ! 90: write (i02, 90002) ! 91: write (i02,90003) ! 92: write (i02,90002) ! 93: write (i02,90004) ! 94: write (i02,90002) ! 95: write (i02,90011) ! 96: write (i02,90002) ! 97: write (i02,90002) ! 98: write (i02,90005) ! 99: write (i02,90006) ! 100: write (i02,90002) ! 101: ivtnum = 139 ! 102: c test 139 - this tests the logical constant .true. ! 103: c ! 104: if (iczero) 31390, 1390, 31390 ! 105: 1390 continue ! 106: ivon01=0 ! 107: if ( .true. ) ivon01 = 1 ! 108: go to 41390 ! 109: 31390 ivdele = ivdele + 1 ! 110: write (i02,80003) ivtnum ! 111: if (iczero) 41390, 1401, 41390 ! 112: 41390 if ( ivon01 - 1 ) 21390, 11390, 21390 ! 113: 11390 ivpass = ivpass + 1 ! 114: write (i02,80001) ivtnum ! 115: go to 1401 ! 116: 21390 ivfail = ivfail + 1 ! 117: ivcomp=ivon01 ! 118: ivcorr=1 ! 119: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 120: 1401 continue ! 121: ivtnum = 140 ! 122: c test 140 - this tests the logical constant .false. ! 123: c ! 124: if (iczero) 31400, 1400, 31400 ! 125: 1400 continue ! 126: ivon01=1 ! 127: if ( .false. ) ivon01=0 ! 128: go to 41400 ! 129: 31400 ivdele = ivdele + 1 ! 130: write (i02,80003) ivtnum ! 131: if (iczero) 41400, 1411, 41400 ! 132: 41400 if ( ivon01 - 1 ) 21400, 11400, 21400 ! 133: 11400 ivpass = ivpass + 1 ! 134: write (i02,80001) ivtnum ! 135: go to 1411 ! 136: 21400 ivfail = ivfail + 1 ! 137: ivcomp=ivon01 ! 138: ivcorr=1 ! 139: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 140: 1411 continue ! 141: ivtnum = 141 ! 142: c test 141 - this tests the logical variable = .true. ! 143: c ! 144: if (iczero) 31410, 1410, 31410 ! 145: 1410 continue ! 146: lctnt1=.true. ! 147: ivon01 = 0 ! 148: if ( lctnt1 ) ivon01 = 1 ! 149: go to 41410 ! 150: 31410 ivdele = ivdele + 1 ! 151: write (i02,80003) ivtnum ! 152: if (iczero) 41410, 1421, 41410 ! 153: 41410 if ( ivon01 - 1 ) 21410, 11410, 21410 ! 154: 11410 ivpass = ivpass + 1 ! 155: write (i02,80001) ivtnum ! 156: go to 1421 ! 157: 21410 ivfail = ivfail + 1 ! 158: ivcomp=ivon01 ! 159: ivcorr=1 ! 160: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 161: 1421 continue ! 162: ivtnum = 142 ! 163: c test 142 - this tests the logical variable = .false. ! 164: c ! 165: if (iczero) 31420, 1420, 31420 ! 166: 1420 continue ! 167: ivon01=1 ! 168: lctnf1=.false. ! 169: if ( lctnf1 ) ivon01=0 ! 170: go to 41420 ! 171: 31420 ivdele = ivdele + 1 ! 172: write (i02,80003) ivtnum ! 173: if (iczero) 41420, 1431, 41420 ! 174: 41420 if ( ivon01 - 1 ) 21420, 11420, 21420 ! 175: 11420 ivpass = ivpass + 1 ! 176: write (i02,80001) ivtnum ! 177: go to 1431 ! 178: 21420 ivfail = ivfail + 1 ! 179: ivcomp=ivon01 ! 180: ivcorr=1 ! 181: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 182: 1431 continue ! 183: ivtnum = 143 ! 184: c test 143 - this tests changing the value of a logical variable ! 185: c from .true. to .false. ! 186: c ! 187: if (iczero) 31430, 1430, 31430 ! 188: 1430 continue ! 189: lvtntf=.true. ! 190: lvtntf=.false. ! 191: ivon01 = 1 ! 192: if ( lvtntf ) ivon01 = 0 ! 193: go to 41430 ! 194: 31430 ivdele = ivdele + 1 ! 195: write (i02,80003) ivtnum ! 196: if (iczero) 41430, 1441, 41430 ! 197: 41430 if ( ivon01 - 1 ) 21430, 11430, 21430 ! 198: 11430 ivpass = ivpass + 1 ! 199: write (i02,80001) ivtnum ! 200: go to 1441 ! 201: 21430 ivfail = ivfail + 1 ! 202: ivcomp=ivon01 ! 203: ivcorr=1 ! 204: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 205: 1441 continue ! 206: ivtnum = 144 ! 207: c test 144 - this tests changing the value of a logical variable ! 208: c from .false. to .true. ! 209: c ! 210: if (iczero) 31440, 1440, 31440 ! 211: 1440 continue ! 212: lvtnft=.false. ! 213: lvtnft=.true. ! 214: ivon01=0 ! 215: if ( lvtnft ) ivon01=1 ! 216: go to 41440 ! 217: 31440 ivdele = ivdele + 1 ! 218: write (i02,80003) ivtnum ! 219: if (iczero) 41440, 1451, 41440 ! 220: 41440 if ( ivon01 - 1 ) 21440, 11440, 21440 ! 221: 11440 ivpass = ivpass + 1 ! 222: write (i02,80001) ivtnum ! 223: go to 1451 ! 224: 21440 ivfail = ivfail + 1 ! 225: ivcomp=ivon01 ! 226: ivcorr=1 ! 227: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 228: 1451 continue ! 229: ivtnum = 145 ! 230: c test 145 - test of a logical array element set to .true. ! 231: c ! 232: if (iczero) 31450, 1450, 31450 ! 233: 1450 continue ! 234: latn1a(1)=.true. ! 235: ivon01=0 ! 236: if ( latn1a(1) ) ivon01=1 ! 237: go to 41450 ! 238: 31450 ivdele = ivdele + 1 ! 239: write (i02,80003) ivtnum ! 240: if (iczero) 41450, 1461, 41450 ! 241: 41450 if ( ivon01 - 1 ) 21450, 11450, 21450 ! 242: 11450 ivpass = ivpass + 1 ! 243: write (i02,80001) ivtnum ! 244: go to 1461 ! 245: 21450 ivfail = ivfail + 1 ! 246: ivcomp=ivon01 ! 247: ivcorr=1 ! 248: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 249: 1461 continue ! 250: ivtnum = 146 ! 251: c test 146 - test of a logical array element set to .false. ! 252: c ! 253: if (iczero) 31460, 1460, 31460 ! 254: 1460 continue ! 255: latn1a(2) = .false. ! 256: ivon01=1 ! 257: if ( latn1a(2) ) ivon01=0 ! 258: go to 41460 ! 259: 31460 ivdele = ivdele + 1 ! 260: write (i02,80003) ivtnum ! 261: if (iczero) 41460, 1471, 41460 ! 262: 41460 if ( ivon01 - 1 ) 21460, 11460, 21460 ! 263: 11460 ivpass = ivpass + 1 ! 264: write (i02,80001) ivtnum ! 265: go to 1471 ! 266: 21460 ivfail = ivfail + 1 ! 267: ivcomp=ivon01 ! 268: ivcorr=1 ! 269: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 270: 1471 continue ! 271: ivtnum = 147 ! 272: c test 147 - test of a logical array element set .true. ! 273: c in a data initialization statement. ! 274: c ! 275: if (iczero) 31470, 1470, 31470 ! 276: 1470 continue ! 277: ivon01=0 ! 278: if ( ladn1d(1) ) ivon01=1 ! 279: go to 41470 ! 280: 31470 ivdele = ivdele + 1 ! 281: write (i02,80003) ivtnum ! 282: if (iczero) 41470, 1481, 41470 ! 283: 41470 if ( ivon01 - 1 ) 21470, 11470, 21470 ! 284: 11470 ivpass = ivpass + 1 ! 285: write (i02,80001) ivtnum ! 286: go to 1481 ! 287: 21470 ivfail = ivfail + 1 ! 288: ivcomp=ivon01 ! 289: ivcorr=1 ! 290: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 291: 1481 continue ! 292: ivtnum = 148 ! 293: c test 148 - test of a logical array element set .false. ! 294: c in a data initialization statement. ! 295: c ! 296: if (iczero) 31480, 1480, 31480 ! 297: 1480 continue ! 298: ivon01=1 ! 299: if ( ladn1d(2) ) ivon01=0 ! 300: go to 41480 ! 301: 31480 ivdele = ivdele + 1 ! 302: write (i02,80003) ivtnum ! 303: if (iczero) 41480, 1491, 41480 ! 304: 41480 if ( ivon01 - 1 ) 21480, 11480, 21480 ! 305: 11480 ivpass = ivpass + 1 ! 306: write (i02,80001) ivtnum ! 307: go to 1491 ! 308: 21480 ivfail = ivfail + 1 ! 309: ivcomp=ivon01 ! 310: ivcorr=1 ! 311: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 312: 1491 continue ! 313: ivtnum = 149 ! 314: c test 149 - like test 145 except that the array declaration was ! 315: c in a dimension statement rather than in the type statement. ! 316: c ! 317: if (iczero) 31490, 1490, 31490 ! 318: 1490 continue ! 319: ladn1b(1)=.true. ! 320: ivon01=0 ! 321: if ( ladn1b(1) ) ivon01=1 ! 322: go to 41490 ! 323: 31490 ivdele = ivdele + 1 ! 324: write (i02,80003) ivtnum ! 325: if (iczero) 41490, 1501, 41490 ! 326: 41490 if ( ivon01 - 1 ) 21490, 11490, 21490 ! 327: 11490 ivpass = ivpass + 1 ! 328: write (i02,80001) ivtnum ! 329: go to 1501 ! 330: 21490 ivfail = ivfail + 1 ! 331: ivcomp=ivon01 ! 332: ivcorr=1 ! 333: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 334: c ! 335: c for tests 150 thru 156 the true path is used.. ! 336: c ! 337: 1501 continue ! 338: ivtnum = 150 ! 339: c test 150 - relational expression with integer constants .lt. ! 340: c ! 341: if (iczero) 31500, 1500, 31500 ! 342: 1500 continue ! 343: ivon01=0 ! 344: if ( 3 .lt. 76 ) ivon01=1 ! 345: go to 41500 ! 346: 31500 ivdele = ivdele + 1 ! 347: write (i02,80003) ivtnum ! 348: if (iczero) 41500, 1511, 41500 ! 349: 41500 if ( ivon01 - 1 ) 21500, 11500, 21500 ! 350: 11500 ivpass = ivpass + 1 ! 351: write (i02,80001) ivtnum ! 352: go to 1511 ! 353: 21500 ivfail = ivfail + 1 ! 354: ivcomp=ivon01 ! 355: ivcorr=1 ! 356: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 357: 1511 continue ! 358: ivtnum = 151 ! 359: c test 151 - test with relational expression .le. ! 360: c ! 361: if (iczero) 31510, 1510, 31510 ! 362: 1510 continue ! 363: ivon01=0 ! 364: if ( 587 .le. 587 ) ivon01=1 ! 365: go to 41510 ! 366: 31510 ivdele = ivdele + 1 ! 367: write (i02,80003) ivtnum ! 368: if (iczero) 41510, 1521, 41510 ! 369: 41510 if ( ivon01 - 1 ) 21510, 11510, 21510 ! 370: 11510 ivpass = ivpass + 1 ! 371: write (i02,80001) ivtnum ! 372: go to 1521 ! 373: 21510 ivfail = ivfail + 1 ! 374: ivcomp=ivon01 ! 375: ivcorr=1 ! 376: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 377: 1521 continue ! 378: ivtnum = 152 ! 379: c test 152 - test of relational expression with integer constants ! 380: c relational operator is .eq. ! 381: c ! 382: if (iczero) 31520, 1520, 31520 ! 383: 1520 continue ! 384: ivon01=0 ! 385: if ( 9999 .eq. 9999 ) ivon01=1 ! 386: go to 41520 ! 387: 31520 ivdele = ivdele + 1 ! 388: write (i02,80003) ivtnum ! 389: if (iczero) 41520, 1531, 41520 ! 390: 41520 if ( ivon01 - 1 ) 21520, 11520, 21520 ! 391: 11520 ivpass = ivpass + 1 ! 392: write (i02,80001) ivtnum ! 393: go to 1531 ! 394: 21520 ivfail = ivfail + 1 ! 395: ivcomp=ivon01 ! 396: ivcorr=1 ! 397: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 398: 1531 continue ! 399: ivtnum = 153 ! 400: c test 153 - test of relational expression with integer constants ! 401: c relational operator is .ne. ! 402: c ! 403: if (iczero) 31530, 1530, 31530 ! 404: 1530 continue ! 405: ivon01=0 ! 406: if ( 0 .ne. 32767 ) ivon01=1 ! 407: go to 41530 ! 408: 31530 ivdele = ivdele + 1 ! 409: write (i02,80003) ivtnum ! 410: if (iczero) 41530, 1541, 41530 ! 411: 41530 if ( ivon01 - 1 ) 21530, 11530, 21530 ! 412: 11530 ivpass = ivpass + 1 ! 413: write (i02,80001) ivtnum ! 414: go to 1541 ! 415: 21530 ivfail = ivfail + 1 ! 416: ivcomp=ivon01 ! 417: ivcorr=1 ! 418: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 419: 1541 continue ! 420: ivtnum = 154 ! 421: c test 154 - test of relational expression with integer constants ! 422: c relational operator is .gt. ! 423: c ! 424: if (iczero) 31540, 1540, 31540 ! 425: 1540 continue ! 426: ivon01=0 ! 427: if ( 32767 .gt. 76 ) ivon01=1 ! 428: go to 41540 ! 429: 31540 ivdele = ivdele + 1 ! 430: write (i02,80003) ivtnum ! 431: if (iczero) 41540, 1551, 41540 ! 432: 41540 if ( ivon01 - 1 ) 21540, 11540, 21540 ! 433: 11540 ivpass = ivpass + 1 ! 434: write (i02,80001) ivtnum ! 435: go to 1551 ! 436: 21540 ivfail = ivfail + 1 ! 437: ivcomp=ivon01 ! 438: ivcorr=1 ! 439: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 440: 1551 continue ! 441: ivtnum = 155 ! 442: c test 155 - test of relational expression with integer constants ! 443: c relational operator is .ge. ! 444: c ! 445: if (iczero) 31550, 1550, 31550 ! 446: 1550 continue ! 447: ivon01=0 ! 448: if ( 32767 .ge. 76 ) ivon01=1 ! 449: go to 41550 ! 450: 31550 ivdele = ivdele + 1 ! 451: write (i02,80003) ivtnum ! 452: if (iczero) 41550, 1561, 41550 ! 453: 41550 if ( ivon01 - 1 ) 21550, 11550, 21550 ! 454: 11550 ivpass = ivpass + 1 ! 455: write (i02,80001) ivtnum ! 456: go to 1561 ! 457: 21550 ivfail = ivfail + 1 ! 458: ivcomp=ivon01 ! 459: ivcorr=1 ! 460: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 461: 1561 continue ! 462: ivtnum = 156 ! 463: c test 156 - test of relational expression with integer constants ! 464: c relational operator is .ge. ! 465: c ! 466: if (iczero) 31560, 1560, 31560 ! 467: 1560 continue ! 468: ivon01=0 ! 469: if ( 32767 .ge. 32767 ) ivon01=1 ! 470: go to 41560 ! 471: 31560 ivdele = ivdele + 1 ! 472: write (i02,80003) ivtnum ! 473: if (iczero) 41560, 1571, 41560 ! 474: 41560 if ( ivon01 - 1 ) 21560, 11560, 21560 ! 475: 11560 ivpass = ivpass + 1 ! 476: write (i02,80001) ivtnum ! 477: go to 1571 ! 478: 21560 ivfail = ivfail + 1 ! 479: ivcomp=ivon01 ! 480: ivcorr=1 ! 481: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 482: c ! 483: c for tests 157 thru 162 the false path is used.. ! 484: c ! 485: 1571 continue ! 486: ivtnum = 157 ! 487: c test 157 - relational expression integer constants false path ! 488: c relational operator is .lt. ! 489: c ! 490: if (iczero) 31570, 1570, 31570 ! 491: 1570 continue ! 492: ivon01=1 ! 493: if ( 76 .lt. 3 ) ivon01=0 ! 494: go to 41570 ! 495: 31570 ivdele = ivdele + 1 ! 496: write (i02,80003) ivtnum ! 497: if (iczero) 41570, 1581, 41570 ! 498: 41570 if ( ivon01 - 1 ) 21570, 11570, 21570 ! 499: 11570 ivpass = ivpass + 1 ! 500: write (i02,80001) ivtnum ! 501: go to 1581 ! 502: 21570 ivfail = ivfail + 1 ! 503: ivcomp=ivon01 ! 504: ivcorr=1 ! 505: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 506: 1581 continue ! 507: ivtnum = 158 ! 508: c test 158 - relational expression integer constants false path ! 509: c relational operator is .le. ! 510: c ! 511: if (iczero) 31580, 1580, 31580 ! 512: 1580 continue ! 513: ivon01=1 ! 514: if ( 76 .le. 3 ) ivon01=0 ! 515: go to 41580 ! 516: 31580 ivdele = ivdele + 1 ! 517: write (i02,80003) ivtnum ! 518: if (iczero) 41580, 1591, 41580 ! 519: 41580 if ( ivon01 - 1 ) 21580, 11580, 21580 ! 520: 11580 ivpass = ivpass + 1 ! 521: write (i02,80001) ivtnum ! 522: go to 1591 ! 523: 21580 ivfail = ivfail + 1 ! 524: ivcomp=ivon01 ! 525: ivcorr=1 ! 526: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 527: 1591 continue ! 528: ivtnum = 159 ! 529: c test 159 - relational expression integer constants false path ! 530: c relational operator is .eq. ! 531: c ! 532: if (iczero) 31590, 1590, 31590 ! 533: 1590 continue ! 534: ivon01=1 ! 535: if ( 9999 .eq. 587 ) ivon01=0 ! 536: go to 41590 ! 537: 31590 ivdele = ivdele + 1 ! 538: write (i02,80003) ivtnum ! 539: if (iczero) 41590, 1601, 41590 ! 540: 41590 if ( ivon01 - 1 ) 21590, 11590, 21590 ! 541: 11590 ivpass = ivpass + 1 ! 542: write (i02,80001) ivtnum ! 543: go to 1601 ! 544: 21590 ivfail = ivfail + 1 ! 545: ivcomp=ivon01 ! 546: ivcorr=1 ! 547: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 548: 1601 continue ! 549: ivtnum = 160 ! 550: c test 160 - relational expression integer constants false path ! 551: c relational operator is .ne. ! 552: c ! 553: if (iczero) 31600, 1600, 31600 ! 554: 1600 continue ! 555: ivon01=1 ! 556: if ( 3 .ne. 3 ) ivon01=0 ! 557: go to 41600 ! 558: 31600 ivdele = ivdele + 1 ! 559: write (i02,80003) ivtnum ! 560: if (iczero) 41600, 1611, 41600 ! 561: 41600 if ( ivon01 - 1 ) 21600, 11600, 21600 ! 562: 11600 ivpass = ivpass + 1 ! 563: write (i02,80001) ivtnum ! 564: go to 1611 ! 565: 21600 ivfail = ivfail + 1 ! 566: ivcomp=ivon01 ! 567: ivcorr=1 ! 568: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 569: 1611 continue ! 570: ivtnum=161 ! 571: c ! 572: c test 161 - relational expression integer constants false path ! 573: c relational operator is .gt. ! 574: c ! 575: if ( iczero ) 31610, 1610, 31610 ! 576: 1610 continue ! 577: ivon01=1 ! 578: if ( 76 .gt. 32767 ) ivon01=0 ! 579: go to 41610 ! 580: 31610 ivdele = ivdele + 1 ! 581: write (i02,80003) ivtnum ! 582: if ( iczero ) 41610, 1621, 41610 ! 583: 41610 if ( ivon01 - 1 ) 21610, 11610, 21610 ! 584: 11610 ivpass = ivpass+ 1 ! 585: write (i02,80001) ivtnum ! 586: go to 1621 ! 587: 21610 ivfail = ivfail + 1 ! 588: ivcomp=ivon01 ! 589: ivcorr=1 ! 590: write (i02,80004) ivtnum, ivcomp, ivcorr ! 591: 1621 continue ! 592: ivtnum = 162 ! 593: c ! 594: c ! 595: c **** test 162 **** ! 596: c ! 597: c test 162 - relational expression integer constants false path ! 598: c relational operator is .ge. ! 599: c ! 600: if (iczero) 31620, 1620, 31620 ! 601: 1620 continue ! 602: ivon01=1 ! 603: if ( 76 .ge. 32767 ) ivon01 = 0 ! 604: go to 41620 ! 605: 31620 ivdele = ivdele + 1 ! 606: write (i02,80003) ivtnum ! 607: if (iczero) 41620, 1631, 41620 ! 608: 41620 if ( ivon01 - 1 ) 21620, 11620, 21620 ! 609: 11620 ivpass = ivpass + 1 ! 610: write (i02,80001) ivtnum ! 611: go to 1631 ! 612: 21620 ivfail = ivfail + 1 ! 613: ivcomp=ivon01 ! 614: ivcorr=1 ! 615: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 616: 1631 continue ! 617: ivtnum = 163 ! 618: c ! 619: c **** test 163 **** ! 620: c test 163 - relational expression with integer variable ! 621: c references (ic) (ro) (ivr). true path. use .lt. ! 622: c ! 623: c ! 624: if (iczero) 31630, 1630, 31630 ! 625: 1630 continue ! 626: ivon01 = 76 ! 627: ivon02 = 0 ! 628: if ( 3 .lt. ivon01 ) ivon02 = 1 ! 629: go to 41630 ! 630: 31630 ivdele = ivdele + 1 ! 631: write (i02,80003) ivtnum ! 632: if (iczero) 41630, 1641, 41630 ! 633: 41630 if ( ivon02 - 1 ) 21630, 11630, 21630 ! 634: 11630 ivpass = ivpass + 1 ! 635: write (i02,80001) ivtnum ! 636: go to 1641 ! 637: 21630 ivfail = ivfail + 1 ! 638: ivcomp = ivon02 ! 639: ivcorr = 1 ! 640: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 641: 1641 continue ! 642: ivtnum = 164 ! 643: c ! 644: c **** test 164 **** ! 645: c test 164 - relational expression. integer variable references. ! 646: c true path. .le. ! 647: c ! 648: c ! 649: if (iczero) 31640, 1640, 31640 ! 650: 1640 continue ! 651: ivon01 = 587 ! 652: ivon02 = 0 ! 653: if ( 587 .le. ivon01 ) ivon02 = 1 ! 654: go to 41640 ! 655: 31640 ivdele = ivdele + 1 ! 656: write (i02,80003) ivtnum ! 657: if (iczero) 41640, 1651, 41640 ! 658: 41640 if ( ivon02 - 1 ) 21640, 11640, 21640 ! 659: 11640 ivpass = ivpass + 1 ! 660: write (i02,80001) ivtnum ! 661: go to 1651 ! 662: 21640 ivfail = ivfail + 1 ! 663: ivcomp = ivon02 ! 664: ivcorr = 1 ! 665: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 666: 1651 continue ! 667: ivtnum = 165 ! 668: c ! 669: c **** test 165 **** ! 670: c test 165 - relational expression. integer variable reference. ! 671: c true path. .eq. ! 672: c ! 673: c ! 674: if (iczero) 31650, 1650, 31650 ! 675: 1650 continue ! 676: ivon01 = 9999 ! 677: ivon02 = 0 ! 678: if ( 9999 .eq. ivon01 ) ivon02 = 1 ! 679: go to 41650 ! 680: 31650 ivdele = ivdele + 1 ! 681: write (i02,80003) ivtnum ! 682: if (iczero) 41650, 1661, 41650 ! 683: 41650 if ( ivon02 - 1 ) 21650, 11650, 21650 ! 684: 11650 ivpass = ivpass + 1 ! 685: write (i02,80001) ivtnum ! 686: go to 1661 ! 687: 21650 ivfail = ivfail + 1 ! 688: ivcomp = ivon02 ! 689: ivcorr = 1 ! 690: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 691: 1661 continue ! 692: ivtnum = 166 ! 693: c ! 694: c **** test 166 **** ! 695: c test 166 - relational expression. integer variable reference. ! 696: c true path. .ne. ! 697: c ! 698: c ! 699: if (iczero) 31660, 1660, 31660 ! 700: 1660 continue ! 701: ivon01 = 32767 ! 702: ivon02 = 0 ! 703: if ( 0 .ne. ivon01 ) ivon02 = 1 ! 704: go to 41660 ! 705: 31660 ivdele = ivdele + 1 ! 706: write (i02,80003) ivtnum ! 707: if (iczero) 41660, 1671, 41660 ! 708: 41660 if ( ivon02 - 1 ) 21660, 11660, 21660 ! 709: 11660 ivpass = ivpass + 1 ! 710: write (i02,80001) ivtnum ! 711: go to 1671 ! 712: 21660 ivfail = ivfail + 1 ! 713: ivcomp = ivon02 ! 714: ivcorr = 1 ! 715: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 716: 1671 continue ! 717: ivtnum = 167 ! 718: c ! 719: c **** test 167 **** ! 720: c test 167 - relational expression. integer variable reference. ! 721: c true path. .gt. ! 722: c ! 723: c ! 724: if (iczero) 31670, 1670, 31670 ! 725: 1670 continue ! 726: ivon01 = 76 ! 727: ivon02 = 0 ! 728: if ( 32767 .gt. ivon01 ) ivon02 = 1 ! 729: go to 41670 ! 730: 31670 ivdele = ivdele + 1 ! 731: write (i02,80003) ivtnum ! 732: if (iczero) 41670, 1681, 41670 ! 733: 41670 if ( ivon02 - 1 ) 21670, 11670, 21670 ! 734: 11670 ivpass = ivpass + 1 ! 735: write (i02,80001) ivtnum ! 736: go to 1681 ! 737: 21670 ivfail = ivfail + 1 ! 738: ivcomp = ivon02 ! 739: ivcorr = 1 ! 740: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 741: 1681 continue ! 742: ivtnum = 168 ! 743: c ! 744: c **** test 168 **** ! 745: c test 168 - relational expression. integer variable reference. ! 746: c true path. .ge. ! 747: c ! 748: c ! 749: if (iczero) 31680, 1680, 31680 ! 750: 1680 continue ! 751: ivon01 = 76 ! 752: ivon02 = 0 ! 753: if ( 32767 .ge. ivon01 ) ivon02 = 1 ! 754: go to 41680 ! 755: 31680 ivdele = ivdele + 1 ! 756: write (i02,80003) ivtnum ! 757: if (iczero) 41680, 1691, 41680 ! 758: 41680 if ( ivon02 - 1 ) 21680, 11680, 21680 ! 759: 11680 ivpass = ivpass + 1 ! 760: write (i02,80001) ivtnum ! 761: go to 1691 ! 762: 21680 ivfail = ivfail + 1 ! 763: ivcomp = ivon02 ! 764: ivcorr = 1 ! 765: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 766: 1691 continue ! 767: ivtnum = 169 ! 768: c ! 769: c **** test 169 **** ! 770: c test 169 - relational expression. integer variable reference. ! 771: c true path. .eq. ! 772: c ! 773: c ! 774: if (iczero) 31690, 1690, 31690 ! 775: 1690 continue ! 776: ivon01 = 32767 ! 777: ivon02 = 0 ! 778: if ( 32767 .eq. ivon01 ) ivon02 = 1 ! 779: go to 41690 ! 780: 31690 ivdele = ivdele + 1 ! 781: write (i02,80003) ivtnum ! 782: if (iczero) 41690, 1701, 41690 ! 783: 41690 if ( ivon02 - 1 ) 21690, 11690, 21690 ! 784: 11690 ivpass = ivpass + 1 ! 785: write (i02,80001) ivtnum ! 786: go to 1701 ! 787: 21690 ivfail = ivfail + 1 ! 788: ivcomp = ivon02 ! 789: ivcorr = 1 ! 790: write (i02,80004) ivtnum, ivcomp ,ivcorr ! 791: 1701 continue ! 792: c ! 793: c write page footings and run summaries ! 794: 99999 continue ! 795: write (i02,90002) ! 796: write (i02,90006) ! 797: write (i02,90002) ! 798: write (i02,90002) ! 799: write (i02,90007) ! 800: write (i02,90002) ! 801: write (i02,90008) ivfail ! 802: write (i02,90009) ivpass ! 803: write (i02,90010) ivdele ! 804: c ! 805: c ! 806: c terminate routine execution ! 807: stop ! 808: c ! 809: c format statements for page headers ! 810: 90000 format (1h1) ! 811: 90002 format (1h ) ! 812: 90001 format (1h ,10x,34hfortran compiler validation system) ! 813: 90003 format (1h ,21x,11hversion 1.0) ! 814: 90004 format (1h ,10x,38hfor official use only - copyright 1978) ! 815: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) ! 816: 90006 format (1h ,5x,46h----------------------------------------------) ! 817: 90011 format (1h ,18x,17hsubset level test) ! 818: c ! 819: c format statements for run summaries ! 820: 90008 format (1h ,15x,i5,19h errors encountered) ! 821: 90009 format (1h ,15x,i5,13h tests passed) ! 822: 90010 format (1h ,15x,i5,14h tests deleted) ! 823: c ! 824: c format statements for test results ! 825: 80001 format (1h ,4x,i5,7x,4hpass) ! 826: 80002 format (1h ,4x,i5,7x,4hfail) ! 827: 80003 format (1h ,4x,i5,7x,7hdeleted) ! 828: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) ! 829: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) ! 830: c ! 831: 90007 format (1h ,20x,20hend of program fm016) ! 832: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.