1c comment section 2c 3c fm044 4c 5c this routine tests arithmetic assignments of the form 6c integer var. = integer var. <op1> integer var. <op2> integer var. 7c 8c where <op1> and <op2> are arithmetic operators. 9c 10c references 11c american national standard programming language fortran, 12c x3.9-1978 13c 14c section 4.3, integer type 15c section 4.3.1, integer constant 16c section 6.1, arithmetic expressions 17c section 6.6, evaluation of expressions 18c section 10.1, arithmetic assignment statement 19c 20c 21c ********************************************************** 22c 23c a compiler validation system for the fortran language 24c based on specifications as defined in american national standard 25c programming language fortran x3.9-1978, has been developed by the 26c federal cobol compiler testing service. the fortran compiler 27c validation system (fcvs) consists of audit routines, their related 28c data, and an executive system. each audit routine is a fortran 29c program, subprogram or function which includes tests of specific 30c language elements and supporting procedures indicating the result 31c of executing these tests. 32c 33c this particular program/subprogram/function contains features 34c found only in the subset as defined in x3.9-1978. 35c 36c suggestions and comments should be forwarded to - 37c 38c department of the navy 39c federal cobol compiler testing service 40c washington, d.c. 20376 41c 42c ********************************************************** 43c 44c 45c 46c initialization section 47c 48c initialize constants 49c ************** 50c i01 contains the logical unit number for the card reader. 51 i01 = 5 52c i02 contains the logical unit number for the printer. 53 i02 = 6 54c system environment section 55c 56cx010 this card is replaced by contents of fexec x-010 control card. 57c the cx010 card is for overriding the program default i01 = 5 58c (unit number for card reader). 59cx011 this card is replaced by contents of fexec x-011 control card. 60c the cx011 card is for systems which require additional 61c fortran statements for files associated with cx010 above. 62c 63cx020 this card is replaced by contents of fexec x-020 control card. 64c the cx020 card is for overriding the program default i02 = 6 65c (unit number for printer). 66cx021 this card is replaced by contents of fexec x-021 control card. 67c the cx021 card is for systems which require additional 68c fortran statements for files associated with cx020 above. 69c 70 ivpass=0 71 ivfail=0 72 ivdele=0 73 iczero=0 74c 75c write page headers 76 write (i02,90000) 77 write (i02,90001) 78 write (i02,90002) 79 write (i02, 90002) 80 write (i02,90003) 81 write (i02,90002) 82 write (i02,90004) 83 write (i02,90002) 84 write (i02,90011) 85 write (i02,90002) 86 write (i02,90002) 87 write (i02,90005) 88 write (i02,90006) 89 write (i02,90002) 90c 91c test section 92c 93c arithmetic assignment statement 94c 95c tests 719 through 730 test statements where <op1> is '/' and 96c <op2> varies. 97c 98c tests 731 through 746 test statements where <op1> is '**' and 99c <op2> varies. 100c 101c 102c test 719 through 721 test '/' followed by '+'. 103c 104 ivtnum = 719 105c 106c **** test 719 **** 107c 108 if (iczero) 37190, 7190, 37190 109 7190 continue 110 ivon01 = 108 111 ivon02 = 9 112 ivon03 = 3 113 ivcomp = ivon01 / ivon02 + ivon03 114 go to 47190 11537190 ivdele = ivdele + 1 116 write (i02,80003) ivtnum 117 if (iczero) 47190, 7201, 47190 11847190 if (ivcomp - 15) 27190,17190,27190 11917190 ivpass = ivpass + 1 120 write (i02,80001) ivtnum 121 go to 7201 12227190 ivfail = ivfail + 1 123 ivcorr = 15 124 write (i02,80004) ivtnum, ivcomp, ivcorr 125 7201 continue 126 ivtnum = 720 127c 128c **** test 720 **** 129c 130 if (iczero) 37200, 7200, 37200 131 7200 continue 132 ivon01 = 108 133 ivon02 = 9 134 ivon03 = 3 135 ivcomp = (ivon01 / ivon02) + ivon03 136 go to 47200 13737200 ivdele = ivdele + 1 138 write (i02,80003) ivtnum 139 if (iczero) 47200, 7211, 47200 14047200 if (ivcomp - 15) 27200,17200,27200 14117200 ivpass = ivpass + 1 142 write (i02,80001) ivtnum 143 go to 7211 14427200 ivfail = ivfail + 1 145 ivcorr = 15 146 write (i02,80004) ivtnum, ivcomp, ivcorr 147 7211 continue 148 ivtnum = 721 149c 150c **** test 721 **** 151c 152 if (iczero) 37210, 7210, 37210 153 7210 continue 154 ivon01 = 108 155 ivon02 = 9 156 ivon03 = 3 157 ivcomp = ivon01 / (ivon02 + ivon03) 158 go to 47210 15937210 ivdele = ivdele + 1 160 write (i02,80003) ivtnum 161 if (iczero) 47210, 7221, 47210 16247210 if (ivcomp - 9) 27210,17210,27210 16317210 ivpass = ivpass + 1 164 write (i02,80001) ivtnum 165 go to 7221 16627210 ivfail = ivfail + 1 167 ivcorr = 9 168 write (i02,80004) ivtnum, ivcomp, ivcorr 169 7221 continue 170c 171c test 722 through 724 test '/' followed by '-'. 172c 173 ivtnum = 722 174c 175c **** test 722 **** 176c 177 if (iczero) 37220, 7220, 37220 178 7220 continue 179 ivon01 = 108 180 ivon02 = 9 181 ivon03 = 3 182 ivcomp = ivon01 / ivon02 - ivon03 183 go to 47220 18437220 ivdele = ivdele + 1 185 write (i02,80003) ivtnum 186 if (iczero) 47220, 7231, 47220 18747220 if (ivcomp - 9) 27220,17220,27220 18817220 ivpass = ivpass + 1 189 write (i02,80001) ivtnum 190 go to 7231 19127220 ivfail = ivfail + 1 192 ivcorr = 9 193 write (i02,80004) ivtnum, ivcomp, ivcorr 194 7231 continue 195 ivtnum = 723 196c 197c **** test 723 **** 198c 199 if (iczero) 37230, 7230, 37230 200 7230 continue 201 ivon01 = 108 202 ivon02 = 9 203 ivon03 = 3 204 ivcomp = (ivon01 / ivon02) - ivon03 205 go to 47230 20637230 ivdele = ivdele + 1 207 write (i02,80003) ivtnum 208 if (iczero) 47230, 7241, 47230 20947230 if (ivcomp - 9) 27230,17230,27230 21017230 ivpass = ivpass + 1 211 write (i02,80001) ivtnum 212 go to 7241 21327230 ivfail = ivfail + 1 214 ivcorr = 9 215 write (i02,80004) ivtnum, ivcomp, ivcorr 216 7241 continue 217 ivtnum = 724 218c 219c **** test 724 **** 220c 221 if (iczero) 37240, 7240, 37240 222 7240 continue 223 ivon01 = 108 224 ivon02 = 9 225 ivon03 = 3 226 ivcomp = ivon01 / (ivon02 - ivon03) 227 go to 47240 22837240 ivdele = ivdele + 1 229 write (i02,80003) ivtnum 230 if (iczero) 47240, 7251, 47240 23147240 if (ivcomp - 18) 27240,17240,27240 23217240 ivpass = ivpass + 1 233 write (i02,80001) ivtnum 234 go to 7251 23527240 ivfail = ivfail + 1 236 ivcorr = 18 237 write (i02,80004) ivtnum, ivcomp, ivcorr 238 7251 continue 239c 240c test 725 through 727 test '/' followed by '*'. 241c 242 ivtnum = 725 243c 244c **** test 725 **** 245c 246 if (iczero) 37250, 7250, 37250 247 7250 continue 248 ivon01 = 108 249 ivon02 = 9 250 ivon03 = 3 251 ivcomp = ivon01 / ivon02 * ivon03 252 go to 47250 25337250 ivdele = ivdele + 1 254 write (i02,80003) ivtnum 255 if (iczero) 47250, 7261, 47250 25647250 if (ivcomp - 36) 27250,17250,27250 25717250 ivpass = ivpass + 1 258 write (i02,80001) ivtnum 259 go to 7261 26027250 ivfail = ivfail + 1 261 ivcorr = 36 262 write (i02,80004) ivtnum, ivcomp, ivcorr 263 7261 continue 264 ivtnum = 726 265c 266c **** test 726 **** 267c 268 if (iczero) 37260, 7260, 37260 269 7260 continue 270 ivon01 = 108 271 ivon02 = 9 272 ivon03 = 3 273 ivcomp = (ivon01 / ivon02) * ivon03 274 go to 47260 27537260 ivdele = ivdele + 1 276 write (i02,80003) ivtnum 277 if (iczero) 47260, 7271, 47260 27847260 if (ivcomp - 36) 27260,17260,27260 27917260 ivpass = ivpass + 1 280 write (i02,80001) ivtnum 281 go to 7271 28227260 ivfail = ivfail + 1 283 ivcorr = 36 284 write (i02,80004) ivtnum, ivcomp, ivcorr 285 7271 continue 286 ivtnum = 727 287c 288c **** test 727 **** 289c 290 if (iczero) 37270, 7270, 37270 291 7270 continue 292 ivon01 = 108 293 ivon02 = 9 294 ivon03 = 3 295 ivcomp = ivon01 / (ivon02 * ivon03) 296 go to 47270 29737270 ivdele = ivdele + 1 298 write (i02,80003) ivtnum 299 if (iczero) 47270, 7281, 47270 30047270 if (ivcomp - 4) 27270,17270,27270 30117270 ivpass = ivpass + 1 302 write (i02,80001) ivtnum 303 go to 7281 30427270 ivfail = ivfail + 1 305 ivcorr = 4 306 write (i02,80004) ivtnum, ivcomp, ivcorr 307 7281 continue 308c 309c test 728 through 730 test '/' followed by '**'. 310c 311 ivtnum = 728 312c 313c **** test 728 **** 314c 315 if (iczero) 37280, 7280, 37280 316 7280 continue 317 ivon01 = 108 318 ivon02 = 3 319 ivon03 = 2 320 ivcomp = ivon01 / ivon02 ** ivon03 321 go to 47280 32237280 ivdele = ivdele + 1 323 write (i02,80003) ivtnum 324 if (iczero) 47280, 7291, 47280 32547280 if (ivcomp - 12) 27280,17280,27280 32617280 ivpass = ivpass + 1 327 write (i02,80001) ivtnum 328 go to 7291 32927280 ivfail = ivfail + 1 330 ivcorr = 12 331 write (i02,80004) ivtnum, ivcomp, ivcorr 332 7291 continue 333 ivtnum = 729 334c 335c **** test 729 **** 336c 337 if (iczero) 37290, 7290, 37290 338 7290 continue 339 ivon01 = 108 340 ivon02 = 3 341 ivon03 = 2 342 ivcomp = (ivon01 / ivon02) ** ivon03 343 go to 47290 34437290 ivdele = ivdele + 1 345 write (i02,80003) ivtnum 346 if (iczero) 47290, 7301, 47290 34747290 if (ivcomp - 1296) 27290,17290,27290 34817290 ivpass = ivpass + 1 349 write (i02,80001) ivtnum 350 go to 7301 35127290 ivfail = ivfail + 1 352 ivcorr = 1296 353 write (i02,80004) ivtnum, ivcomp, ivcorr 354 7301 continue 355 ivtnum = 730 356c 357c **** test 730 **** 358c 359 if (iczero) 37300, 7300, 37300 360 7300 continue 361 ivon01 = 108 362 ivon02 = 3 363 ivon03 = 2 364 ivcomp = ivon01 / (ivon02 ** ivon03) 365 go to 47300 36637300 ivdele = ivdele + 1 367 write (i02,80003) ivtnum 368 if (iczero) 47300, 7311, 47300 36947300 if (ivcomp - 12) 27300,17300,27300 37017300 ivpass = ivpass + 1 371 write (i02,80001) ivtnum 372 go to 7311 37327300 ivfail = ivfail + 1 374 ivcorr = 12 375 write (i02,80004) ivtnum, ivcomp, ivcorr 376 7311 continue 377c 378c test 731 through 733 test '**' followed by '+'. 379c 380 ivtnum = 731 381c 382c **** test 731 **** 383c 384 if (iczero) 37310, 7310, 37310 385 7310 continue 386 ivon01 = 3 387 ivon02 = 5 388 ivon03 = 4 389 ivcomp = ivon01 ** ivon02 + ivon03 390 go to 47310 39137310 ivdele = ivdele + 1 392 write (i02,80003) ivtnum 393 if (iczero) 47310, 7321, 47310 39447310 if (ivcomp - 247) 27310,17310,27310 39517310 ivpass = ivpass + 1 396 write (i02,80001) ivtnum 397 go to 7321 39827310 ivfail = ivfail + 1 399 ivcorr = 247 400 write (i02,80004) ivtnum, ivcomp, ivcorr 401 7321 continue 402 ivtnum = 732 403c 404c **** test 732 **** 405c 406 if (iczero) 37320, 7320, 37320 407 7320 continue 408 ivon01 = 3 409 ivon02 = 5 410 ivon03 = 4 411 ivcomp = (ivon01 ** ivon02) + ivon03 412 go to 47320 41337320 ivdele = ivdele + 1 414 write (i02,80003) ivtnum 415 if (iczero) 47320, 7331, 47320 41647320 if (ivcomp - 247) 27320,17320,27320 41717320 ivpass = ivpass + 1 418 write (i02,80001) ivtnum 419 go to 7331 42027320 ivfail = ivfail + 1 421 ivcorr = 247 422 write (i02,80004) ivtnum, ivcomp, ivcorr 423 7331 continue 424 ivtnum = 733 425c 426c **** test 733 **** 427c 428 if (iczero) 37330, 7330, 37330 429 7330 continue 430 ivon01 = 3 431 ivon02 = 5 432 ivon03 = 4 433 ivcomp = ivon01 ** (ivon02 + ivon03) 434 go to 47330 43537330 ivdele = ivdele + 1 436 write (i02,80003) ivtnum 437 if (iczero) 47330, 7341, 47330 43847330 if (ivcomp - 19683) 27330,17330,27330 43917330 ivpass = ivpass + 1 440 write (i02,80001) ivtnum 441 go to 7341 44227330 ivfail = ivfail + 1 443 ivcorr = 19683 444 write (i02,80004) ivtnum, ivcomp, ivcorr 445 7341 continue 446c 447c test 734 through 736 test '**' followed by '-'. 448c 449 ivtnum = 734 450c 451c **** test 734 **** 452c 453 if (iczero) 37340, 7340, 37340 454 7340 continue 455 ivon01 = 3 456 ivon02 = 7 457 ivon03 = 4 458 ivcomp = ivon01 ** ivon02 - ivon03 459 go to 47340 46037340 ivdele = ivdele + 1 461 write (i02,80003) ivtnum 462 if (iczero) 47340, 7351, 47340 46347340 if (ivcomp - 2183) 27340,17340,27340 46417340 ivpass = ivpass + 1 465 write (i02,80001) ivtnum 466 go to 7351 46727340 ivfail = ivfail + 1 468 ivcorr = 2183 469 write (i02,80004) ivtnum, ivcomp, ivcorr 470 7351 continue 471 ivtnum = 735 472c 473c **** test 735 **** 474c 475 if (iczero) 37350, 7350, 37350 476 7350 continue 477 ivon01 = 3 478 ivon02 = 7 479 ivon03 = 4 480 ivcomp = (ivon01 ** ivon02) - ivon03 481 go to 47350 48237350 ivdele = ivdele + 1 483 write (i02,80003) ivtnum 484 if (iczero) 47350, 7361, 47350 48547350 if (ivcomp - 2183) 27350,17350,27350 48617350 ivpass = ivpass + 1 487 write (i02,80001) ivtnum 488 go to 7361 48927350 ivfail = ivfail + 1 490 ivcorr = 2183 491 write (i02,80004) ivtnum, ivcomp, ivcorr 492 7361 continue 493 ivtnum = 736 494c 495c **** test 736 **** 496c 497 if (iczero) 37360, 7360, 37360 498 7360 continue 499 ivon01 = 3 500 ivon02 = 7 501 ivon03 = 4 502 ivcomp = ivon01 ** (ivon02 - ivon03) 503 go to 47360 50437360 ivdele = ivdele + 1 505 write (i02,80003) ivtnum 506 if (iczero) 47360, 7371, 47360 50747360 if (ivcomp - 27) 27360,17360,27360 50817360 ivpass = ivpass + 1 509 write (i02,80001) ivtnum 510 go to 7371 51127360 ivfail = ivfail + 1 512 ivcorr = 27 513 write (i02,80004) ivtnum, ivcomp, ivcorr 514 7371 continue 515c 516c test 737 through 739 test '**' followed by '*'. 517c 518 ivtnum = 737 519c 520c **** test 737 **** 521c 522 if (iczero) 37370, 7370, 37370 523 7370 continue 524 ivon01 = 3 525 ivon02 = 3 526 ivon03 = 3 527 ivcomp = ivon01 ** ivon02 * ivon03 528 go to 47370 52937370 ivdele = ivdele + 1 530 write (i02,80003) ivtnum 531 if (iczero) 47370, 7381, 47370 53247370 if (ivcomp - 81) 27370,17370,27370 53317370 ivpass = ivpass + 1 534 write (i02,80001) ivtnum 535 go to 7381 53627370 ivfail = ivfail + 1 537 ivcorr = 81 538 write (i02,80004) ivtnum, ivcomp, ivcorr 539 7381 continue 540 ivtnum = 738 541c 542c **** test 738 **** 543c 544 if (iczero) 37380, 7380, 37380 545 7380 continue 546 ivon01 = 3 547 ivon02 = 3 548 ivon03 = 3 549 ivcomp = (ivon01 ** ivon02) * ivon03 550 go to 47380 55137380 ivdele = ivdele + 1 552 write (i02,80003) ivtnum 553 if (iczero) 47380, 7391, 47380 55447380 if (ivcomp - 81) 27380,17380,27380 55517380 ivpass = ivpass + 1 556 write (i02,80001) ivtnum 557 go to 7391 55827380 ivfail = ivfail + 1 559 ivcorr = 81 560 write (i02,80004) ivtnum, ivcomp, ivcorr 561 7391 continue 562 ivtnum = 739 563c 564c **** test 739 **** 565c 566 if (iczero) 37390, 7390, 37390 567 7390 continue 568 ivon01 = 3 569 ivon02 = 3 570 ivon03 = 3 571 ivcomp = ivon01 ** (ivon02 * ivon03) 572 go to 47390 57337390 ivdele = ivdele + 1 574 write (i02,80003) ivtnum 575 if (iczero) 47390, 7401, 47390 57647390 if (ivcomp - 19683) 27390,17390,27390 57717390 ivpass = ivpass + 1 578 write (i02,80001) ivtnum 579 go to 7401 58027390 ivfail = ivfail + 1 581 ivcorr = 19683 582 write (i02,80004) ivtnum, ivcomp, ivcorr 583 7401 continue 584c 585c test 740 through 742 test '**' followed by '/'. 586c 587 ivtnum = 740 588c 589c **** test 740 **** 590c 591 if (iczero) 37400, 7400, 37400 592 7400 continue 593 ivon01 = 3 594 ivon02 = 9 595 ivon03 = 3 596 ivcomp = ivon01 ** ivon02 / ivon03 597 go to 47400 59837400 ivdele = ivdele + 1 599 write (i02,80003) ivtnum 600 if (iczero) 47400, 7411, 47400 60147400 if (ivcomp - 6561) 27400,17400,27400 60217400 ivpass = ivpass + 1 603 write (i02,80001) ivtnum 604 go to 7411 60527400 ivfail = ivfail + 1 606 ivcorr = 6561 607 write (i02,80004) ivtnum, ivcomp, ivcorr 608 7411 continue 609 ivtnum = 741 610c 611c **** test 741 **** 612c 613 if (iczero) 37410, 7410, 37410 614 7410 continue 615 ivon01 = 3 616 ivon02 = 9 617 ivon03 = 3 618 ivcomp = (ivon01 ** ivon02) / ivon03 619 go to 47410 62037410 ivdele = ivdele + 1 621 write (i02,80003) ivtnum 622 if (iczero) 47410, 7421, 47410 62347410 if (ivcomp - 6561) 27410,17410,27410 62417410 ivpass = ivpass + 1 625 write (i02,80001) ivtnum 626 go to 7421 62727410 ivfail = ivfail + 1 628 ivcorr = 6561 629 write (i02,80004) ivtnum, ivcomp, ivcorr 630 7421 continue 631 ivtnum = 742 632c **** test 742 **** 633c 634 if (iczero) 37420, 7420, 37420 635 7420 continue 636 ivon01 = 3 637 ivon02 = 9 638 ivon03 = 3 639 ivcomp = ivon01 ** (ivon02 / ivon03) 640 go to 47420 64137420 ivdele = ivdele + 1 642 write (i02,80003) ivtnum 643 if (iczero) 47420, 7431, 47420 64447420 if (ivcomp - 27) 27420,17420,27420 64517420 ivpass = ivpass + 1 646 write (i02,80001) ivtnum 647 go to 7431 64827420 ivfail = ivfail + 1 649 ivcorr = 27 650 write (i02,80004) ivtnum, ivcomp, ivcorr 651 7431 continue 652c 653c test 743 through 746 test '**' followed by '**'. 654c 655 ivtnum = 743 656c 657c **** test 743 **** 658c 659 if (iczero) 37430, 7430, 37430 660 7430 continue 661 ivon01 = 3 662 ivon02 = 3 663 ivon03 = 2 664 ivcomp = (ivon01 ** ivon02) ** ivon03 665 go to 47430 66637430 ivdele = ivdele + 1 667 write (i02,80003) ivtnum 668 if (iczero) 47430, 7441, 47430 66947430 if (ivcomp - 729) 27430,17430,27430 67017430 ivpass = ivpass + 1 671 write (i02,80001) ivtnum 672 go to 7441 67327430 ivfail = ivfail + 1 674 ivcorr = 729 675 write (i02,80004) ivtnum, ivcomp, ivcorr 676 7441 continue 677 ivtnum = 744 678c 679c **** test 744 **** 680c 681 if (iczero) 37440, 7440, 37440 682 7440 continue 683 ivon01 = 3 684 ivon02 = 3 685 ivon03 = 2 686 ivcomp = ivon01 ** (ivon02 ** ivon03) 687 go to 47440 68837440 ivdele = ivdele + 1 689 write (i02,80003) ivtnum 690 if (iczero) 47440, 7451, 47440 69147440 if (ivcomp - 19683) 27440,17440,27440 69217440 ivpass = ivpass + 1 693 write (i02,80001) ivtnum 694 go to 7451 69527440 ivfail = ivfail + 1 696 ivcorr = 19683 697 write (i02,80004) ivtnum, ivcomp, ivcorr 698 7451 continue 699 ivtnum = 745 700c 701c **** test 745 **** 702c 703 if (iczero) 37450, 7450, 37450 704 7450 continue 705 ivon01 = -3 706 ivon02 = 3 707 ivon03 = 2 708 ivcomp = (ivon01 ** ivon02) ** ivon03 709 go to 47450 71037450 ivdele = ivdele + 1 711 write (i02,80003) ivtnum 712 if (iczero) 47450, 7461, 47450 71347450 if (ivcomp - 729) 27450,17450,27450 71417450 ivpass = ivpass + 1 715 write (i02,80001) ivtnum 716 go to 7461 71727450 ivfail = ivfail + 1 718 ivcorr = 729 719 write (i02,80004) ivtnum, ivcomp, ivcorr 720 7461 continue 721 ivtnum = 746 722c 723c **** test 746 **** 724c 725 if (iczero) 37460, 7460, 37460 726 7460 continue 727 ivon01 = -3 728 ivon02 = 3 729 ivon03 = 2 730 ivcomp = ivon01 ** (ivon02 ** ivon03) 731 go to 47460 73237460 ivdele = ivdele + 1 733 write (i02,80003) ivtnum 734 if (iczero) 47460, 7471, 47460 73547460 if (ivcomp + 19683) 27460,17460,27460 73617460 ivpass = ivpass + 1 737 write (i02,80001) ivtnum 738 go to 7471 73927460 ivfail = ivfail + 1 740 ivcorr = -19683 741 write (i02,80004) ivtnum, ivcomp, ivcorr 742 7471 continue 743c 744c 745c write page footings and run summaries 74699999 continue 747 write (i02,90002) 748 write (i02,90006) 749 write (i02,90002) 750 write (i02,90002) 751 write (i02,90007) 752 write (i02,90002) 753 write (i02,90008) ivfail 754 write (i02,90009) ivpass 755 write (i02,90010) ivdele 756c 757c 758c terminate routine execution 759 stop 760c 761c format statements for page headers 76290000 format (1h1) 76390002 format (1h ) 76490001 format (1h ,10x,34hfortran compiler validation system) 76590003 format (1h ,21x,11hversion 1.0) 76690004 format (1h ,10x,38hfor official use only - copyright 1978) 76790005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) 76890006 format (1h ,5x,46h----------------------------------------------) 76990011 format (1h ,18x,17hsubset level test) 770c 771c format statements for run summaries 77290008 format (1h ,15x,i5,19h errors encountered) 77390009 format (1h ,15x,i5,13h tests passed) 77490010 format (1h ,15x,i5,14h tests deleted) 775c 776c format statements for test results 77780001 format (1h ,4x,i5,7x,4hpass) 77880002 format (1h ,4x,i5,7x,4hfail) 77980003 format (1h ,4x,i5,7x,7hdeleted) 78080004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) 78180005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) 782c 78390007 format (1h ,20x,20hend of program fm044) 784 end 785