1c comment section 2c 3c fm039 4c 5c this routine tests arithmetic assignment statements of the 6c form integer variable = arithmetic expression 7c where the arithmetic expression is formed with the arithmetic 8c operator /, integer constants and an integer variable. both 9c positive and negative values are used for the integer constants 10c and the integer variable. 11c 12c there are tests which require no truncation of the result 13c and tests where the result must be truncated before being stored 14c in the resultant integer variable. some of the tests use parens 15c to group elements in the arithmetic expression. 16c 17c there are tests where the arithmetic expression contains 18c (1) integer variable/integer constant/integer constant 19c integer constant/integer variable/integer constant 20c integer constant/integer constant/integer variable 21c (2) same as (1) but with parentheses to group elements 22c in the arithmetic expression. 23c 24c references 25c american national standard programming language fortran, 26c x3.9-1978 27c 28c section 4.3, integer type 29c section 4.3.1, integer constant 30c section 6.1, arithmetic expressions 31c section 6.6, evaluation of expressions 32c section 10.1, arithmetic assignment statement 33c 34c ********************************************************** 35c 36c a compiler validation system for the fortran language 37c based on specifications as defined in american national standard 38c programming language fortran x3.9-1978, has been developed by the 39c federal cobol compiler testing service. the fortran compiler 40c validation system (fcvs) consists of audit routines, their related 41c data, and an executive system. each audit routine is a fortran 42c program, subprogram or function which includes tests of specific 43c language elements and supporting procedures indicating the result 44c of executing these tests. 45c 46c this particular program/subprogram/function contains features 47c found only in the subset as defined in x3.9-1978. 48c 49c suggestions and comments should be forwarded to - 50c 51c department of the navy 52c federal cobol compiler testing service 53c washington, d.c. 20376 54c 55c ********************************************************** 56c 57c 58c 59c initialization section 60c 61c initialize constants 62c ************** 63c i01 contains the logical unit number for the card reader. 64 i01 = 5 65c i02 contains the logical unit number for the printer. 66 i02 = 6 67c system environment section 68c 69cx010 this card is replaced by contents of fexec x-010 control card. 70c the cx010 card is for overriding the program default i01 = 5 71c (unit number for card reader). 72cx011 this card is replaced by contents of fexec x-011 control card. 73c the cx011 card is for systems which require additional 74c fortran statements for files associated with cx010 above. 75c 76cx020 this card is replaced by contents of fexec x-020 control card. 77c the cx020 card is for overriding the program default i02 = 6 78c (unit number for printer). 79cx021 this card is replaced by contents of fexec x-021 control card. 80c the cx021 card is for systems which require additional 81c fortran statements for files associated with cx020 above. 82c 83 ivpass=0 84 ivfail=0 85 ivdele=0 86 iczero=0 87c 88c write page headers 89 write (i02,90000) 90 write (i02,90001) 91 write (i02,90002) 92 write (i02, 90002) 93 write (i02,90003) 94 write (i02,90002) 95 write (i02,90004) 96 write (i02,90002) 97 write (i02,90011) 98 write (i02,90002) 99 write (i02,90002) 100 write (i02,90005) 101 write (i02,90006) 102 write (i02,90002) 103c 104c test section 105c 106c arithmetic assignment statement 107c 108c test 552 through test 557 contain arithmetic assignment statements 109c of the form iv = iv/ic/ic. 110c 111 5521 continue 112 ivtnum = 552 113c 114c **** test 552 **** 115c 116 if (iczero) 35520, 5520, 35520 117 5520 continue 118 ivon01 = 24 119 ivcomp = ivon01/3/4 120 go to 45520 12135520 ivdele = ivdele + 1 122 write (i02,80003) ivtnum 123 if (iczero) 45520, 5531, 45520 12445520 if (ivcomp - 2) 25520,15520,25520 12515520 ivpass = ivpass + 1 126 write (i02,80001) ivtnum 127 go to 5531 12825520 ivfail = ivfail + 1 129 ivcorr = 2 130 write (i02,80004) ivtnum, ivcomp ,ivcorr 131 5531 continue 132 ivtnum = 553 133c 134c **** test 553 **** 135c 136 if (iczero) 35530, 5530, 35530 137 5530 continue 138 ivon01 = 7151 139 ivcomp = ivon01/3/10 140 go to 45530 14135530 ivdele = ivdele + 1 142 write (i02,80003) ivtnum 143 if (iczero) 45530, 5541, 45530 14445530 if (ivcomp - 238) 25530,15530,25530 14515530 ivpass = ivpass + 1 146 write (i02,80001) ivtnum 147 go to 5541 14825530 ivfail = ivfail + 1 149 ivcorr = 238 150 write (i02,80004) ivtnum, ivcomp ,ivcorr 151 5541 continue 152 ivtnum = 554 153c 154c **** test 554 **** 155c 156 if (iczero) 35540, 5540, 35540 157 5540 continue 158 ivon01 = -330 159 ivcomp = ivon01/3/2 160 go to 45540 16135540 ivdele = ivdele + 1 162 write (i02,80003) ivtnum 163 if (iczero) 45540, 5551, 45540 16445540 if (ivcomp + 55) 25540,15540,25540 16515540 ivpass = ivpass + 1 166 write (i02,80001) ivtnum 167 go to 5551 16825540 ivfail = ivfail + 1 169 ivcorr = -55 170 write (i02,80004) ivtnum, ivcomp ,ivcorr 171 5551 continue 172 ivtnum = 555 173c 174c **** test 555 **** 175c 176 if (iczero) 35550, 5550, 35550 177 5550 continue 178 ivon01 = 15249 179 ivcomp = ivon01/(-13)/51 180 go to 45550 18135550 ivdele = ivdele + 1 182 write (i02,80003) ivtnum 183 if (iczero) 45550, 5561, 45550 18445550 if (ivcomp + 23) 25550,15550,25550 18515550 ivpass = ivpass + 1 186 write (i02,80001) ivtnum 187 go to 5561 18825550 ivfail = ivfail + 1 189 ivcorr = -23 190 write (i02,80004) ivtnum, ivcomp ,ivcorr 191 5561 continue 192 ivtnum = 556 193c 194c **** test 556 **** 195c 196 if (iczero) 35560, 5560, 35560 197 5560 continue 198 ivon01 = -27342 199 ivcomp = ivon01/(-4)/(-3) 200 go to 45560 20135560 ivdele = ivdele + 1 202 write (i02,80003) ivtnum 203 if (iczero) 45560, 5571, 45560 20445560 if (ivcomp + 2278) 25560,15560,25560 20515560 ivpass = ivpass + 1 206 write (i02,80001) ivtnum 207 go to 5571 20825560 ivfail = ivfail + 1 209 ivcorr = -2278 210 write (i02,80004) ivtnum, ivcomp ,ivcorr 211 5571 continue 212 ivtnum = 557 213c 214c **** test 557 **** 215c 216 if (iczero) 35570, 5570, 35570 217 5570 continue 218 ivon01 = -27342 219 ivcomp = -ivon01/4/(-3) 220 go to 45570 22135570 ivdele = ivdele + 1 222 write (i02,80003) ivtnum 223 if (iczero) 45570, 5581, 45570 22445570 if (ivcomp + 2278) 25570,15570,25570 22515570 ivpass = ivpass + 1 226 write (i02,80001) ivtnum 227 go to 5581 22825570 ivfail = ivfail + 1 229 ivcorr = -2278 230 write (i02,80004) ivtnum, ivcomp ,ivcorr 231c 232c test 558 through test 563 contain arithmetic assignment statements 233c of the form iv=ic/iv/ic. 234c 235 5581 continue 236 ivtnum = 558 237c 238c **** test 558 **** 239c 240 if (iczero) 35580, 5580, 35580 241 5580 continue 242 ivon02 = 3 243 ivcomp = 24/ivon02/4 244 go to 45580 24535580 ivdele = ivdele + 1 246 write (i02,80003) ivtnum 247 if (iczero) 45580, 5591, 45580 24845580 if (ivcomp - 2) 25580,15580,25580 24915580 ivpass = ivpass + 1 250 write (i02,80001) ivtnum 251 go to 5591 25225580 ivfail = ivfail + 1 253 ivcorr = 2 254 write (i02,80004) ivtnum, ivcomp ,ivcorr 255 5591 continue 256 ivtnum = 559 257c 258c **** test 559 **** 259c 260 if (iczero) 35590, 5590, 35590 261 5590 continue 262 ivon02 = 3 263 ivcomp = 7151/ivon02/10 264 go to 45590 26535590 ivdele = ivdele + 1 266 write (i02,80003) ivtnum 267 if (iczero) 45590, 5601, 45590 26845590 if (ivcomp - 238) 25590,15590,25590 26915590 ivpass = ivpass + 1 270 write (i02,80001) ivtnum 271 go to 5601 27225590 ivfail = ivfail + 1 273 ivcorr = 238 274 write (i02,80004) ivtnum, ivcomp ,ivcorr 275 5601 continue 276 ivtnum = 560 277c 278c **** test 560 **** 279c 280 if (iczero) 35600, 5600, 35600 281 5600 continue 282 ivon02 = -3 283 ivcomp = 330/ivon02/2 284 go to 45600 28535600 ivdele = ivdele + 1 286 write (i02,80003) ivtnum 287 if (iczero) 45600, 5611, 45600 28845600 if (ivcomp +55) 25600,15600,25600 28915600 ivpass = ivpass + 1 290 write (i02,80001) ivtnum 291 go to 5611 29225600 ivfail = ivfail + 1 293 ivcorr = -55 294 write (i02,80004) ivtnum, ivcomp ,ivcorr 295 5611 continue 296 ivtnum = 561 297c 298c **** test 561 **** 299c 300 if (iczero) 35610, 5610, 35610 301 5610 continue 302 ivon02 = +13 303 ivcomp = 15249/ivon02/(-51) 304 go to 45610 30535610 ivdele = ivdele + 1 306 write (i02,80003) ivtnum 307 if (iczero) 45610, 5621, 45610 30845610 if (ivcomp + 23) 25610,15610,25610 30915610 ivpass = ivpass + 1 310 write (i02,80001) ivtnum 311 go to 5621 31225610 ivfail = ivfail + 1 313 ivcorr = -23 314 write (i02,80004) ivtnum, ivcomp ,ivcorr 315 5621 continue 316 ivtnum = 562 317c 318c **** test 562 **** 319c 320 if (iczero) 35620, 5620, 35620 321 5620 continue 322 ivon02 = -4 323 ivcomp = (-27342)/ivon02/(-3) 324 go to 45620 32535620 ivdele = ivdele + 1 326 write (i02,80003) ivtnum 327 if (iczero) 45620, 5631, 45620 32845620 if (ivcomp + 2278) 25620,15620,25620 32915620 ivpass = ivpass + 1 330 write (i02,80001) ivtnum 331 go to 5631 33225620 ivfail = ivfail + 1 333 ivcorr = -2278 334 write (i02,80004) ivtnum, ivcomp ,ivcorr 335 5631 continue 336 ivtnum = 563 337c 338c **** test 563 **** 339c 340 if (iczero) 35630, 5630, 35630 341 5630 continue 342 ivon02 = -4 343 ivcomp = -27342/(-ivon02)/(-3) 344 go to 45630 34535630 ivdele = ivdele + 1 346 write (i02,80003) ivtnum 347 if (iczero) 45630, 5641, 45630 34845630 if (ivcomp - 2278) 25630,15630,25630 34915630 ivpass = ivpass + 1 350 write (i02,80001) ivtnum 351 go to 5641 35225630 ivfail = ivfail + 1 353 ivcorr = 2278 354 write (i02,80004) ivtnum, ivcomp ,ivcorr 355c 356c test 564 through test 569 contain arithmetic assignment statements 357c of the form iv = ic/ic/iv. 358c 359 5641 continue 360 ivtnum = 564 361c 362c **** test 564 **** 363c 364 if (iczero) 35640, 5640, 35640 365 5640 continue 366 ivon03 = 4 367 ivcomp = 24/3/ivon03 368 go to 45640 36935640 ivdele = ivdele + 1 370 write (i02,80003) ivtnum 371 if (iczero) 45640, 5651, 45640 37245640 if (ivcomp -2) 25640,15640,25640 37315640 ivpass = ivpass + 1 374 write (i02,80001) ivtnum 375 go to 5651 37625640 ivfail = ivfail + 1 377 ivcorr = 2 378 write (i02,80004) ivtnum, ivcomp ,ivcorr 379 5651 continue 380 ivtnum = 565 381c 382c **** test 565 **** 383c 384 if (iczero) 35650, 5650, 35650 385 5650 continue 386 ivon03 = 10 387 ivcomp = 7151/3/ivon03 388 go to 45650 38935650 ivdele = ivdele + 1 390 write (i02,80003) ivtnum 391 if (iczero) 45650, 5661, 45650 39245650 if (ivcomp - 238) 25650,15650,25650 39315650 ivpass = ivpass + 1 394 write (i02,80001) ivtnum 395 go to 5661 39625650 ivfail = ivfail + 1 397 ivcorr = 238 398 write (i02,80004) ivtnum, ivcomp ,ivcorr 399 5661 continue 400 ivtnum = 566 401c 402c **** test 566 **** 403c 404 if (iczero) 35660, 5660, 35660 405 5660 continue 406 ivon03 = -2 407 ivcomp = 330/3/ivon03 408 go to 45660 40935660 ivdele = ivdele + 1 410 write (i02,80003) ivtnum 411 if (iczero) 45660, 5671, 45660 41245660 if (ivcomp + 55) 25660,15660,25660 41315660 ivpass = ivpass + 1 414 write (i02,80001) ivtnum 415 go to 5671 41625660 ivfail = ivfail + 1 417 ivcorr = -55 418 write (i02,80004) ivtnum, ivcomp ,ivcorr 419 5671 continue 420 ivtnum = 567 421c 422c **** test 567 **** 423c 424 if (iczero) 35670, 5670, 35670 425 5670 continue 426 ivon03 = +51 427 ivcomp = 15249/(-13)/ivon03 428 go to 45670 42935670 ivdele = ivdele + 1 430 write (i02,80003) ivtnum 431 if (iczero) 45670, 5681, 45670 43245670 if (ivcomp + 23) 25670,15670,25670 43315670 ivpass = ivpass + 1 434 write (i02,80001) ivtnum 435 go to 5681 43625670 ivfail = ivfail + 1 437 ivcorr = -23 438 write (i02,80004) ivtnum, ivcomp ,ivcorr 439 5681 continue 440 ivtnum = 568 441c 442c **** test 568 **** 443c 444 if (iczero) 35680, 5680, 35680 445 5680 continue 446 ivon03 = -3 447 ivcomp = (-27342)/(-4)/ivon03 448 go to 45680 44935680 ivdele = ivdele + 1 450 write (i02,80003) ivtnum 451 if (iczero) 45680, 5691, 45680 45245680 if (ivcomp + 2278) 25680,15680,25680 45315680 ivpass = ivpass + 1 454 write (i02,80001) ivtnum 455 go to 5691 45625680 ivfail = ivfail + 1 457 ivcorr = -2278 458 write (i02,80004) ivtnum, ivcomp ,ivcorr 459 5691 continue 460 ivtnum = 569 461c 462c **** test 569 **** 463c 464 if (iczero) 35690, 5690, 35690 465 5690 continue 466 ivon03 = -3 467 ivcomp = -27342/(-4)/(-ivon03) 468 go to 45690 46935690 ivdele = ivdele + 1 470 write (i02,80003) ivtnum 471 if (iczero) 45690, 5701, 45690 47245690 if (ivcomp - 2278) 25690,15690,25690 47315690 ivpass = ivpass + 1 474 write (i02,80001) ivtnum 475 go to 5701 47625690 ivfail = ivfail + 1 477 ivcorr = 2278 478 write (i02,80004) ivtnum, ivcomp ,ivcorr 479c 480c test 570 and test 571 - iv =(iv/ic)/ic 481c 482 5701 continue 483 ivtnum = 570 484c 485c **** test 570 **** 486c 487 if (iczero) 35700, 5700, 35700 488 5700 continue 489 ivon01 = 24 490 ivcomp = (ivon01/3)/4 491 go to 45700 49235700 ivdele = ivdele + 1 493 write (i02,80003) ivtnum 494 if (iczero) 45700, 5711, 45700 49545700 if (ivcomp -2) 25700,15700,25700 49615700 ivpass = ivpass + 1 497 write (i02,80001) ivtnum 498 go to 5711 49925700 ivfail = ivfail + 1 500 ivcorr = 2 501 write (i02,80004) ivtnum, ivcomp ,ivcorr 502 5711 continue 503 ivtnum = 571 504c 505c **** test 571 **** 506c 507 if (iczero) 35710, 5710, 35710 508 5710 continue 509 ivon01 = -330 510 ivcomp = (ivon01/(-3))/4 511 go to 45710 51235710 ivdele = ivdele + 1 513 write (i02,80003) ivtnum 514 if (iczero) 45710, 5721, 45710 51545710 if (ivcomp - 27) 25710,15710,25710 51615710 ivpass = ivpass + 1 517 write (i02,80001) ivtnum 518 go to 5721 51925710 ivfail = ivfail + 1 520 ivcorr = 27 521 write (i02,80004) ivtnum, ivcomp ,ivcorr 522c 523c test 572 and test 573 - iv= iv/(ic/ic) 524c 525 5721 continue 526 ivtnum = 572 527c 528c **** test 572 **** 529c 530 if (iczero) 35720, 5720, 35720 531 5720 continue 532 ivon01 = 24 533 ivcomp = ivon01/(8/4) 534 go to 45720 53535720 ivdele = ivdele + 1 536 write (i02,80003) ivtnum 537 if (iczero) 45720, 5731, 45720 53845720 if (ivcomp - 12) 25720,15720,25720 53915720 ivpass = ivpass + 1 540 write (i02,80001) ivtnum 541 go to 5731 54225720 ivfail = ivfail + 1 543 ivcorr = 12 544 write (i02,80004) ivtnum, ivcomp ,ivcorr 545 5731 continue 546 ivtnum = 573 547c 548c **** test 573 **** 549c 550 if (iczero) 35730, 5730, 35730 551 5730 continue 552 ivon01 = -7154 553 ivcomp = -ivon01/((-26)/5) 554 go to 45730 55535730 ivdele = ivdele + 1 556 write (i02,80003) ivtnum 557 if (iczero) 45730, 5741, 45730 55845730 if (ivcomp + 1430) 25730,15730,25730 55915730 ivpass = ivpass + 1 560 write (i02,80001) ivtnum 561 go to 5741 56225730 ivfail = ivfail + 1 563 ivcorr = -1430 564 write (i02,80004) ivtnum, ivcomp ,ivcorr 565c 566c test 574 and test 575 - iv=(ic/iv)/ic 567c 568 5741 continue 569 ivtnum = 574 570c 571c **** test 574 **** 572c 573 if (iczero) 35740, 5740, 35740 574 5740 continue 575 ivon02 = 3 576 ivcomp = (24/ivon02)/4 577 go to 45740 57835740 ivdele = ivdele + 1 579 write (i02,80003) ivtnum 580 if (iczero) 45740, 5751, 45740 58145740 if (ivcomp -2) 25740,15740,25740 58215740 ivpass = ivpass + 1 583 write (i02,80001) ivtnum 584 go to 5751 58525740 ivfail = ivfail + 1 586 ivcorr = 2 587 write (i02,80004) ivtnum, ivcomp ,ivcorr 588 5751 continue 589 ivtnum = 575 590c 591c **** test 575 **** 592c 593 if (iczero) 35750, 5750, 35750 594 5750 continue 595 ivon02 = -3 596 ivcomp = (-330/ivon02)/(-4) 597 go to 45750 59835750 ivdele = ivdele + 1 599 write (i02,80003) ivtnum 600 if (iczero) 45750, 5761, 45750 60145750 if (ivcomp + 27) 25750,15750,25750 60215750 ivpass = ivpass + 1 603 write (i02,80001) ivtnum 604 go to 5761 60525750 ivfail = ivfail + 1 606 ivcorr = -27 607 write (i02,80004) ivtnum, ivcomp ,ivcorr 608c 609c test 576 and test 577 - iv=ic/(iv/ic) 610c 611 5761 continue 612 ivtnum = 576 613c 614c **** test 576 **** 615c 616 if (iczero) 35760, 5760, 35760 617 5760 continue 618 ivon02 = 8 619 ivcomp = 24/(ivon02/4) 620 go to 45760 62135760 ivdele = ivdele + 1 622 write (i02,80003) ivtnum 623 if (iczero) 45760, 5771, 45760 62445760 if (ivcomp - 12) 25760,15760,25760 62515760 ivpass = ivpass + 1 626 write (i02,80001) ivtnum 627 go to 5771 62825760 ivfail = ivfail + 1 629 ivcorr = 12 630 write (i02,80004) ivtnum, ivcomp ,ivcorr 631 5771 continue 632 ivtnum = 577 633c 634c **** test 577 **** 635c 636 if (iczero) 35770, 5770, 35770 637 5770 continue 638 ivon02 = -26 639 ivcomp = 7154/((-ivon02)/(-5)) 640 go to 45770 64135770 ivdele = ivdele + 1 642 write (i02,80003) ivtnum 643 if (iczero) 45770, 5781, 45770 64445770 if (ivcomp + 1430) 25770,15770,25770 64515770 ivpass = ivpass + 1 646 write (i02,80001) ivtnum 647 go to 5781 64825770 ivfail = ivfail + 1 649 ivcorr = -1430 650 write (i02,80004) ivtnum, ivcomp ,ivcorr 651c 652c test 578 and test 579 - iv=(ic/ic)/iv 653c 654 5781 continue 655 ivtnum = 578 656c 657c **** test 578 **** 658c 659 if (iczero) 35780, 5780, 35780 660 5780 continue 661 ivon03 = 4 662 ivcomp = (24/3)/ivon03 663 go to 45780 66435780 ivdele = ivdele + 1 665 write (i02,80003) ivtnum 666 if (iczero) 45780, 5791, 45780 66745780 if (ivcomp - 2) 25780,15780,25780 66815780 ivpass = ivpass + 1 669 write (i02,80001) ivtnum 670 go to 5791 67125780 ivfail = ivfail + 1 672 ivcorr = 2 673 write (i02,80004) ivtnum, ivcomp ,ivcorr 674 5791 continue 675 ivtnum = 579 676c 677c **** test 579 **** 678c 679 if (iczero) 35790, 5790, 35790 680 5790 continue 681 ivon03 = -4 682 ivcomp = (330/(-3))/ivon03 683 go to 45790 68435790 ivdele = ivdele + 1 685 write (i02,80003) ivtnum 686 if (iczero) 45790, 5801, 45790 68745790 if (ivcomp - 27) 25790,15790,25790 68815790 ivpass = ivpass + 1 689 write (i02,80001) ivtnum 690 go to 5801 69125790 ivfail = ivfail + 1 692 ivcorr = 27 693 write (i02,80004) ivtnum, ivcomp ,ivcorr 694c 695c test 580 and test 581 - iv= ic/(ic/iv) 696c 697 5801 continue 698 ivtnum = 580 699c 700c **** test 580 **** 701c 702 if (iczero) 35800, 5800, 35800 703 5800 continue 704 ivon03 = 4 705 ivcomp = 24/(8/ivon03) 706 go to 45800 70735800 ivdele = ivdele + 1 708 write (i02,80003) ivtnum 709 if (iczero) 45800, 5811, 45800 71045800 if (ivcomp - 12) 25800,15800,25800 71115800 ivpass = ivpass + 1 712 write (i02,80001) ivtnum 713 go to 5811 71425800 ivfail = ivfail + 1 715 ivcorr = 12 716 write (i02,80004) ivtnum, ivcomp ,ivcorr 717 5811 continue 718 ivtnum = 581 719c 720c **** test 581 **** 721c 722 if (iczero) 35810, 5810, 35810 723 5810 continue 724 ivon03 = -5 725 ivcomp = -7154/((-26)/ivon03) 726 go to 45810 72735810 ivdele = ivdele + 1 728 write (i02,80003) ivtnum 729 if (iczero) 45810, 5821, 45810 73045810 if (ivcomp + 1430) 25810,15810,25810 73115810 ivpass = ivpass + 1 732 write (i02,80001) ivtnum 733 go to 5821 73425810 ivfail = ivfail + 1 735 ivcorr = -1430 736 write (i02,80004) ivtnum, ivcomp ,ivcorr 737c 738c **** end of tests **** 739 5821 continue 740c 741c write page footings and run summaries 74299999 continue 743 write (i02,90002) 744 write (i02,90006) 745 write (i02,90002) 746 write (i02,90002) 747 write (i02,90007) 748 write (i02,90002) 749 write (i02,90008) ivfail 750 write (i02,90009) ivpass 751 write (i02,90010) ivdele 752c 753c 754c terminate routine execution 755 stop 756c 757c format statements for page headers 75890000 format (1h1) 75990002 format (1h ) 76090001 format (1h ,10x,34hfortran compiler validation system) 76190003 format (1h ,21x,11hversion 1.0) 76290004 format (1h ,10x,38hfor official use only - copyright 1978) 76390005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) 76490006 format (1h ,5x,46h----------------------------------------------) 76590011 format (1h ,18x,17hsubset level test) 766c 767c format statements for run summaries 76890008 format (1h ,15x,i5,19h errors encountered) 76990009 format (1h ,15x,i5,13h tests passed) 77090010 format (1h ,15x,i5,14h tests deleted) 771c 772c format statements for test results 77380001 format (1h ,4x,i5,7x,4hpass) 77480002 format (1h ,4x,i5,7x,4hfail) 77580003 format (1h ,4x,i5,7x,7hdeleted) 77680004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) 77780005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) 778c 77990007 format (1h ,20x,20hend of program fm039) 780 end 781