| PROGRAM FM007 |
| |
| C COMMENT SECTION 00010007 |
| C 00020007 |
| C FM007 00030007 |
| C 00040007 |
| C THIS ROUTINE TESTS THE USE OF DATA INITIALIZATION STATEMENTS. 00050007 |
| C DATA INITIALIZATION STATEMENTS ARE USED TO DEFINE INITIAL VALUES 00060007 |
| C OF INTEGER VARIABLES. THE DATA STATEMENTS CONTAIN UNSIGNED, 00070007 |
| C POSITIVE SIGNED AND NEGATIVE SIGNED INTEGER CONSTANTS. THE LAST 00080007 |
| C DATA STATEMENT CONTAINS THE FORM 00090007 |
| C J*INTEGER CONSTANT 00100007 |
| C WHICH INDICATES THE CONSTANT IS TO BE SPECIFIED J TIMES. 00110007 |
| C 00120007 |
| C THE TESTS IN THIS ROUTINE CHECK THE INTEGER VARIABLES IN THE 00130007 |
| C DATA STATEMENT FOR THE ASSIGNED INITIAL VALUES. 00140007 |
| C 00150007 |
| C REFERENCES 00160007 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00170007 |
| C X3.9-1978 00180007 |
| C 00190007 |
| C SECTION 4.3, INTEGER TYPE 00200007 |
| C SECTION 4.3.1, INTEGER CONSTANT 00210007 |
| C SECTION 9, DATA STATEMENT 00220007 |
| C 00230007 |
| C 00240007 |
| C DATA INITIALIZATION STATEMENTS 00250007 |
| C 00260007 |
| DATA IVON01,IVON02,IVON03,IVON04,IVON05/3,76,587,9999,21111/ 00270007 |
| DATA IVON06,IVON07,IVON08,IVON09,IVON10/+3,+76,+587,+9999,+21111/ 00280007 |
| DATA IVON11,IVON12,IVON13,IVON14,IVON15/-3,-76,-587,-9999,-21111/ 00290007 |
| DATA IVON16,IVON17,IVON18,IVON19,IVON20/ 2*119, 2*7, -427/ 00300007 |
| C 00310007 |
| C 00320007 |
| C ********************************************************** 00330007 |
| C 00340007 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350007 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360007 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370007 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380007 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390007 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400007 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410007 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420007 |
| C OF EXECUTING THESE TESTS. 00430007 |
| C 00440007 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450007 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460007 |
| C 00470007 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480007 |
| C 00490007 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00500007 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00510007 |
| C BUILDING 225 RM A266 00520007 |
| C GAITHERSBURG, MD 20899 00530007 |
| C ********************************************************** 00540007 |
| C 00550007 |
| C 00560007 |
| C 00570007 |
| C INITIALIZATION SECTION 00580007 |
| C 00590007 |
| C INITIALIZE CONSTANTS 00600007 |
| C ************** 00610007 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620007 |
| I01 = 5 00630007 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640007 |
| I02 = 6 00650007 |
| C SYSTEM ENVIRONMENT SECTION 00660007 |
| C 00670007 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00680007 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690007 |
| C (UNIT NUMBER FOR CARD READER). 00700007 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710007 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720007 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730007 |
| C 00740007 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00750007 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760007 |
| C (UNIT NUMBER FOR PRINTER). 00770007 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780007 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790007 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800007 |
| C 00810007 |
| IVPASS=0 00820007 |
| IVFAIL=0 00830007 |
| IVDELE=0 00840007 |
| ICZERO=0 00850007 |
| C 00860007 |
| C WRITE PAGE HEADERS 00870007 |
| WRITE (I02,90000) 00880007 |
| WRITE (I02,90001) 00890007 |
| WRITE (I02,90002) 00900007 |
| WRITE (I02, 90002) 00910007 |
| WRITE (I02,90003) 00920007 |
| WRITE (I02,90002) 00930007 |
| WRITE (I02,90004) 00940007 |
| WRITE (I02,90002) 00950007 |
| WRITE (I02,90011) 00960007 |
| WRITE (I02,90002) 00970007 |
| WRITE (I02,90002) 00980007 |
| WRITE (I02,90005) 00990007 |
| WRITE (I02,90006) 01000007 |
| WRITE (I02,90002) 01010007 |
| C TEST SECTION 01020007 |
| C 01030007 |
| C TESTS 80 THROUGH 84 CHECK THE VALUES INITIALIZED BY THE DATA 01040007 |
| C STATEMENT CONTAINING IVON01,..., IVON05. 01050007 |
| C 01060007 |
| 801 CONTINUE 01070007 |
| IVTNUM = 80 01080007 |
| C 01090007 |
| C **** TEST 80 **** 01100007 |
| C 01110007 |
| IF (ICZERO) 30800, 800, 30800 01120007 |
| 800 CONTINUE 01130007 |
| IVCOMP = IVON01 01140007 |
| GO TO 40800 01150007 |
| 30800 IVDELE = IVDELE + 1 01160007 |
| WRITE (I02,80003) IVTNUM 01170007 |
| IF (ICZERO) 40800, 811, 40800 01180007 |
| 40800 IF (IVCOMP - 3) 20800, 10800,20800 01190007 |
| 10800 IVPASS = IVPASS + 1 01200007 |
| WRITE (I02,80001) IVTNUM 01210007 |
| GO TO 811 01220007 |
| 20800 IVFAIL = IVFAIL + 1 01230007 |
| IVCORR = 3 01240007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250007 |
| 811 CONTINUE 01260007 |
| IVTNUM = 81 01270007 |
| C 01280007 |
| C **** TEST 81 **** 01290007 |
| C 01300007 |
| IF (ICZERO) 30810, 810, 30810 01310007 |
| 810 CONTINUE 01320007 |
| IVCOMP = IVON02 01330007 |
| GO TO 40810 01340007 |
| 30810 IVDELE = IVDELE + 1 01350007 |
| WRITE (I02,80003) IVTNUM 01360007 |
| IF (ICZERO) 40810, 821, 40810 01370007 |
| 40810 IF (IVCOMP - 76) 20810, 10810, 20810 01380007 |
| 10810 IVPASS = IVPASS + 1 01390007 |
| WRITE (I02,80001) IVTNUM 01400007 |
| GO TO 821 01410007 |
| 20810 IVFAIL = IVFAIL + 1 01420007 |
| IVCORR = 76 01430007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01440007 |
| 821 CONTINUE 01450007 |
| IVTNUM = 82 01460007 |
| C 01470007 |
| C **** TEST 82 **** 01480007 |
| C 01490007 |
| IF (ICZERO) 30820, 820, 30820 01500007 |
| 820 CONTINUE 01510007 |
| IVCOMP = IVON03 01520007 |
| GO TO 40820 01530007 |
| 30820 IVDELE = IVDELE + 1 01540007 |
| WRITE (I02,80003) IVTNUM 01550007 |
| IF (ICZERO) 40820, 831, 40820 01560007 |
| 40820 IF (IVCOMP - 587) 20820, 10820, 20820 01570007 |
| 10820 IVPASS = IVPASS + 1 01580007 |
| WRITE (I02,80001) IVTNUM 01590007 |
| GO TO 831 01600007 |
| 20820 IVFAIL = IVFAIL + 1 01610007 |
| IVCORR = 587 01620007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01630007 |
| 831 CONTINUE 01640007 |
| IVTNUM = 83 01650007 |
| C 01660007 |
| C **** TEST 83 **** 01670007 |
| C 01680007 |
| IF (ICZERO) 30830, 830, 30830 01690007 |
| 830 CONTINUE 01700007 |
| IVCOMP =IVON04 01710007 |
| GO TO 40830 01720007 |
| 30830 IVDELE = IVDELE + 1 01730007 |
| WRITE (I02,80003) IVTNUM 01740007 |
| IF (ICZERO) 40830, 841, 40830 01750007 |
| 40830 IF (IVCOMP - 9999) 20830, 10830, 20830 01760007 |
| 10830 IVPASS = IVPASS + 1 01770007 |
| WRITE (I02,80001) IVTNUM 01780007 |
| GO TO 841 01790007 |
| 20830 IVFAIL = IVFAIL + 1 01800007 |
| IVCORR = 9999 01810007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01820007 |
| 841 CONTINUE 01830007 |
| IVTNUM = 84 01840007 |
| C 01850007 |
| C **** TEST 84 **** 01860007 |
| C 01870007 |
| IF (ICZERO) 30840, 840, 30840 01880007 |
| 840 CONTINUE 01890007 |
| IVCOMP = IVON05 01900007 |
| GO TO 40840 01910007 |
| 30840 IVDELE = IVDELE + 1 01920007 |
| WRITE (I02,80003) IVTNUM 01930007 |
| IF (ICZERO) 40840, 851, 40840 01940007 |
| 40840 IF (IVCOMP - 21111) 20840, 10840, 20840 01950007 |
| 10840 IVPASS = IVPASS + 1 01960007 |
| WRITE (I02,80001) IVTNUM 01970007 |
| GO TO 851 01980007 |
| 20840 IVFAIL = IVFAIL + 1 01990007 |
| IVCORR = 21111 02000007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02010007 |
| C 02020007 |
| C TESTS 85 THROUGH 89 CHECK THE VALUES INITIALIZED BY THE DATA 02030007 |
| C STATEMENT CONTAINING IVON06,...,IVON10. 02040007 |
| C 02050007 |
| 851 CONTINUE 02060007 |
| IVTNUM = 85 02070007 |
| C 02080007 |
| C **** TEST 85 **** 02090007 |
| C 02100007 |
| IF (ICZERO) 30850, 850, 30850 02110007 |
| 850 CONTINUE 02120007 |
| IVCOMP=IVON06 02130007 |
| GO TO 40850 02140007 |
| 30850 IVDELE = IVDELE + 1 02150007 |
| WRITE (I02,80003) IVTNUM 02160007 |
| IF (ICZERO) 40850, 861, 40850 02170007 |
| 40850 IF (IVCOMP - 3) 20850, 10850, 20850 02180007 |
| 10850 IVPASS = IVPASS + 1 02190007 |
| WRITE (I02,80001) IVTNUM 02200007 |
| GO TO 861 02210007 |
| 20850 IVFAIL = IVFAIL + 1 02220007 |
| IVCORR = 3 02230007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02240007 |
| 861 CONTINUE 02250007 |
| IVTNUM = 86 02260007 |
| C 02270007 |
| C **** TEST 86 **** 02280007 |
| C 02290007 |
| IF (ICZERO) 30860, 860, 30860 02300007 |
| 860 CONTINUE 02310007 |
| IVCOMP = IVON07 02320007 |
| GO TO 40860 02330007 |
| 30860 IVDELE = IVDELE + 1 02340007 |
| WRITE (I02,80003) IVTNUM 02350007 |
| IF (ICZERO) 40860, 871, 40860 02360007 |
| 40860 IF (IVCOMP - 76) 20860, 10860, 20860 02370007 |
| 10860 IVPASS = IVPASS + 1 02380007 |
| WRITE (I02,80001) IVTNUM 02390007 |
| GO TO 871 02400007 |
| 20860 IVFAIL = IVFAIL + 1 02410007 |
| IVCORR = 76 02420007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02430007 |
| 871 CONTINUE 02440007 |
| IVTNUM = 87 02450007 |
| C 02460007 |
| C **** TEST 87 **** 02470007 |
| C 02480007 |
| IF (ICZERO) 30870, 870, 30870 02490007 |
| 870 CONTINUE 02500007 |
| IVCOMP = IVON08 02510007 |
| GO TO 40870 02520007 |
| 30870 IVDELE = IVDELE + 1 02530007 |
| WRITE (I02,80003) IVTNUM 02540007 |
| IF (ICZERO) 40870, 881, 40870 02550007 |
| 40870 IF (IVCOMP - 587) 20870, 10870, 20870 02560007 |
| 10870 IVPASS = IVPASS + 1 02570007 |
| WRITE (I02,80001) IVTNUM 02580007 |
| GO TO 881 02590007 |
| 20870 IVFAIL = IVFAIL + 1 02600007 |
| IVCORR = 587 02610007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02620007 |
| 881 CONTINUE 02630007 |
| IVTNUM = 88 02640007 |
| C 02650007 |
| C **** TEST 88 **** 02660007 |
| C 02670007 |
| IF (ICZERO) 30880, 880, 30880 02680007 |
| 880 CONTINUE 02690007 |
| IVCOMP = IVON09 02700007 |
| GO TO 40880 02710007 |
| 30880 IVDELE = IVDELE + 1 02720007 |
| WRITE (I02,80003) IVTNUM 02730007 |
| IF (ICZERO) 40880, 891, 40880 02740007 |
| 40880 IF (IVCOMP - 9999) 20880, 10880, 20880 02750007 |
| 10880 IVPASS = IVPASS + 1 02760007 |
| WRITE (I02,80001) IVTNUM 02770007 |
| GO TO 891 02780007 |
| 20880 IVFAIL = IVFAIL + 1 02790007 |
| IVCORR = 9999 02800007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02810007 |
| 891 CONTINUE 02820007 |
| IVTNUM = 89 02830007 |
| C 02840007 |
| C **** TEST 89 **** 02850007 |
| C 02860007 |
| IF (ICZERO) 30890, 890, 30890 02870007 |
| 890 CONTINUE 02880007 |
| IVCOMP = IVON10 02890007 |
| GO TO 40890 02900007 |
| 30890 IVDELE = IVDELE + 1 02910007 |
| WRITE (I02,80003) IVTNUM 02920007 |
| IF (ICZERO) 40890, 901, 40890 02930007 |
| 40890 IF (IVCOMP - 21111) 20890, 10890, 20890 02940007 |
| 10890 IVPASS = IVPASS + 1 02950007 |
| WRITE (I02,80001) IVTNUM 02960007 |
| GO TO 901 02970007 |
| 20890 IVFAIL = IVFAIL + 1 02980007 |
| IVCORR= 21111 02990007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000007 |
| C 03010007 |
| C TESTS 90 THROUGH 94 CHECK THE VALUES INITIALIZED BY THE DATA 03020007 |
| C STATEMENT CONTAINING IVON11,...,IVON15. 03030007 |
| C 03040007 |
| 901 CONTINUE 03050007 |
| IVTNUM = 90 03060007 |
| C 03070007 |
| C **** TEST 90 **** 03080007 |
| C 03090007 |
| IF (ICZERO) 30900, 900, 30900 03100007 |
| 900 CONTINUE 03110007 |
| IVCOMP = IVON11 03120007 |
| GO TO 40900 03130007 |
| 30900 IVDELE = IVDELE + 1 03140007 |
| WRITE (I02,80003) IVTNUM 03150007 |
| IF (ICZERO) 40900, 911, 40900 03160007 |
| 40900 IF (IVCOMP + 3) 20900, 10900, 20900 03170007 |
| 10900 IVPASS = IVPASS + 1 03180007 |
| WRITE (I02,80001) IVTNUM 03190007 |
| GO TO 911 03200007 |
| 20900 IVFAIL = IVFAIL + 1 03210007 |
| IVCORR = -3 03220007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03230007 |
| 911 CONTINUE 03240007 |
| IVTNUM = 91 03250007 |
| C 03260007 |
| C **** TEST 91 **** 03270007 |
| C 03280007 |
| IF (ICZERO) 30910, 910, 30910 03290007 |
| 910 CONTINUE 03300007 |
| IVCOMP = IVON12 03310007 |
| GO TO 40910 03320007 |
| 30910 IVDELE = IVDELE + 1 03330007 |
| WRITE (I02,80003) IVTNUM 03340007 |
| IF (ICZERO) 40910, 921, 40910 03350007 |
| 40910 IF (IVCOMP + 76) 20910, 10910, 20910 03360007 |
| 10910 IVPASS = IVPASS + 1 03370007 |
| WRITE (I02,80001) IVTNUM 03380007 |
| GO TO 921 03390007 |
| 20910 IVFAIL = IVFAIL + 1 03400007 |
| IVCORR = -76 03410007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03420007 |
| 921 CONTINUE 03430007 |
| IVTNUM = 92 03440007 |
| C 03450007 |
| C **** TEST 92 **** 03460007 |
| C 03470007 |
| IF (ICZERO) 30920, 920, 30920 03480007 |
| 920 CONTINUE 03490007 |
| IVCOMP= IVON13 03500007 |
| GO TO 40920 03510007 |
| 30920 IVDELE = IVDELE + 1 03520007 |
| WRITE (I02,80003) IVTNUM 03530007 |
| IF (ICZERO) 40920, 931, 40920 03540007 |
| 40920 IF (IVCOMP + 587) 20920, 10920, 20920 03550007 |
| 10920 IVPASS = IVPASS + 1 03560007 |
| WRITE (I02,80001) IVTNUM 03570007 |
| GO TO 931 03580007 |
| 20920 IVFAIL = IVFAIL + 1 03590007 |
| IVCORR = -587 03600007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03610007 |
| 931 CONTINUE 03620007 |
| IVTNUM = 93 03630007 |
| C 03640007 |
| C **** TEST 93 **** 03650007 |
| C 03660007 |
| IF (ICZERO) 30930, 930, 30930 03670007 |
| 930 CONTINUE 03680007 |
| IVCOMP = IVON14 03690007 |
| GO TO 40930 03700007 |
| 30930 IVDELE = IVDELE + 1 03710007 |
| WRITE (I02,80003) IVTNUM 03720007 |
| IF (ICZERO) 40930, 941, 40930 03730007 |
| 40930 IF (IVCOMP + 9999) 20930, 10930, 20930 03740007 |
| 10930 IVPASS = IVPASS + 1 03750007 |
| WRITE (I02,80001) IVTNUM 03760007 |
| GO TO 941 03770007 |
| 20930 IVFAIL = IVFAIL + 1 03780007 |
| IVCORR = -9999 03790007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03800007 |
| 941 CONTINUE 03810007 |
| IVTNUM = 94 03820007 |
| C 03830007 |
| C **** TEST 94 **** 03840007 |
| C 03850007 |
| IF (ICZERO) 30940, 940, 30940 03860007 |
| 940 CONTINUE 03870007 |
| IVCOMP = IVON15 03880007 |
| GO TO 40940 03890007 |
| 30940 IVDELE = IVDELE + 1 03900007 |
| WRITE (I02,80003) IVTNUM 03910007 |
| IF (ICZERO) 40940, 951, 40940 03920007 |
| 40940 IF (IVCOMP + 21111) 20940, 10940, 20940 03930007 |
| 10940 IVPASS = IVPASS + 1 03940007 |
| WRITE (I02,80001) IVTNUM 03950007 |
| GO TO 951 03960007 |
| 20940 IVFAIL = IVFAIL + 1 03970007 |
| IVCORR = -21111 03980007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03990007 |
| C 04000007 |
| C TESTS 95 THROUGH 99 CHECK THE VALUES INITIALIZED BY THE DATA 04010007 |
| C STATEMENT CONTAINING IVON16,...,IVON20. 04020007 |
| C 04030007 |
| 951 CONTINUE 04040007 |
| IVTNUM = 95 04050007 |
| C 04060007 |
| C **** TEST 95 **** 04070007 |
| C 04080007 |
| IF (ICZERO) 30950, 950, 30950 04090007 |
| 950 CONTINUE 04100007 |
| IVCOMP =IVON16 04110007 |
| GO TO 40950 04120007 |
| 30950 IVDELE = IVDELE + 1 04130007 |
| WRITE (I02,80003) IVTNUM 04140007 |
| IF (ICZERO) 40950, 961, 40950 04150007 |
| 40950 IF (IVCOMP - 119) 20950, 10950, 20950 04160007 |
| 10950 IVPASS = IVPASS + 1 04170007 |
| WRITE (I02,80001) IVTNUM 04180007 |
| GO TO 961 04190007 |
| 20950 IVFAIL = IVFAIL + 1 04200007 |
| IVCORR = 119 04210007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04220007 |
| 961 CONTINUE 04230007 |
| IVTNUM = 96 04240007 |
| C 04250007 |
| C **** TEST 96 **** 04260007 |
| C 04270007 |
| IF (ICZERO) 30960, 960, 30960 04280007 |
| 960 CONTINUE 04290007 |
| IVCOMP=IVON17 04300007 |
| GO TO 40960 04310007 |
| 30960 IVDELE = IVDELE + 1 04320007 |
| WRITE (I02,80003) IVTNUM 04330007 |
| IF (ICZERO) 40960, 971, 40960 04340007 |
| 40960 IF (IVCOMP - 119) 20960, 10960, 20960 04350007 |
| 10960 IVPASS = IVPASS + 1 04360007 |
| WRITE (I02,80001) IVTNUM 04370007 |
| GO TO 971 04380007 |
| 20960 IVFAIL = IVFAIL + 1 04390007 |
| IVCORR = 119 04400007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04410007 |
| 971 CONTINUE 04420007 |
| IVTNUM = 97 04430007 |
| C 04440007 |
| C **** TEST 97 **** 04450007 |
| C 04460007 |
| IF (ICZERO) 30970, 970, 30970 04470007 |
| 970 CONTINUE 04480007 |
| IVCOMP = IVON18 04490007 |
| GO TO 40970 04500007 |
| 30970 IVDELE = IVDELE + 1 04510007 |
| WRITE (I02,80003) IVTNUM 04520007 |
| IF (ICZERO) 40970, 981, 40970 04530007 |
| 40970 IF (IVCOMP - 7) 20970, 10970, 20970 04540007 |
| 10970 IVPASS = IVPASS + 1 04550007 |
| WRITE (I02,80001) IVTNUM 04560007 |
| GO TO 981 04570007 |
| 20970 IVFAIL = IVFAIL + 1 04580007 |
| IVCORR = 7 04590007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04600007 |
| 981 CONTINUE 04610007 |
| IVTNUM = 98 04620007 |
| C 04630007 |
| C **** TEST 98 **** 04640007 |
| C 04650007 |
| IF (ICZERO) 30980, 980, 30980 04660007 |
| 980 CONTINUE 04670007 |
| IVCOMP = IVON19 04680007 |
| GO TO 40980 04690007 |
| 30980 IVDELE = IVDELE + 1 04700007 |
| WRITE (I02,80003) IVTNUM 04710007 |
| IF (ICZERO) 40980, 991, 40980 04720007 |
| 40980 IF (IVCOMP - 7) 20980, 10980, 20980 04730007 |
| 10980 IVPASS = IVPASS + 1 04740007 |
| WRITE (I02,80001) IVTNUM 04750007 |
| GO TO 991 04760007 |
| 20980 IVFAIL = IVFAIL + 1 04770007 |
| IVCORR = 7 04780007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04790007 |
| 991 CONTINUE 04800007 |
| IVTNUM = 99 04810007 |
| C 04820007 |
| C **** TEST 99 **** 04830007 |
| C 04840007 |
| IF (ICZERO) 30990, 990, 30990 04850007 |
| 990 CONTINUE 04860007 |
| IVCOMP = IVON20 04870007 |
| GO TO 40990 04880007 |
| 30990 IVDELE = IVDELE + 1 04890007 |
| WRITE (I02,80003) IVTNUM 04900007 |
| IF (ICZERO) 40990, 1001, 40990 04910007 |
| 40990 IF (IVCOMP + 427) 20990,10990,20990 04920007 |
| 10990 IVPASS = IVPASS + 1 04930007 |
| WRITE (I02,80001) IVTNUM 04940007 |
| GO TO 1001 04950007 |
| 20990 IVFAIL = IVFAIL + 1 04960007 |
| IVCORR = -427 04970007 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04980007 |
| 1001 CONTINUE 04990007 |
| C 05000007 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 05010007 |
| 99999 CONTINUE 05020007 |
| WRITE (I02,90002) 05030007 |
| WRITE (I02,90006) 05040007 |
| WRITE (I02,90002) 05050007 |
| WRITE (I02,90002) 05060007 |
| WRITE (I02,90007) 05070007 |
| WRITE (I02,90002) 05080007 |
| WRITE (I02,90008) IVFAIL 05090007 |
| WRITE (I02,90009) IVPASS 05100007 |
| WRITE (I02,90010) IVDELE 05110007 |
| C 05120007 |
| C 05130007 |
| C TERMINATE ROUTINE EXECUTION 05140007 |
| STOP 05150007 |
| C 05160007 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 05170007 |
| 90000 FORMAT ("1") 05180007 |
| 90002 FORMAT (" ") 05190007 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05200007 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 05210007 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05220007 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05230007 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 05240007 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 05250007 |
| C 05260007 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 05270007 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 05280007 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 05290007 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 05300007 |
| C 05310007 |
| C FORMAT STATEMENTS FOR TEST RESULTS 05320007 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 05330007 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 05340007 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 05350007 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 05360007 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 05370007 |
| C 05380007 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM007" ) 05390007 |
| END 05400007 |
