| PROGRAM FM097 |
| |
| C COMMENT SECTION 00010097 |
| C 00020097 |
| C FM097 00030097 |
| C 00040097 |
| C THIS ROUTINE TESTS INTRINSIC FUNCTIONS WHERE THE FUNCTION TYPE IS 00050097 |
| C REAL AND THE ARGUMENTS ARE EITHER INTEGER OR REAL. THE REAL AND 00060097 |
| C INTEGER VARIABLES AND THE REAL AND INTEGER CONSTANTS CONTAIN BOTH 00070097 |
| C POSITIVE AND NEGATIVE VALUES. THE INTRINSIC FUNCTIONS TESTED BY 00080097 |
| C FM097 INCLUDE 00090097 |
| C TYPE OF 00100097 |
| C INTRINSIC FUNCTION NAME ARGUMENT FUNCTION 00110097 |
| C ------------------ ---- -------- -------- 00120097 |
| C ABSOLUTE VALUE ABS REAL REAL 00130097 |
| C TRUNCATION AINT REAL REAL 00140097 |
| C REMAINDERING AMOD REAL REAL 00150097 |
| C CHOOSING LARGEST VALUE AMAX0 INTEGER REAL 00160097 |
| C AMAX1 REAL REAL 00170097 |
| C CHOOSING SMALLEST VALUE AMIN0 INTEGER REAL 00180097 |
| C AMIN1 REAL REAL 00190097 |
| C FLOAT FLOAT INTEGER REAL 00200097 |
| C TRANSFER OF SIGN SIGN REAL REAL 00210097 |
| C POSITIVE DIFFERENCE DIM REAL REAL 00220097 |
| C 00230097 |
| C REFERENCES 00240097 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00250097 |
| C X3.9-1978 00260097 |
| C 00270097 |
| C SECTION 4.1.2, TYPE RULES FOR DATA AND PROCEDURE IDENTIFIERS 00280097 |
| C SECTION 15.3, INTRINSIC FUNCTION 00290097 |
| C SECTION 15.3.2, INTRINSIC FUNCTIONS AND THEIR REFERENCE 00300097 |
| C 00310097 |
| C 00320097 |
| C ********************************************************** 00330097 |
| C 00340097 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350097 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360097 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370097 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380097 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390097 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400097 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410097 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420097 |
| C OF EXECUTING THESE TESTS. 00430097 |
| C 00440097 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450097 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460097 |
| C 00470097 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480097 |
| C 00490097 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00500097 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00510097 |
| C BUILDING 225 RM A266 00520097 |
| C GAITHERSBURG, MD 20899 00530097 |
| C ********************************************************** 00540097 |
| C 00550097 |
| C 00560097 |
| C 00570097 |
| C INITIALIZATION SECTION 00580097 |
| C 00590097 |
| C INITIALIZE CONSTANTS 00600097 |
| C ************** 00610097 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620097 |
| I01 = 5 00630097 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640097 |
| I02 = 6 00650097 |
| C SYSTEM ENVIRONMENT SECTION 00660097 |
| C 00670097 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00680097 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690097 |
| C (UNIT NUMBER FOR CARD READER). 00700097 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710097 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720097 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730097 |
| C 00740097 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00750097 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760097 |
| C (UNIT NUMBER FOR PRINTER). 00770097 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780097 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790097 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800097 |
| C 00810097 |
| IVPASS=0 00820097 |
| IVFAIL=0 00830097 |
| IVDELE=0 00840097 |
| ICZERO=0 00850097 |
| C 00860097 |
| C WRITE PAGE HEADERS 00870097 |
| WRITE (I02,90000) 00880097 |
| WRITE (I02,90001) 00890097 |
| WRITE (I02,90002) 00900097 |
| WRITE (I02, 90002) 00910097 |
| WRITE (I02,90003) 00920097 |
| WRITE (I02,90002) 00930097 |
| WRITE (I02,90004) 00940097 |
| WRITE (I02,90002) 00950097 |
| WRITE (I02,90011) 00960097 |
| WRITE (I02,90002) 00970097 |
| WRITE (I02,90002) 00980097 |
| WRITE (I02,90005) 00990097 |
| WRITE (I02,90006) 01000097 |
| WRITE (I02,90002) 01010097 |
| C 01020097 |
| C TEST SECTION 01030097 |
| C 01040097 |
| C TEST 875 THROUGH TEST 878 CONTAIN INTRINSIC FUNCTION TESTS FOR 01050097 |
| C ABSOLUTE VALUE WHERE ARGUMENT AND FUNCTION ARE REAL 01060097 |
| C 01070097 |
| IVTNUM = 875 01080097 |
| C 01090097 |
| C **** TEST 875 **** 01100097 |
| C 01110097 |
| IF (ICZERO) 38750, 8750, 38750 01120097 |
| 8750 CONTINUE 01130097 |
| RVCOMP = ABS (-38.2) 01140097 |
| GO TO 48750 01150097 |
| 38750 IVDELE = IVDELE + 1 01160097 |
| WRITE (I02,80003) IVTNUM 01170097 |
| IF (ICZERO) 48750, 8761, 48750 01180097 |
| 48750 IF (RVCOMP - 38.195) 28750,18750,48751 01190097 |
| 48751 IF (RVCOMP - 38.205) 18750,18750,28750 01200097 |
| 18750 IVPASS = IVPASS + 1 01210097 |
| WRITE (I02,80001) IVTNUM 01220097 |
| GO TO 8761 01230097 |
| 28750 IVFAIL = IVFAIL + 1 01240097 |
| RVCORR = 38.200 01250097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01260097 |
| 8761 CONTINUE 01270097 |
| IVTNUM = 876 01280097 |
| C 01290097 |
| C **** TEST 876 **** 01300097 |
| C 01310097 |
| IF (ICZERO) 38760, 8760, 38760 01320097 |
| 8760 CONTINUE 01330097 |
| RVON01 = 445.06 01340097 |
| RVCOMP = ABS (RVON01) 01350097 |
| GO TO 48760 01360097 |
| 38760 IVDELE = IVDELE + 1 01370097 |
| WRITE (I02,80003) IVTNUM 01380097 |
| IF (ICZERO) 48760, 8771, 48760 01390097 |
| 48760 IF (RVCOMP - 445.01) 28760,18760,48761 01400097 |
| 48761 IF (RVCOMP - 445.11) 18760,18760,28760 01410097 |
| 18760 IVPASS = IVPASS + 1 01420097 |
| WRITE (I02,80001) IVTNUM 01430097 |
| GO TO 8771 01440097 |
| 28760 IVFAIL = IVFAIL + 1 01450097 |
| RVCORR = 445.06 01460097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01470097 |
| 8771 CONTINUE 01480097 |
| IVTNUM = 877 01490097 |
| C 01500097 |
| C **** TEST 877 **** 01510097 |
| C 01520097 |
| IF (ICZERO) 38770, 8770, 38770 01530097 |
| 8770 CONTINUE 01540097 |
| RVON01 = -32.176 01550097 |
| RVCOMP = ABS (RVON01) 01560097 |
| GO TO 48770 01570097 |
| 38770 IVDELE = IVDELE + 1 01580097 |
| WRITE (I02,80003) IVTNUM 01590097 |
| IF (ICZERO) 48770, 8781, 48770 01600097 |
| 48770 IF (RVCOMP - 32.171) 28770,18770,48771 01610097 |
| 48771 IF (RVCOMP - 32.181) 18770,18770,28770 01620097 |
| 18770 IVPASS = IVPASS + 1 01630097 |
| WRITE (I02,80001) IVTNUM 01640097 |
| GO TO 8781 01650097 |
| 28770 IVFAIL = IVFAIL + 1 01660097 |
| RVCORR = 32.176 01670097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01680097 |
| 8781 CONTINUE 01690097 |
| IVTNUM = 878 01700097 |
| C 01710097 |
| C **** TEST 878 **** 01720097 |
| C 01730097 |
| IF (ICZERO) 38780, 8780, 38780 01740097 |
| 8780 CONTINUE 01750097 |
| RVON01 = -2.2E+2 01760097 |
| RVCOMP = ABS (RVON01) 01770097 |
| GO TO 48780 01780097 |
| 38780 IVDELE = IVDELE + 1 01790097 |
| WRITE (I02,80003) IVTNUM 01800097 |
| IF (ICZERO) 48780, 8791, 48780 01810097 |
| 48780 IF (RVCOMP - 219.95) 28780,18780,48781 01820097 |
| 48781 IF (RVCOMP - 220.05) 18780,18780,28780 01830097 |
| 18780 IVPASS = IVPASS + 1 01840097 |
| WRITE (I02,80001) IVTNUM 01850097 |
| GO TO 8791 01860097 |
| 28780 IVFAIL = IVFAIL + 1 01870097 |
| RVCORR = 220.00 01880097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01890097 |
| 8791 CONTINUE 01900097 |
| IVTNUM = 879 01910097 |
| C 01920097 |
| C **** TEST 879 **** 01930097 |
| C 01940097 |
| C TEST 879 THROUGH TEST 882 CONTAIN INTRINSIC FUNCTION TESTS FOR 01950097 |
| C TRUNCATION WHERE ARGUMENT AND FUNCTION ARE REAL 01960097 |
| C 01970097 |
| C 01980097 |
| IF (ICZERO) 38790, 8790, 38790 01990097 |
| 8790 CONTINUE 02000097 |
| RVCOMP = AINT (38.2) 02010097 |
| GO TO 48790 02020097 |
| 38790 IVDELE = IVDELE + 1 02030097 |
| WRITE (I02,80003) IVTNUM 02040097 |
| IF (ICZERO) 48790, 8801, 48790 02050097 |
| 48790 IF (RVCOMP - 37.995) 28790,18790,48791 02060097 |
| 48791 IF (RVCOMP - 38.005) 18790,18790,28790 02070097 |
| 18790 IVPASS = IVPASS + 1 02080097 |
| WRITE (I02,80001) IVTNUM 02090097 |
| GO TO 8801 02100097 |
| 28790 IVFAIL = IVFAIL + 1 02110097 |
| RVCORR = 38.000 02120097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02130097 |
| 8801 CONTINUE 02140097 |
| IVTNUM = 880 02150097 |
| C 02160097 |
| C **** TEST 880 **** 02170097 |
| C 02180097 |
| IF (ICZERO) 38800, 8800, 38800 02190097 |
| 8800 CONTINUE 02200097 |
| RVON01 = -445.95 02210097 |
| RVCOMP = AINT (RVON01) 02220097 |
| GO TO 48800 02230097 |
| 38800 IVDELE = IVDELE + 1 02240097 |
| WRITE (I02,80003) IVTNUM 02250097 |
| IF (ICZERO) 48800, 8811, 48800 02260097 |
| 48800 IF (RVCOMP + 445.05) 28800,18800,48801 02270097 |
| 48801 IF (RVCOMP + 444.95) 18800,18800,28800 02280097 |
| 18800 IVPASS = IVPASS + 1 02290097 |
| WRITE (I02,80001) IVTNUM 02300097 |
| GO TO 8811 02310097 |
| 28800 IVFAIL = IVFAIL + 1 02320097 |
| RVCORR = -445.00 02330097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02340097 |
| 8811 CONTINUE 02350097 |
| IVTNUM = 881 02360097 |
| C 02370097 |
| C **** TEST 881 **** 02380097 |
| C 02390097 |
| IF (ICZERO) 38810, 8810, 38810 02400097 |
| 8810 CONTINUE 02410097 |
| RVON01 = 466.01 02420097 |
| RVCOMP = AINT (RVON01) 02430097 |
| GO TO 48810 02440097 |
| 38810 IVDELE = IVDELE + 1 02450097 |
| WRITE (I02,80003) IVTNUM 02460097 |
| IF (ICZERO) 48810, 8821, 48810 02470097 |
| 48810 IF (RVCOMP - 465.95) 28810,18810,48811 02480097 |
| 48811 IF (RVCOMP - 466.05) 18810,18810,28810 02490097 |
| 18810 IVPASS = IVPASS + 1 02500097 |
| WRITE (I02,80001) IVTNUM 02510097 |
| GO TO 8821 02520097 |
| 28810 IVFAIL = IVFAIL + 1 02530097 |
| RVCOMP = 466.00 02540097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02550097 |
| 8821 CONTINUE 02560097 |
| IVTNUM = 882 02570097 |
| C 02580097 |
| C **** TEST 882 **** 02590097 |
| C 02600097 |
| IF (ICZERO) 38820, 8820, 38820 02610097 |
| 8820 CONTINUE 02620097 |
| RVON01 = 382E-1 02630097 |
| RVCOMP = AINT (RVON01) 02640097 |
| GO TO 48820 02650097 |
| 38820 IVDELE = IVDELE + 1 02660097 |
| WRITE (I02,80003) IVTNUM 02670097 |
| IF (ICZERO) 48820, 8831, 48820 02680097 |
| 48820 IF (RVCOMP - 37.995) 28820,18820,48821 02690097 |
| 48821 IF (RVCOMP - 38.005) 18820,18820,28820 02700097 |
| 18820 IVPASS = IVPASS + 1 02710097 |
| WRITE (I02,80001) IVTNUM 02720097 |
| GO TO 8831 02730097 |
| 28820 IVFAIL = IVFAIL + 1 02740097 |
| RVCORR = 38.000 02750097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02760097 |
| 8831 CONTINUE 02770097 |
| C 02780097 |
| C TEST 883 THROUGH 886 CONTAIN INTRINSIC FUNCTION TESTS FOR 02790097 |
| C REMAINDERING WHERE ARGUMENT AND FUNCTION ARE REAL 02800097 |
| C 02810097 |
| IVTNUM = 883 02820097 |
| C 02830097 |
| C **** TEST 883 **** 02840097 |
| C 02850097 |
| IF (ICZERO) 38830, 8830, 38830 02860097 |
| 8830 CONTINUE 02870097 |
| RVCOMP = AMOD (42.0,19.0) 02880097 |
| GO TO 48830 02890097 |
| 38830 IVDELE = IVDELE + 1 02900097 |
| WRITE (I02,80003) IVTNUM 02910097 |
| IF (ICZERO) 48830, 8841, 48830 02920097 |
| 48830 IF (RVCOMP - 3.9995) 28830,18830,48831 02930097 |
| 48831 IF (RVCOMP - 4.0005) 18830,18830,28830 02940097 |
| 18830 IVPASS = IVPASS + 1 02950097 |
| WRITE (I02,80001) IVTNUM 02960097 |
| GO TO 8841 02970097 |
| 28830 IVFAIL = IVFAIL + 1 02980097 |
| RVCORR = 4.0000 02990097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03000097 |
| 8841 CONTINUE 03010097 |
| IVTNUM = 884 03020097 |
| C 03030097 |
| C **** TEST 884 **** 03040097 |
| C 03050097 |
| IF (ICZERO) 38840, 8840, 38840 03060097 |
| 8840 CONTINUE 03070097 |
| RVON01 = 16.27 03080097 |
| RVON02 = 2.0 03090097 |
| RVCOMP = AMOD (RVON01,RVON02) 03100097 |
| GO TO 48840 03110097 |
| 38840 IVDELE = IVDELE + 1 03120097 |
| WRITE (I02,80003) IVTNUM 03130097 |
| IF (ICZERO) 48840, 8851, 48840 03140097 |
| 48840 IF (RVCOMP - .26995) 28840,18840,48841 03150097 |
| 48841 IF (RVCOMP - .27005) 18840,18840,28840 03160097 |
| 18840 IVPASS = IVPASS + 1 03170097 |
| WRITE (I02,80001) IVTNUM 03180097 |
| GO TO 8851 03190097 |
| 28840 IVFAIL = IVFAIL + 1 03200097 |
| RVCORR = .27000 03210097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03220097 |
| 8851 CONTINUE 03230097 |
| IVTNUM = 885 03240097 |
| C 03250097 |
| C **** TEST 885 **** 03260097 |
| C 03270097 |
| IF (ICZERO) 38850, 8850, 38850 03280097 |
| 8850 CONTINUE 03290097 |
| RVON01 = 225.0 03300097 |
| RVON02 = 5.0E1 03310097 |
| RVCOMP = AMOD (RVON01,RVON02) 03320097 |
| GO TO 48850 03330097 |
| 38850 IVDELE = IVDELE + 1 03340097 |
| WRITE (I02,80003) IVTNUM 03350097 |
| IF (ICZERO) 48850, 8861, 48850 03360097 |
| 48850 IF (RVCOMP - 24.995) 28850,18850,48851 03370097 |
| 48851 IF (RVCOMP - 25.005) 18850,18850,28850 03380097 |
| 18850 IVPASS = IVPASS + 1 03390097 |
| WRITE (I02,80001) IVTNUM 03400097 |
| GO TO 8861 03410097 |
| 28850 IVFAIL = IVFAIL + 1 03420097 |
| RVCORR = 25.000 03430097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03440097 |
| 8861 CONTINUE 03450097 |
| IVTNUM = 886 03460097 |
| C 03470097 |
| C **** TEST 886 **** 03480097 |
| C 03490097 |
| IF (ICZERO) 38860, 8860, 38860 03500097 |
| 8860 CONTINUE 03510097 |
| RVON01 = -0.390E+2 03520097 |
| RVON02 = 5E2 03530097 |
| RVCOMP = AMOD (RVON01,RVON02) 03540097 |
| GO TO 48860 03550097 |
| 38860 IVDELE = IVDELE + 1 03560097 |
| WRITE (I02,80003) IVTNUM 03570097 |
| IF (ICZERO) 48860, 8871, 48860 03580097 |
| 48860 IF (RVCOMP + 39.005) 28860,18860,48861 03590097 |
| 48861 IF (RVCOMP + 38.995) 18860,18860,28860 03600097 |
| 18860 IVPASS = IVPASS + 1 03610097 |
| WRITE (I02,80001) IVTNUM 03620097 |
| GO TO 8871 03630097 |
| 28860 IVFAIL = IVFAIL + 1 03640097 |
| RVCORR = -39.000 03650097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03660097 |
| 8871 CONTINUE 03670097 |
| C 03680097 |
| C TEST 887 AND 888 CONTAIN INTRINSIC FUNCTION TESTS FOR CHOOSING 03690097 |
| C LARGEST VALUE WHERE ARGUMENTS ARE INTEGER AND FUNCTION IS REAL 03700097 |
| C 03710097 |
| IVTNUM = 887 03720097 |
| C 03730097 |
| C **** TEST 887 **** 03740097 |
| C 03750097 |
| IF (ICZERO) 38870, 8870, 38870 03760097 |
| 8870 CONTINUE 03770097 |
| IVON01 = 317 03780097 |
| IVON02 = -99 03790097 |
| IVON03 = 1 03800097 |
| RVCOMP = AMAX0 (263,IVON01,IVON02,IVON03) 03810097 |
| GO TO 48870 03820097 |
| 38870 IVDELE = IVDELE + 1 03830097 |
| WRITE (I02,80003) IVTNUM 03840097 |
| IF (ICZERO) 48870, 8881, 48870 03850097 |
| 48870 IF (RVCOMP - 316.95) 28870,18870,48871 03860097 |
| 48871 IF (RVCOMP - 317.05) 18870,18870,28870 03870097 |
| 18870 IVPASS = IVPASS + 1 03880097 |
| WRITE (I02,80001) IVTNUM 03890097 |
| GO TO 8881 03900097 |
| 28870 IVFAIL = IVFAIL + 1 03910097 |
| RVCORR = 317.00 03920097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03930097 |
| 8881 CONTINUE 03940097 |
| IVTNUM = 888 03950097 |
| C 03960097 |
| C **** TEST 888 **** 03970097 |
| C 03980097 |
| IF (ICZERO) 38880, 8880, 38880 03990097 |
| 8880 CONTINUE 04000097 |
| IVON01 = 2572 04010097 |
| IVON02 = 2570 04020097 |
| RVCOMP = AMAX0 (IVON01,IVON02) 04030097 |
| GO TO 48880 04040097 |
| 38880 IVDELE = IVDELE + 1 04050097 |
| WRITE (I02,80003) IVTNUM 04060097 |
| IF (ICZERO) 48880, 8891, 48880 04070097 |
| 48880 IF (RVCOMP - 2571.5) 28880,18880,48881 04080097 |
| 48881 IF (RVCOMP - 2572.5) 18880,18880,28880 04090097 |
| 18880 IVPASS = IVPASS + 1 04100097 |
| WRITE (I02,80001) IVTNUM 04110097 |
| GO TO 8891 04120097 |
| 28880 IVFAIL = IVFAIL + 1 04130097 |
| RVCORR = 2572.0 04140097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04150097 |
| 8891 CONTINUE 04160097 |
| C 04170097 |
| C TEST 889 AND 890 CONTAIN INTRINSIC FUNCTION TESTS FOR CHOOSING 04180097 |
| C LARGEST VALUE WHERE THE ARGUMENTS AND FUNCTION ARE REAL 04190097 |
| C 04200097 |
| IVTNUM = 889 04210097 |
| C 04220097 |
| C **** TEST 889 **** 04230097 |
| C 04240097 |
| IF (ICZERO) 38890, 8890, 38890 04250097 |
| 8890 CONTINUE 04260097 |
| RVON01 = .326E+2 04270097 |
| RVON02 = 22.075 04280097 |
| RVON03 = 76E-1 04290097 |
| RVCOMP = AMAX1 (RVON01,RVON02,RVON03) 04300097 |
| GO TO 48890 04310097 |
| 38890 IVDELE = IVDELE + 1 04320097 |
| WRITE (I02,80003) IVTNUM 04330097 |
| IF (ICZERO) 48890, 8901, 48890 04340097 |
| 48890 IF (RVCOMP - 32.595) 28890,18890,48891 04350097 |
| 48891 IF (RVCOMP - 32.605) 18890,18890,28890 04360097 |
| 18890 IVPASS = IVPASS + 1 04370097 |
| WRITE (I02,80001) IVTNUM 04380097 |
| GO TO 8901 04390097 |
| 28890 IVFAIL = IVFAIL + 1 04400097 |
| RVCORR = 32.600 04410097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04420097 |
| 8901 CONTINUE 04430097 |
| IVTNUM = 890 04440097 |
| C 04450097 |
| C **** TEST 890 **** 04460097 |
| C 04470097 |
| IF (ICZERO) 38900, 8900, 38900 04480097 |
| 8900 CONTINUE 04490097 |
| RVON01 = -6.3E2 04500097 |
| RVON02 = -21.0 04510097 |
| RVCOMP = AMAX1 (-463.3,RVON01,RVON02) 04520097 |
| GO TO 48900 04530097 |
| 38900 IVDELE = IVDELE + 1 04540097 |
| WRITE (I02,80003) IVTNUM 04550097 |
| IF (ICZERO) 48900, 8911, 48900 04560097 |
| 48900 IF (RVCOMP + 21.005) 28900,18900,48901 04570097 |
| 48901 IF (RVCOMP + 20.995) 18900,18900,28900 04580097 |
| 18900 IVPASS = IVPASS + 1 04590097 |
| WRITE (I02,80001) IVTNUM 04600097 |
| GO TO 8911 04610097 |
| 28900 IVFAIL = IVFAIL + 1 04620097 |
| RVCORR = -21.000 04630097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04640097 |
| 8911 CONTINUE 04650097 |
| C 04660097 |
| C TESTS 891 AND 892 CONTAIN INTRINSIC FUNCTION TESTS FOR CHOOSING 04670097 |
| C SMALLEST VALUE WHERE ARGUMENTS ARE INTEGER AND FUNCTION IS REAL 04680097 |
| C 04690097 |
| IVTNUM = 891 04700097 |
| C 04710097 |
| C **** TEST 891 **** 04720097 |
| C 04730097 |
| IF (ICZERO) 38910, 8910, 38910 04740097 |
| 8910 CONTINUE 04750097 |
| IVON01 = -75 04760097 |
| IVON02 = -243 04770097 |
| RVCOMP = AMIN0 (IVON01,IVON02) 04780097 |
| GO TO 48910 04790097 |
| 38910 IVDELE = IVDELE + 1 04800097 |
| WRITE (I02,80003) IVTNUM 04810097 |
| IF (ICZERO) 48910, 8921, 48910 04820097 |
| 48910 IF (RVCOMP + 243.05) 28910,18910,48911 04830097 |
| 48911 IF (RVCOMP + 242.95) 18910,18910,28910 04840097 |
| 18910 IVPASS = IVPASS + 1 04850097 |
| WRITE (I02,80001) IVTNUM 04860097 |
| GO TO 8921 04870097 |
| 28910 IVFAIL = IVFAIL + 1 04880097 |
| RVCORR = -243.00 04890097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04900097 |
| 8921 CONTINUE 04910097 |
| IVTNUM = 892 04920097 |
| C 04930097 |
| C **** TEST 892 **** 04940097 |
| C 04950097 |
| IF (ICZERO) 38920, 8920, 38920 04960097 |
| 8920 CONTINUE 04970097 |
| IVON01 = -11 04980097 |
| IVON02 = 11 04990097 |
| RVCOMP = AMIN0 (0,IVON01,IVON02) 05000097 |
| GO TO 48920 05010097 |
| 38920 IVDELE = IVDELE + 1 05020097 |
| WRITE (I02,80003) IVTNUM 05030097 |
| IF (ICZERO) 48920, 8931, 48920 05040097 |
| 48920 IF (RVCOMP + 11.005) 28920,18920,48921 05050097 |
| 48921 IF (RVCOMP + 10.995) 18920,18920,28920 05060097 |
| 18920 IVPASS = IVPASS + 1 05070097 |
| WRITE (I02,80001) IVTNUM 05080097 |
| GO TO 8931 05090097 |
| 28920 IVFAIL = IVFAIL + 1 05100097 |
| RVCORR = -11.000 05110097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05120097 |
| 8931 CONTINUE 05130097 |
| C 05140097 |
| C TESTS 893 AND 894 CONTAIN INTRINSIC FUNCTION TESTS FOR CHOOSING 05150097 |
| C SMALLEST VALUE WHERE ARGUMENTS AND FUNCTION ARE REAL 05160097 |
| C 05170097 |
| IVTNUM = 893 05180097 |
| C 05190097 |
| C **** TEST 893 **** 05200097 |
| C 05210097 |
| IF (ICZERO) 38930, 8930, 38930 05220097 |
| 8930 CONTINUE 05230097 |
| RVON01 = 1.1111 05240097 |
| RVON02 = 22.222 05250097 |
| RVON03 = 333.33 05260097 |
| RVCOMP = AMIN1 (RVON01,RVON02,RVON03) 05270097 |
| GO TO 48930 05280097 |
| 38930 IVDELE = IVDELE + 1 05290097 |
| WRITE (I02,80003) IVTNUM 05300097 |
| IF (ICZERO) 48930, 8941, 48930 05310097 |
| 48930 IF (RVCOMP - 1.1106) 28930,18930,48931 05320097 |
| 48931 IF (RVCOMP - 1.1116) 18930,18930,28930 05330097 |
| 18930 IVPASS = IVPASS + 1 05340097 |
| WRITE (I02,80001) IVTNUM 05350097 |
| GO TO 8941 05360097 |
| 28930 IVFAIL = IVFAIL + 1 05370097 |
| RVCORR = 1.1111 05380097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05390097 |
| 8941 CONTINUE 05400097 |
| IVTNUM = 894 05410097 |
| C 05420097 |
| C **** TEST 894 **** 05430097 |
| C 05440097 |
| IF (ICZERO) 38940, 8940, 38940 05450097 |
| 8940 CONTINUE 05460097 |
| RVON01 = 28.8 05470097 |
| RVON02 = 2.88E1 05480097 |
| RVON03 = 288E-1 05490097 |
| RVON04 = 35.0 05500097 |
| RVCOMP = AMIN1 (RVON01,RVON02,RVON03,RVON04) 05510097 |
| GO TO 48940 05520097 |
| 38940 IVDELE = IVDELE + 1 05530097 |
| WRITE (I02,80003) IVTNUM 05540097 |
| IF (ICZERO) 48940, 8951, 48940 05550097 |
| 48940 IF (RVCOMP - 28.795) 28940,18940,48941 05560097 |
| 48941 IF (RVCOMP - 28.805) 18940,18940,28940 05570097 |
| 18940 IVPASS = IVPASS + 1 05580097 |
| WRITE (I02,80001) IVTNUM 05590097 |
| GO TO 8951 05600097 |
| 28940 IVFAIL = IVFAIL + 1 05610097 |
| RVCORR = 28.800 05620097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05630097 |
| 8951 CONTINUE 05640097 |
| C 05650097 |
| C TEST 895 THROUGH TEST 897 CONTAIN INTRINSIC FUNCTION TESTS FOR 05660097 |
| C FLOAT - CONVERSION OF AN INTEGER ARGUMENT TO REAL FUNCTION 05670097 |
| C 05680097 |
| IVTNUM = 895 05690097 |
| C 05700097 |
| C **** TEST 895 **** 05710097 |
| C 05720097 |
| IF (ICZERO) 38950, 8950, 38950 05730097 |
| 8950 CONTINUE 05740097 |
| RVCOMP = FLOAT (-606) 05750097 |
| GO TO 48950 05760097 |
| 38950 IVDELE = IVDELE + 1 05770097 |
| WRITE (I02,80003) IVTNUM 05780097 |
| IF (ICZERO) 48950, 8961, 48950 05790097 |
| 48950 IF (RVCOMP + 606.05) 28950,18950,48951 05800097 |
| 48951 IF (RVCOMP + 605.95) 18950,18950,28950 05810097 |
| 18950 IVPASS = IVPASS + 1 05820097 |
| WRITE (I02,80001) IVTNUM 05830097 |
| GO TO 8961 05840097 |
| 28950 IVFAIL = IVFAIL + 1 05850097 |
| RVCORR = -606.00 05860097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05870097 |
| 8961 CONTINUE 05880097 |
| IVTNUM = 896 05890097 |
| C 05900097 |
| C **** TEST 896 **** 05910097 |
| C 05920097 |
| IF (ICZERO) 38960, 8960, 38960 05930097 |
| 8960 CONTINUE 05940097 |
| IVON01 = 71 05950097 |
| RVCOMP = FLOAT (IVON01) 05960097 |
| GO TO 48960 05970097 |
| 38960 IVDELE = IVDELE + 1 05980097 |
| WRITE (I02,80003) IVTNUM 05990097 |
| IF (ICZERO) 48960, 8971, 48960 06000097 |
| 48960 IF (RVCOMP - 70.995) 28960,18960,48961 06010097 |
| 48961 IF (RVCOMP - 71.005) 18960,18960,28960 06020097 |
| 18960 IVPASS = IVPASS + 1 06030097 |
| WRITE (I02,80001) IVTNUM 06040097 |
| GO TO 8971 06050097 |
| 28960 IVFAIL = IVFAIL + 1 06060097 |
| RVCORR = 71.000 06070097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06080097 |
| 8971 CONTINUE 06090097 |
| IVTNUM = 897 06100097 |
| C 06110097 |
| C **** TEST 897 **** 06120097 |
| C 06130097 |
| IF (ICZERO) 38970, 8970, 38970 06140097 |
| 8970 CONTINUE 06150097 |
| IVON01 = 321 06160097 |
| RVCOMP = FLOAT (-IVON01) 06170097 |
| GO TO 48970 06180097 |
| 38970 IVDELE = IVDELE + 1 06190097 |
| WRITE (I02,80003) IVTNUM 06200097 |
| IF (ICZERO) 48970, 8981, 48970 06210097 |
| 48970 IF (RVCOMP + 321.05) 28970,18970,48971 06220097 |
| 48971 IF (RVCOMP + 320.95) 18970,18970,28970 06230097 |
| 18970 IVPASS = IVPASS + 1 06240097 |
| WRITE (I02,80001) IVTNUM 06250097 |
| GO TO 8981 06260097 |
| 28970 IVFAIL = IVFAIL + 1 06270097 |
| RVCORR = -321.00 06280097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06290097 |
| 8981 CONTINUE 06300097 |
| C 06310097 |
| C TEST 898 THROUGH TEST 900 CONTAIN INTRINSIC FUNCTION TESTS FOR 06320097 |
| C TRANSFER OF SIGN - BOTH ARGUMENTS AND FUNCTION ARE REAL 06330097 |
| C 06340097 |
| IVTNUM = 898 06350097 |
| C 06360097 |
| C **** TEST 898 **** 06370097 |
| C 06380097 |
| IF (ICZERO) 38980, 8980, 38980 06390097 |
| 8980 CONTINUE 06400097 |
| RVON01 = 64.3 06410097 |
| RVCOMP = SIGN (RVON01,-1.0) 06420097 |
| GO TO 48980 06430097 |
| 38980 IVDELE = IVDELE + 1 06440097 |
| WRITE (I02,80003) IVTNUM 06450097 |
| IF (ICZERO) 48980, 8991, 48980 06460097 |
| 48980 IF (RVCOMP + 64.305) 28980,18980,48981 06470097 |
| 48981 IF (RVCOMP + 64.295) 18980,18980,28980 06480097 |
| 18980 IVPASS = IVPASS + 1 06490097 |
| WRITE (I02,80001) IVTNUM 06500097 |
| GO TO 8991 06510097 |
| 28980 IVFAIL = IVFAIL + 1 06520097 |
| RVCORR = -64.300 06530097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06540097 |
| 8991 CONTINUE 06550097 |
| IVTNUM = 899 06560097 |
| C 06570097 |
| C **** TEST 899 **** 06580097 |
| C 06590097 |
| IF (ICZERO) 38990, 8990, 38990 06600097 |
| 8990 CONTINUE 06610097 |
| RVON01 = -2.2 06620097 |
| RVON02 = 7.23E1 06630097 |
| RVCOMP = SIGN (RVON01,RVON02) 06640097 |
| GO TO 48990 06650097 |
| 38990 IVDELE = IVDELE + 1 06660097 |
| WRITE (I02,80003) IVTNUM 06670097 |
| IF (ICZERO) 48990, 9001, 48990 06680097 |
| 48990 IF (RVCOMP - 2.1995) 28990,18990,48991 06690097 |
| 48991 IF (RVCOMP - 2.2005) 18990,18990,28990 06700097 |
| 18990 IVPASS = IVPASS + 1 06710097 |
| WRITE (I02,80001) IVTNUM 06720097 |
| GO TO 9001 06730097 |
| 28990 IVFAIL = IVFAIL + 1 06740097 |
| RVCORR = 2.2000 06750097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06760097 |
| 9001 CONTINUE 06770097 |
| IVTNUM = 900 06780097 |
| C 06790097 |
| C **** TEST 900 **** 06800097 |
| C 06810097 |
| IF (ICZERO) 39000, 9000, 39000 06820097 |
| 9000 CONTINUE 06830097 |
| RVON01 = 35.32E+1 06840097 |
| RVON02 = 1.0 06850097 |
| RVCOMP = SIGN (RVON01,RVON02) 06860097 |
| GO TO 49000 06870097 |
| 39000 IVDELE = IVDELE + 1 06880097 |
| WRITE (I02,80003) IVTNUM 06890097 |
| IF (ICZERO) 49000, 9011, 49000 06900097 |
| 49000 IF (RVCOMP - 353.15) 29000,19000,49001 06910097 |
| 49001 IF (RVCOMP - 353.25) 19000,19000,29000 06920097 |
| 19000 IVPASS = IVPASS + 1 06930097 |
| WRITE (I02,80001) IVTNUM 06940097 |
| GO TO 9011 06950097 |
| 29000 IVFAIL = IVFAIL + 1 06960097 |
| RVCORR = 353.20 06970097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06980097 |
| 9011 CONTINUE 06990097 |
| C 07000097 |
| C TEST 901 THROUGH TEST 904 CONTAIN INTRINSIC FUNCTION TESTS FOR 07010097 |
| C POSITIVE DIFFERENCE WHERE ARGUMENTS AND FUNCTION ARE REAL 07020097 |
| C 07030097 |
| IVTNUM = 901 07040097 |
| C 07050097 |
| C **** TEST 901 **** 07060097 |
| C 07070097 |
| IF (ICZERO) 39010, 9010, 39010 07080097 |
| 9010 CONTINUE 07090097 |
| RVON01 = 22.2 07100097 |
| RVCOMP = DIM (RVON01,1.0) 07110097 |
| GO TO 49010 07120097 |
| 39010 IVDELE = IVDELE + 1 07130097 |
| WRITE (I02,80003) IVTNUM 07140097 |
| IF (ICZERO) 49010, 9021, 49010 07150097 |
| 49010 IF (RVCOMP - 21.195) 29010,19010,49011 07160097 |
| 49011 IF (RVCOMP - 21.205) 19010,19010,29010 07170097 |
| 19010 IVPASS = IVPASS + 1 07180097 |
| WRITE (I02,80001) IVTNUM 07190097 |
| GO TO 9021 07200097 |
| 29010 IVFAIL = IVFAIL + 1 07210097 |
| RVCORR = 21.200 07220097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07230097 |
| 9021 CONTINUE 07240097 |
| IVTNUM = 902 07250097 |
| C 07260097 |
| C **** TEST 902 **** 07270097 |
| C 07280097 |
| IF (ICZERO) 39020, 9020, 39020 07290097 |
| 9020 CONTINUE 07300097 |
| RVON01 = 4.5E1 07310097 |
| RVON02 = 41.0 07320097 |
| RVCOMP = DIM (RVON01,RVON02) 07330097 |
| GO TO 49020 07340097 |
| 39020 IVDELE = IVDELE + 1 07350097 |
| WRITE (I02,80003) IVTNUM 07360097 |
| IF (ICZERO) 49020, 9031, 49020 07370097 |
| 49020 IF (RVCOMP - 3.9995) 29020,19020,49021 07380097 |
| 49021 IF (RVCOMP - 4.0005) 19020,19020,29020 07390097 |
| 19020 IVPASS = IVPASS + 1 07400097 |
| WRITE (I02,80001) IVTNUM 07410097 |
| GO TO 9031 07420097 |
| 29020 IVFAIL = IVFAIL + 1 07430097 |
| RVCORR = 4.0000 07440097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07450097 |
| 9031 CONTINUE 07460097 |
| IVTNUM = 903 07470097 |
| C 07480097 |
| C **** TEST 903 **** 07490097 |
| C 07500097 |
| IF (ICZERO) 39030, 9030, 39030 07510097 |
| 9030 CONTINUE 07520097 |
| RVON01 = 2.0 07530097 |
| RVON02 = 10.0 07540097 |
| RVCOMP = DIM (RVON01,RVON02) 07550097 |
| GO TO 49030 07560097 |
| 39030 IVDELE = IVDELE + 1 07570097 |
| WRITE (I02,80003) IVTNUM 07580097 |
| IF (ICZERO) 49030, 9041, 49030 07590097 |
| 49030 IF (RVCOMP) 29030,19030,29030 07600097 |
| 19030 IVPASS = IVPASS + 1 07610097 |
| WRITE (I02,80001) IVTNUM 07620097 |
| GO TO 9041 07630097 |
| 29030 IVFAIL = IVFAIL + 1 07640097 |
| RVCORR = 0.0000 07650097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07660097 |
| 9041 CONTINUE 07670097 |
| IVTNUM = 904 07680097 |
| C 07690097 |
| C **** TEST 904 **** 07700097 |
| C 07710097 |
| IF (ICZERO) 39040, 9040, 39040 07720097 |
| 9040 CONTINUE 07730097 |
| RVON01 = 1.65E+1 07740097 |
| RVON02 = -2.0 07750097 |
| RVCOMP = DIM (RVON01,RVON02) 07760097 |
| GO TO 49040 07770097 |
| 39040 IVDELE = IVDELE + 1 07780097 |
| WRITE (I02,80003) IVTNUM 07790097 |
| IF (ICZERO) 49040, 9051, 49040 07800097 |
| 49040 IF (RVCOMP - 18.495) 29040,19040,49041 07810097 |
| 49041 IF (RVCOMP - 18.505) 19040,19040,29040 07820097 |
| 19040 IVPASS = IVPASS + 1 07830097 |
| WRITE (I02,80001) IVTNUM 07840097 |
| GO TO 9051 07850097 |
| 29040 IVFAIL = IVFAIL + 1 07860097 |
| RVCORR = 18.500 07870097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07880097 |
| 9051 CONTINUE 07890097 |
| C 07900097 |
| C TESTS 905 AND 906 CONTAIN EXPRESSIONS CONTAINING MORE THAN ONE 07910097 |
| C INTRINSIC FUNCTION - ALL ARGUMENTS AND FUNCTIONS ARE REAL 07920097 |
| C 07930097 |
| IVTNUM = 905 07940097 |
| C 07950097 |
| C **** TEST 905 **** 07960097 |
| C 07970097 |
| IF (ICZERO) 39050, 9050, 39050 07980097 |
| 9050 CONTINUE 07990097 |
| RVON01 = 33.3 08000097 |
| RVON02 = -12.1 08010097 |
| RVCOMP = AINT (RVON01) + ABS (RVON02) 08020097 |
| GO TO 49050 08030097 |
| 39050 IVDELE = IVDELE + 1 08040097 |
| WRITE (I02,80003) IVTNUM 08050097 |
| IF (ICZERO) 49050, 9061, 49050 08060097 |
| 49050 IF (RVCOMP - 45.095) 29050,19050,49051 08070097 |
| 49051 IF (RVCOMP - 45.105) 19050,19050,29050 08080097 |
| 19050 IVPASS = IVPASS + 1 08090097 |
| WRITE (I02,80001) IVTNUM 08100097 |
| GO TO 9061 08110097 |
| 29050 IVFAIL = IVFAIL + 1 08120097 |
| RVCORR = 45.100 08130097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 08140097 |
| 9061 CONTINUE 08150097 |
| IVTNUM = 906 08160097 |
| C 08170097 |
| C **** TEST 906 **** 08180097 |
| C 08190097 |
| IF (ICZERO) 39060, 9060, 39060 08200097 |
| 9060 CONTINUE 08210097 |
| RVON01 = 76.3 08220097 |
| RVON02 = 2.1E1 08230097 |
| RVON03 = 3E1 08240097 |
| RVCOMP = AMAX1(RVON01,RVON02,RVON03)-AMIN1(RVON01,RVON02,RVON03) 08250097 |
| GO TO 49060 08260097 |
| 39060 IVDELE = IVDELE + 1 08270097 |
| WRITE (I02,80003) IVTNUM 08280097 |
| IF (ICZERO) 49060, 9071, 49060 08290097 |
| 49060 IF (RVCOMP - 55.295) 29060,19060,49061 08300097 |
| 49061 IF (RVCOMP - 55.305) 19060,19060,29060 08310097 |
| 19060 IVPASS = IVPASS + 1 08320097 |
| WRITE (I02,80001) IVTNUM 08330097 |
| GO TO 9071 08340097 |
| 29060 IVFAIL = IVFAIL + 1 08350097 |
| RVCORR = 55.300 08360097 |
| WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 08370097 |
| 9071 CONTINUE 08380097 |
| C 08390097 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08400097 |
| 99999 CONTINUE 08410097 |
| WRITE (I02,90002) 08420097 |
| WRITE (I02,90006) 08430097 |
| WRITE (I02,90002) 08440097 |
| WRITE (I02,90002) 08450097 |
| WRITE (I02,90007) 08460097 |
| WRITE (I02,90002) 08470097 |
| WRITE (I02,90008) IVFAIL 08480097 |
| WRITE (I02,90009) IVPASS 08490097 |
| WRITE (I02,90010) IVDELE 08500097 |
| C 08510097 |
| C 08520097 |
| C TERMINATE ROUTINE EXECUTION 08530097 |
| STOP 08540097 |
| C 08550097 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 08560097 |
| 90000 FORMAT ("1") 08570097 |
| 90002 FORMAT (" ") 08580097 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08590097 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08600097 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08610097 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08620097 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 08630097 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 08640097 |
| C 08650097 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 08660097 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 08670097 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 08680097 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 08690097 |
| C 08700097 |
| C FORMAT STATEMENTS FOR TEST RESULTS 08710097 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 08720097 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 08730097 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 08740097 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08750097 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 08760097 |
| C 08770097 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM097" ) 08780097 |
| END 08790097 |