1c comment section 2c 3c fm061 4c 5c this routine tests arithmetic assignment statements of the 6c form 7c integer variable = real constant 8c integer variable = real variable 9c real variable = integer variable 10c real variable = integer constant 11c 12c the constants and variables contain both positive and negative 13c values. 14c 15c a real datum is a processor approximation to the value of a 16c real number. it may assume positive, negative and zero values. 17c 18c a basic real constant is written as an integer part, a 19c decimal point, and a decimal fraction part in that order. both 20c the integer part and the decimal part are strings of digits; 21c either one of these strings may be empty but not both. the 22c constant is an approximation to the digit string interpreted as a 23c decimal numeral. 24c 25c a decimal exponent is written as the letter e, followed by an 26c optionally signed integer constant. 27c 28c a real constant is indicated by writing a basic real constant, 29c a basic real constant followed by a decimal exponent, or an 30c integer constant followed by a decimal exponent. 31c 32c references 33c american national standard programming language fortran, 34c x3.9-1978 35c 36c section 4.4, real type 37c section 4.4.1, real constant 38c section 6.1, arithmetic expressions 39c section 6.6, evaluation of expressions 40c section 10.1, arithmetic assignment statement 41c section 11.4, arithmetic if statement 42c 43c ********************************************************** 44c 45c a compiler validation system for the fortran language 46c based on specifications as defined in american national standard 47c programming language fortran x3.9-1978, has been developed by the 48c federal cobol compiler testing service. the fortran compiler 49c validation system (fcvs) consists of audit routines, their related 50c data, and an executive system. each audit routine is a fortran 51c program, subprogram or function which includes tests of specific 52c language elements and supporting procedures indicating the result 53c of executing these tests. 54c 55c this particular program/subprogram/function contains features 56c found only in the subset as defined in x3.9-1978. 57c 58c suggestions and comments should be forwarded to - 59c 60c department of the navy 61c federal cobol compiler testing service 62c washington, d.c. 20376 63c 64c ********************************************************** 65c 66c 67c 68c initialization section 69c 70c initialize constants 71c ************** 72c i01 contains the logical unit number for the card reader. 73 i01 = 5 74c i02 contains the logical unit number for the printer. 75 i02 = 6 76c system environment section 77c 78cx010 this card is replaced by contents of fexec x-010 control card. 79c the cx010 card is for overriding the program default i01 = 5 80c (unit number for card reader). 81cx011 this card is replaced by contents of fexec x-011 control card. 82c the cx011 card is for systems which require additional 83c fortran statements for files associated with cx010 above. 84c 85cx020 this card is replaced by contents of fexec x-020 control card. 86c the cx020 card is for overriding the program default i02 = 6 87c (unit number for printer). 88cx021 this card is replaced by contents of fexec x-021 control card. 89c the cx021 card is for systems which require additional 90c fortran statements for files associated with cx020 above. 91c 92 ivpass=0 93 ivfail=0 94 ivdele=0 95 iczero=0 96c 97c write page headers 98 write (i02,90000) 99 write (i02,90001) 100 write (i02,90002) 101 write (i02, 90002) 102 write (i02,90003) 103 write (i02,90002) 104 write (i02,90004) 105 write (i02,90002) 106 write (i02,90011) 107 write (i02,90002) 108 write (i02,90002) 109 write (i02,90005) 110 write (i02,90006) 111 write (i02,90002) 112c 113c test section 114c 115c test 32 through test 42 contain arithmetic assignment 116c statements of the form 117c 118c integer variable = real variable 119c 120 ivtnum = 32 121c 122c **** test 32 **** 123c 124 if (iczero) 30320, 320, 30320 125 320 continue 126 rvon01 = 44.5 127 ivcomp = rvon01 128 go to 40320 12930320 ivdele = ivdele + 1 130 write (i02,80003) ivtnum 131 if (iczero) 40320, 331, 40320 13240320 if (ivcomp - 44) 20320,10320,20320 13310320 ivpass = ivpass + 1 134 write (i02,80001) ivtnum 135 go to 331 13620320 ivfail = ivfail + 1 137 ivcorr = 44 138 write (i02,80004) ivtnum, ivcomp, ivcorr 139 331 continue 140 ivtnum = 33 141c 142c **** test 33 **** 143c 144 if (iczero) 30330, 330, 30330 145 330 continue 146 rvon01 = -2.0005 147 ivcomp = rvon01 148 go to 40330 14930330 ivdele = ivdele + 1 150 write (i02,80003) ivtnum 151 if (iczero) 40330, 341, 40330 15240330 if (ivcomp + 2) 20330,10330,20330 15310330 ivpass = ivpass + 1 154 write (i02,80001) ivtnum 155 go to 341 15620330 ivfail = ivfail + 1 157 ivcorr = -2 158 write (i02,80004) ivtnum, ivcomp, ivcorr 159 341 continue 160 ivtnum = 34 161c 162c **** test 34 **** 163c 164 if (iczero) 30340, 340, 30340 165 340 continue 166 rvon01 = .32767 167 ivcomp = rvon01 168 go to 40340 16930340 ivdele = ivdele + 1 170 write (i02,80003) ivtnum 171 if (iczero) 40340, 351, 40340 17240340 if (ivcomp) 20340,10340,20340 17310340 ivpass = ivpass + 1 174 write (i02,80001) ivtnum 175 go to 351 17620340 ivfail = ivfail + 1 177 ivcorr = 0 178 write (i02,80004) ivtnum, ivcomp, ivcorr 179 351 continue 180 ivtnum = 35 181c 182c **** test 35 **** 183c 184 if (iczero) 30350, 350, 30350 185 350 continue 186 rvon01 = 1.999 187 ivcomp = rvon01 188 go to 40350 18930350 ivdele = ivdele + 1 190 write (i02,80003) ivtnum 191 if (iczero) 40350, 361, 40350 19240350 if (ivcomp - 1) 20350,10350,20350 19310350 ivpass = ivpass + 1 194 write (i02,80001) ivtnum 195 go to 361 19620350 ivfail = ivfail + 1 197 ivcorr = 1 198 write (i02,80004) ivtnum, ivcomp, ivcorr 199 361 continue 200 ivtnum = 36 201c 202c **** test 36 **** 203c 204 if (iczero) 30360, 360, 30360 205 360 continue 206 rvon01 = .25e+1 207 ivcomp = rvon01 208 go to 40360 20930360 ivdele = ivdele + 1 210 write (i02,80003) ivtnum 211 if (iczero) 40360, 371, 40360 21240360 if (ivcomp - 2) 20360,10360,20360 21310360 ivpass = ivpass + 1 214 write (i02,80001) ivtnum 215 go to 371 21620360 ivfail = ivfail + 1 217 ivcorr = 2 218 write (i02,80004) ivtnum, ivcomp, ivcorr 219 371 continue 220 ivtnum = 37 221c 222c **** test 37 **** 223c 224 if (iczero) 30370, 370, 30370 225 370 continue 226 rvon01 = 445.0e-01 227 ivcomp = rvon01 228 go to 40370 22930370 ivdele = ivdele + 1 230 write (i02,80003) ivtnum 231 if (iczero) 40370, 381, 40370 23240370 if (ivcomp - 44) 20370,10370,20370 23310370 ivpass = ivpass + 1 234 write (i02,80001) ivtnum 235 go to 381 23620370 ivfail = ivfail + 1 237 ivcorr = 44 238 write (i02,80004) ivtnum, ivcomp, ivcorr 239 381 continue 240 ivtnum = 38 241c 242c **** test 38 **** 243c 244 if (iczero) 30380, 380, 30380 245 380 continue 246 rvon01 = -651.1e-0 247 ivcomp = rvon01 248 go to 40380 24930380 ivdele = ivdele + 1 250 write (i02,80003) ivtnum 251 if (iczero) 40380, 391, 40380 25240380 if (ivcomp + 651) 20380,10380,20380 25310380 ivpass = ivpass + 1 254 write (i02,80001) ivtnum 255 go to 391 25620380 ivfail = ivfail + 1 257 ivcorr = -651 258 write (i02,80004) ivtnum, ivcomp, ivcorr 259 391 continue 260 ivtnum = 39 261c 262c **** test 39 **** 263c 264 if (iczero) 30390, 390, 30390 265 390 continue 266 rvon01 = .3266e4 267 ivcomp = rvon01 268 go to 40390 26930390 ivdele = ivdele + 1 270 write (i02,80003) ivtnum 271 if (iczero) 40390, 401, 40390 27240390 if (ivcomp - 3266) 20390,10390,20390 27310390 ivpass = ivpass + 1 274 write (i02,80001) ivtnum 275 go to 401 27620390 ivfail = ivfail + 1 277 ivcorr = 3266 278 write (i02,80004) ivtnum, ivcomp, ivcorr 279 401 continue 280 ivtnum = 40 281c 282c **** test 40 **** 283c 284 if (iczero) 30400, 400, 30400 285 400 continue 286 rvon01 = 35.43e-01 287 ivcomp = rvon01 288 go to 40400 28930400 ivdele = ivdele + 1 290 write (i02,80003) ivtnum 291 if (iczero) 40400, 411, 40400 29240400 if (ivcomp - 3) 20400,10400,20400 29310400 ivpass = ivpass + 1 294 write (i02,80001) ivtnum 295 go to 411 29620400 ivfail = ivfail + 1 297 ivcorr = 3 298 write (i02,80004) ivtnum, ivcomp, ivcorr 299 411 continue 300 ivtnum = 41 301c 302c **** test 41 **** 303c 304 if (iczero) 30410, 410, 30410 305 410 continue 306 rvon01 = -7.001e2 307 ivcomp = rvon01 308 go to 40410 30930410 ivdele = ivdele + 1 310 write (i02,80003) ivtnum 311 if (iczero) 40410, 421, 40410 31240410 if (ivcomp + 700) 20410,10410,20410 31310410 ivpass = ivpass + 1 314 write (i02,80001) ivtnum 315 go to 421 31620410 ivfail = ivfail + 1 317 ivcorr = -700 318 write (i02,80004) ivtnum, ivcomp, ivcorr 319 421 continue 320 ivtnum = 42 321c 322c **** test 42 **** 323c 324 if (iczero) 30420, 420, 30420 325 420 continue 326 rvon01 = 4.45e-02 327 ivcomp = rvon01 328 go to 40420 32930420 ivdele = ivdele + 1 330 write (i02,80003) ivtnum 331 if (iczero) 40420, 431, 40420 33240420 if (ivcomp) 20420,10420,20420 33310420 ivpass = ivpass + 1 334 write (i02,80001) ivtnum 335 go to 431 33620420 ivfail = ivfail + 1 337 ivcorr = 0 338 write (i02,80004) ivtnum, ivcomp, ivcorr 339c test 43 through test 48 contain arithmetic assignment 340c statements of the form 341c 342c real variable = integer variable 343c 344 431 continue 345 ivtnum = 43 346c 347c **** test 43 **** 348c 349 if (iczero) 30430, 430, 30430 350 430 continue 351 ivon01 = 2 352 rvcomp = ivon01 353 go to 40430 35430430 ivdele = ivdele + 1 355 write (i02,80003) ivtnum 356 if (iczero) 40430, 441, 40430 35740430 if (rvcomp - 1.9995) 20430,10430,40431 35840431 if (rvcomp - 2.0005) 10430,10430,20430 35910430 ivpass = ivpass + 1 360 write (i02,80001) ivtnum 361 go to 441 36220430 ivfail = ivfail + 1 363 rvcorr = 2.0000 364 write (i02,80005) ivtnum, rvcomp, rvcorr 365 441 continue 366 ivtnum = 44 367c 368c **** test 44 **** 369c 370 if (iczero) 30440, 440, 30440 371 440 continue 372 ivon01 = 25 373 rvcomp = ivon01 374 go to 40440 37530440 ivdele = ivdele + 1 376 write (i02,80003) ivtnum 377 if (iczero) 40440, 451, 40440 37840440 if (rvcomp - 24.995) 20440,10440,40441 37940441 if (rvcomp - 25.005) 10440,10440,20440 38010440 ivpass = ivpass + 1 381 write (i02,80001) ivtnum 382 go to 451 38320440 ivfail = ivfail + 1 384 rvcorr = 25.000 385 write (i02,80005) ivtnum, rvcomp, rvcorr 386 451 continue 387 ivtnum = 45 388c 389c **** test 45 **** 390c 391 if (iczero) 30450, 450, 30450 392 450 continue 393 ivon01 = 357 394 rvcomp = ivon01 395 go to 40450 39630450 ivdele = ivdele + 1 397 write (i02,80003) ivtnum 398 if (iczero) 40450, 461, 40450 39940450 if (rvcomp - 356.95) 20450,10450,40451 40040451 if (rvcomp - 357.05) 10450,10450,20450 40110450 ivpass = ivpass + 1 402 write (i02,80001) ivtnum 403 go to 461 40420450 ivfail = ivfail + 1 405 rvcorr = 357.00 406 write (i02,80005) ivtnum, rvcomp, rvcorr 407 461 continue 408 ivtnum = 46 409c 410c **** test 46 **** 411c 412 if (iczero) 30460, 460, 30460 413 460 continue 414 ivon01 = 4968 415 rvcomp = ivon01 416 go to 40460 41730460 ivdele = ivdele + 1 418 write (i02,80003) ivtnum 419 if (iczero) 40460, 471, 40460 42040460 if (rvcomp - 4967.5) 20460,10460,40461 42140461 if (rvcomp - 4968.5) 10460,10460,20460 42210460 ivpass = ivpass + 1 423 write (i02,80001) ivtnum 424 go to 471 42520460 ivfail = ivfail + 1 426 rvcorr = 4968.0 427 write (i02,80005) ivtnum, rvcomp, rvcorr 428 471 continue 429 ivtnum = 47 430c 431c **** test 47 **** 432c 433 if (iczero) 30470, 470, 30470 434 470 continue 435 ivon01 = 32767 436 rvcomp = ivon01 437 go to 40470 43830470 ivdele = ivdele + 1 439 write (i02,80003) ivtnum 440 if (iczero) 40470, 481, 40470 44140470 if (rvcomp - 32762.) 20470,10470,40471 44240471 if (rvcomp - 32772.) 10470,10470,20470 44310470 ivpass = ivpass + 1 444 write (i02,80001) ivtnum 445 go to 481 44620470 ivfail = ivfail + 1 447 rvcorr = 32767. 448 write (i02,80005) ivtnum, rvcomp, rvcorr 449 481 continue 450 ivtnum = 48 451c 452c **** test 48 **** 453c 454 if (iczero) 30480, 480, 30480 455 480 continue 456 ivon01 = -2 457 rvcomp = ivon01 458 go to 40480 45930480 ivdele = ivdele + 1 460 write (i02,80003) ivtnum 461 if (iczero) 40480, 491, 40480 46240480 if (rvcomp + 2.0005) 20480,10480,40481 46340481 if (rvcomp + 1.9995) 10480,10480,20450 46410480 ivpass = ivpass + 1 465 write (i02,80001) ivtnum 466 go to 491 46720480 ivfail = ivfail + 1 468 rvcorr = -2.0000 469 write (i02,80005) ivtnum, rvcomp, rvcorr 470c 471c test 49 through test 51 contain arithmetic assignment statements 472c of the form 473c integer variable = real constant 474c where constant is basic real constant 475c 476 491 continue 477 ivtnum = 49 478c 479c **** test 49 **** 480c 481 if (iczero) 30490, 490, 30490 482 490 continue 483 ivcomp = 44.5 484 go to 40490 48530490 ivdele = ivdele + 1 486 write (i02,80003) ivtnum 487 if (iczero) 40490, 501, 40490 48840490 if (ivcomp - 44) 20490,10490,20490 48910490 ivpass = ivpass + 1 490 write (i02,80001) ivtnum 491 go to 501 49220490 ivfail = ivfail + 1 493 ivcorr = 44 494 write (i02,80004) ivtnum, ivcomp, ivcorr 495 501 continue 496 ivtnum = 50 497c 498c **** test 50 **** 499c 500 if (iczero) 30500, 500, 30500 501 500 continue 502 ivcomp = 6500.1 503 go to 40500 50430500 ivdele = ivdele + 1 505 write (i02,80003) ivtnum 506 if (iczero) 40500, 511, 40500 50740500 if (ivcomp - 6500) 20500,10500,20500 50810500 ivpass = ivpass + 1 509 write (i02,80001) ivtnum 510 go to 511 51120500 ivfail = ivfail + 1 512 ivcorr = 6500 513 write (i02,80004) ivtnum, ivcomp, ivcorr 514 511 continue 515 ivtnum = 51 516c 517c **** test 51 **** 518c 519 if (iczero) 30510, 510, 30510 520 510 continue 521 ivcomp = -.33333 522 go to 40510 52330510 ivdele = ivdele + 1 524 write (i02,80003) ivtnum 525 if (iczero) 40510, 521, 40510 52640510 if (ivcomp) 20510,10510,20510 52710510 ivpass = ivpass + 1 528 write (i02,80001) ivtnum 529 go to 521 53020510 ivfail = ivfail + 1 531 ivcorr = 0 532 write (i02,80004) ivtnum, ivcomp, ivcorr 533c 534c test 52 through test 55 contain arithmetic assignment statements 535c of the form 536c integer variable = real constant 537c 538c where constant is basic real constant followed by decimal exponent 539c 540 521 continue 541 ivtnum = 52 542c 543c **** test 52 **** 544c 545 if (iczero) 30520, 520, 30520 546 520 continue 547 ivcomp = .21e+1 548 go to 40520 54930520 ivdele = ivdele + 1 550 write (i02,80003) ivtnum 551 if (iczero) 40520, 531, 40520 55240520 if (ivcomp - 2) 20520,10520,20520 55310520 ivpass = ivpass + 1 554 write (i02,80001) ivtnum 555 go to 531 55620520 ivfail = ivfail + 1 557 ivcorr = 2 558 write (i02,80004) ivtnum, ivcomp, ivcorr 559 531 continue 560 ivtnum = 53 561c 562c **** test 53 **** 563c 564 if (iczero) 30530, 530, 30530 565 530 continue 566 ivcomp = 445.0e-01 567 go to 40530 56830530 ivdele = ivdele + 1 569 write (i02,80003) ivtnum 570 if (iczero) 40530, 541, 40530 57140530 if (ivcomp - 44) 20530,10530,20530 57210530 ivpass = ivpass + 1 573 write (i02,80001) ivtnum 574 go to 541 57520530 ivfail = ivfail + 1 576 ivcorr = 44 577 write (i02,80004) ivtnum, ivcomp, ivcorr 578 541 continue 579 ivtnum = 54 580c 581c **** test 54 **** 582c 583 if (iczero) 30540, 540, 30540 584 540 continue 585 ivcomp = 4.450e1 586 go to 40540 58730540 ivdele = ivdele + 1 588 write (i02,80003) ivtnum 589 if (iczero) 40540, 551, 40540 59040540 if (ivcomp - 44) 20540,10540,20540 59110540 ivpass = ivpass + 1 592 write (i02,80001) ivtnum 593 go to 551 59420540 ivfail = ivfail + 1 595 ivcorr = 44 596 write (i02,80004) ivtnum, ivcomp, ivcorr 597 551 continue 598 ivtnum = 55 599c 600c **** test 55 **** 601c 602 if (iczero) 30550, 550, 30550 603 550 continue 604 ivcomp = -4.45e0 605 go to 40550 60630550 ivdele = ivdele + 1 607 write (i02,80003) ivtnum 608 if (iczero) 40550, 561, 40550 60940550 if (ivcomp + 4) 20550,10550,20550 61010550 ivpass = ivpass + 1 611 write (i02,80001) ivtnum 612 go to 561 61320550 ivfail = ivfail + 1 614 ivcorr = -4 615 write (i02,80004) ivtnum, ivcomp, ivcorr 616c 617c test 56 and 57 contain arithmetic assignment statements of the 618c form integer variable = real constant 619c where constant is integer constant followed by decimal exponent 620c 621 561 continue 622 ivtnum = 56 623c 624c **** test 56 **** 625c 626 if (iczero) 30560, 560, 30560 627 560 continue 628 ivcomp = 445e-02 629 go to 40560 63030560 ivdele = ivdele + 1 631 write (i02,80003) ivtnum 632 if (iczero) 40560, 571, 40560 63340560 if (ivcomp - 4) 20560,10560,20560 63410560 ivpass = ivpass + 1 635 write (i02,80001) ivtnum 636 go to 571 63720560 ivfail = ivfail + 1 638 ivcorr = 4 639 write (i02,80004) ivtnum, ivcomp, ivcorr 640 571 continue 641 ivtnum = 57 642c 643c **** test 57 **** 644c 645 if (iczero) 30570, 570, 30570 646 570 continue 647 ivcomp = -701e-1 648 go to 40570 64930570 ivdele = ivdele + 1 650 write (i02,80003) ivtnum 651 if (iczero) 40570, 581, 40570 65240570 if (ivcomp + 70) 20570,10570,20570 65310570 ivpass = ivpass + 1 654 write (i02,80001) ivtnum 655 go to 581 65620570 ivfail = ivfail + 1 657 ivcorr = -70 658 write (i02,80004) ivtnum, ivcomp, ivcorr 659c 660c test 58 through test 62 contain arithmetic assignment statements 661c of the form real variable = integer constant 662c 663 581 continue 664 ivtnum = 58 665c 666c **** test 58 **** 667c 668 if (iczero) 30580, 580, 30580 669 580 continue 670 rvcomp = 23 671 go to 40580 67230580 ivdele = ivdele + 1 673 write (i02,80003) ivtnum 674 if (iczero) 40580, 591, 40580 67540580 if (rvcomp - 22.995) 20580,10580,40581 67640581 if (rvcomp - 23.005) 10580,10580,20580 67710580 ivpass = ivpass + 1 678 write (i02,80001) ivtnum 679 go to 591 68020580 ivfail = ivfail + 1 681 rvcorr = 23.000 682 write (i02,80005) ivtnum, rvcomp, rvcorr 683 591 continue 684 ivtnum = 59 685c 686c **** test 59 **** 687c 688 if (iczero) 30590, 590, 30590 689 590 continue 690 rvcomp = 32645 691 go to 40590 69230590 ivdele = ivdele + 1 693 write (i02,80003) ivtnum 694 if (iczero) 40590, 601, 40590 69540590 if (rvcomp - 32640.) 20590,10590,40591 69640591 if (rvcomp - 32650.) 10590,10590,20590 69710590 ivpass = ivpass + 1 698 write (i02,80001) ivtnum 699 go to 601 70020590 ivfail = ivfail + 1 701 rvcorr = 32645. 702 write (i02,80005) ivtnum, rvcomp, rvcorr 703 601 continue 704 ivtnum = 60 705c 706c **** test 60 **** 707c 708 if (iczero) 30600, 600, 30600 709 600 continue 710 rvcomp = 0 711 go to 40600 71230600 ivdele = ivdele + 1 713 write (i02,80003) ivtnum 714 if (iczero) 40600, 611, 40600 71540600 if (rvcomp) 20600,10600,20600 71610600 ivpass = ivpass + 1 717 write (i02,80001) ivtnum 718 go to 611 71920600 ivfail = ivfail + 1 720 rvcorr = 00000. 721 write (i02,80005) ivtnum, rvcomp, rvcorr 722 611 continue 723 ivtnum = 61 724c 725c **** test 61 **** 726c 727 if (iczero) 30610, 610, 30610 728 610 continue 729 rvcomp = -15 730 go to 40610 73130610 ivdele = ivdele + 1 732 write (i02,80003) ivtnum 733 if (iczero) 40610, 621, 40610 73440610 if (rvcomp -14.995) 40611,10610,20610 73540611 if (rvcomp + 15.005) 20610,10610,10610 73610610 ivpass = ivpass + 1 737 write (i02,80001) ivtnum 738 go to 621 73920610 ivfail = ivfail + 1 740 rvcorr = -15.000 741 write (i02,80005) ivtnum, rvcomp, rvcorr 742 621 continue 743c 744c **** end of tests **** 745c 746c 747c write page footings and run summaries 74899999 continue 749 write (i02,90002) 750 write (i02,90006) 751 write (i02,90002) 752 write (i02,90002) 753 write (i02,90007) 754 write (i02,90002) 755 write (i02,90008) ivfail 756 write (i02,90009) ivpass 757 write (i02,90010) ivdele 758c 759c 760c terminate routine execution 761 stop 762c 763c format statements for page headers 76490000 format (1h1) 76590002 format (1h ) 76690001 format (1h ,10x,34hfortran compiler validation system) 76790003 format (1h ,21x,11hversion 1.0) 76890004 format (1h ,10x,38hfor official use only - copyright 1978) 76990005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) 77090006 format (1h ,5x,46h----------------------------------------------) 77190011 format (1h ,18x,17hsubset level test) 772c 773c format statements for run summaries 77490008 format (1h ,15x,i5,19h errors encountered) 77590009 format (1h ,15x,i5,13h tests passed) 77690010 format (1h ,15x,i5,14h tests deleted) 777c 778c format statements for test results 77980001 format (1h ,4x,i5,7x,4hpass) 78080002 format (1h ,4x,i5,7x,4hfail) 78180003 format (1h ,4x,i5,7x,7hdeleted) 78280004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) 78380005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) 784c 78590007 format (1h ,20x,20hend of program fm061) 786 end 787