PROGRAM FM205 00010205 C 00020205 C 00030205 C THE ROUTINE FM205 TESTS CHARACTER CONSTANTS, CHARACTER 00040205 C VARIABLES, AND CHARACTER ARRAY ELEMENTS WITH A MAXIMUM LENGTH 00050205 C OF 57 CHARACTERS. CHARACTER ASSIGNMENT STATEMENTS AND CHARACTER 00060205 C RELATIONAL EXPRESSIONS OF THE FOLLOWING STATEMENT FORMS ARE 00070205 C TESTED IN THIS ROUTINE. 00080205 C 00090205 C (1) CHARACTER ASSIGNMENT STATEMENTS 00100205 C 00110205 C CHARACTER VARIABLE = CHARACTER CONSTANT, 00120205 C CHARACTER VARIABLE = CHARACTER VARIABLE, 00130205 C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT, 00140205 C CHARACTER ARRAY ELEMENT = CHARACTER VARIABLE, 00150205 C CHARACTER ARRAY ELEMENT = CHARACTER ARRAY ELEMENT, 00160205 C CHARACTER VARIABLE = CHARACTER ARRAY ELEMENT. 00170205 C 00180205 C THE CHARACTER ENTITIES IN AN ASSIGNMENT STATEMENT ARE THE 00190205 C SAME LENGTH. 00200205 C 00210205 C (2) CHARACTER RELATIONAL EXPRESSIONS 00220205 C 00230205 C CHARACTER VARIABLE RELOP CHARACTER CONSTANT, 00240205 C CHARACTER VARIABLE RELOP CHARACTER VARIABLE, 00250205 C CHARACTER ARRAY ELEMENT RELOP CHARACTER CONSTANT, 00260205 C CHARACTER ARRAY ELEMENT RELOP CHARACTER VARIABLE, 00270205 C CHARACTER ARRAY ELEMENT RELOP CHAR. ARRAY ELEMENT. 00280205 C 00290205 C THE CHARACTER ENTITIES IN A RELATIONAL EXPRESSION ARE THE 00300205 C SAME LENGTH. 00310205 C 00320205 C REFERENCES 00330205 C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00340205 C X3.9-1978. 00350205 C 00360205 C SECTION 4.8, CHARACTER TYPE 00370205 C SECTION 4.8.1, CHARACTER CONSTANT 00380205 C SECTION 6.2, CHARACTER EXPRESSIONS 00390205 C SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSION 00400205 C SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL 00410205 C EXPRESSIONS 00420205 C SECTION 8.4,2, CHARACTER TYPE-STATEMENT 00430205 C SECTION 10.4, CHARACTER ASSIGNMENT STATEMENT 00440205 C 00450205 C 00460205 C ******************************************************************00470205 C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00480205 C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00490205 C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00500205 C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00510205 C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00520205 C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00530205 C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00540205 C THE RESULT OF EXECUTING THESE TESTS. 00550205 C 00560205 C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00570205 C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00580205 C 00590205 C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00600205 C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00610205 C SOFTWARE STANDARDS VALIDATION GROUP 00620205 C BUILDING 225 RM A266 00630205 C GAITHERSBURG, MD 20899 00640205 C ******************************************************************00650205 C 00660205 C 00670205 IMPLICIT LOGICAL (L) 00680205 IMPLICIT CHARACTER*14 (C) 00690205 C 00700205 CHARACTER CVTN01*3,CVTN02*7,CVTN03*12 00710205 CHARACTER CVTN04*25,CVTN05*41,CVTN06*57 00720205 CHARACTER CVTN07*3,CVTN08*7,CVTN09*12 00730205 CHARACTER CVTN10*25,CVTN11*41,CVTN12*57 00740205 CHARACTER CATN11(6)*3,CATN12(7)*7,CATN13(3)*12 00750205 CHARACTER CATN14(2)*25,CATN15(10)*41,CATN16(4)*57 00760205 C 00770205 C 00780205 C 00790205 C INITIALIZATION SECTION. 00800205 C 00810205 C INITIALIZE CONSTANTS 00820205 C ******************** 00830205 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00840205 I01 = 5 00850205 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00860205 I02 = 6 00870205 C SYSTEM ENVIRONMENT SECTION 00880205 C 00890205 CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.00900205 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00910205 C (UNIT NUMBER FOR CARD READER). 00920205 CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00930205 C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00940205 C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00950205 C 00960205 CX020 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.00970205 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00980205 C (UNIT NUMBER FOR PRINTER). 00990205 CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.01000205 C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01010205 C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01020205 C 01030205 IVPASS = 0 01040205 IVFAIL = 0 01050205 IVDELE = 0 01060205 ICZERO = 0 01070205 C 01080205 C WRITE OUT PAGE HEADERS 01090205 C 01100205 WRITE (I02,90002) 01110205 WRITE (I02,90006) 01120205 WRITE (I02,90008) 01130205 WRITE (I02,90004) 01140205 WRITE (I02,90010) 01150205 WRITE (I02,90004) 01160205 WRITE (I02,90016) 01170205 WRITE (I02,90001) 01180205 WRITE (I02,90004) 01190205 WRITE (I02,90012) 01200205 WRITE (I02,90014) 01210205 WRITE (I02,90004) 01220205 C 01230205 C 01240205 C TEST 87 THROUGH TEST 92 VERIFY THE CHARACTER ASSIGNMENT 01250205 C STATEMENT 01260205 C 01270205 C CHARACTER VARIABLE = CHARACTER CONSTANT 01280205 C 01290205 C IS CORRECT. THE VARIABLE AND CONSTANT ARE THE SAME LENGTH, AND 01300205 C THE LENGTHS 3, 7, 12, 25, 41, AND 57 ARE USED IN THESE TESTS. 01310205 C 01320205 C 01330205 C **** FCVS PROGRAM 205 - TEST 087 **** 01340205 C 01350205 C 01360205 IVTNUM = 87 01370205 IF (ICZERO) 30870, 0870, 30870 01380205 0870 CONTINUE 01390205 IVCOMP = 0 01400205 CVTN01 = 'ABC' 01410205 IF (CVTN01 .EQ. 'ABC') IVCOMP = 1 01420205 IVCORR = 1 01430205 40870 IF (IVCOMP - 1) 20870, 10870, 20870 01440205 30870 IVDELE = IVDELE + 1 01450205 WRITE (I02,80000) IVTNUM 01460205 IF (ICZERO) 10870, 0881, 20870 01470205 10870 IVPASS = IVPASS + 1 01480205 WRITE (I02,80002) IVTNUM 01490205 GO TO 0881 01500205 20870 IVFAIL = IVFAIL + 1 01510205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01520205 0881 CONTINUE 01530205 C 01540205 C **** FCVS PROGRAM 205 - TEST 088 **** 01550205 C 01560205 C 01570205 IVTNUM = 88 01580205 IF (ICZERO) 30880, 0880, 30880 01590205 0880 CONTINUE 01600205 IVCOMP = 0 01610205 IVCORR = 1 01620205 CVTN02 = 'ABCDEFG' 01630205 IF (CVTN02 .EQ. 'ABCDEFG') IVCOMP = 1 01640205 40880 IF (IVCOMP - 1) 20880, 10880, 20880 01650205 30880 IVDELE = IVDELE + 1 01660205 WRITE (I02,80000) IVTNUM 01670205 IF (ICZERO) 10880, 0891, 20880 01680205 10880 IVPASS = IVPASS + 1 01690205 WRITE (I02,80002) IVTNUM 01700205 GO TO 0891 01710205 20880 IVFAIL = IVFAIL + 1 01720205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01730205 0891 CONTINUE 01740205 C 01750205 C **** FCVS PROGRAM 205 - TEST 089 **** 01760205 C 01770205 C 01780205 IVTNUM = 89 01790205 IF (ICZERO) 30890, 0890, 30890 01800205 0890 CONTINUE 01810205 IVCOMP = 0 01820205 IVCORR = 1 01830205 CVTN03 = 'ABCDEFGHIJKL' 01840205 IF (CVTN03 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 01850205 40890 IF (IVCOMP - 1) 20890, 10890, 20890 01860205 30890 IVDELE = IVDELE + 1 01870205 WRITE (I02,80000) IVTNUM 01880205 IF (ICZERO) 10890, 0901, 20890 01890205 10890 IVPASS = IVPASS + 1 01900205 WRITE (I02,80002) IVTNUM 01910205 GO TO 0901 01920205 20890 IVFAIL = IVFAIL + 1 01930205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01940205 0901 CONTINUE 01950205 C 01960205 C **** FCVS PROGRAM 205 - TEST 090 **** 01970205 C 01980205 C 01990205 IVTNUM = 90 02000205 IF (ICZERO) 30900, 0900, 30900 02010205 0900 CONTINUE 02020205 IVCOMP = 0 02030205 IVCORR = 1 02040205 CVTN04 = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 02050205 IF (CVTN04 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 02060205 40900 IF (IVCOMP - 1) 20900, 10900, 20900 02070205 30900 IVDELE = IVDELE + 1 02080205 WRITE (I02,80000) IVTNUM 02090205 IF (ICZERO) 10900, 0911, 20900 02100205 10900 IVPASS = IVPASS + 1 02110205 WRITE (I02,80002) IVTNUM 02120205 GO TO 0911 02130205 20900 IVFAIL = IVFAIL + 1 02140205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02150205 0911 CONTINUE 02160205 C 02170205 C **** FCVS PROGRAM 205 - TEST 091 **** 02180205 C 02190205 C 02200205 IVTNUM = 91 02210205 IF (ICZERO) 30910, 0910, 30910 02220205 0910 CONTINUE 02230205 IVCOMP = 0 02240205 IVCORR = 1 02250205 CVTN05 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 02260205 IF (CVTN05 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') 02270205 1 IVCOMP = 1 02280205 40910 IF (IVCOMP - 1) 20910, 10910, 20910 02290205 30910 IVDELE = IVDELE + 1 02300205 WRITE (I02,80000) IVTNUM 02310205 IF (ICZERO) 10910, 0921, 20910 02320205 10910 IVPASS = IVPASS + 1 02330205 WRITE (I02,80002) IVTNUM 02340205 GO TO 0921 02350205 20910 IVFAIL = IVFAIL + 1 02360205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02370205 0921 CONTINUE 02380205 C 02390205 C **** FCVS PROGRAM 205 - TEST 092 **** 02400205 C 02410205 C 02420205 IVTNUM = 92 02430205 IF (ICZERO) 30920, 0920, 30920 02440205 0920 CONTINUE 02450205 IVCOMP = 0 02460205 IVCORR = 1 02470205 CVTN06 = 02480205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 02490205 IF (CVTN06 .EQ. 02500205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 02510205 2 IVCOMP = 1 02520205 40920 IF (IVCOMP - 1) 20920, 10920, 20920 02530205 30920 IVDELE = IVDELE + 1 02540205 WRITE (I02,80000) IVTNUM 02550205 IF (ICZERO) 10920, 0931, 20920 02560205 10920 IVPASS = IVPASS + 1 02570205 WRITE (I02,80002) IVTNUM 02580205 GO TO 0931 02590205 20920 IVFAIL = IVFAIL + 1 02600205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02610205 0931 CONTINUE 02620205 C 02630205 C TEST 93 THROUGH TEST 96 VERIFY THE CHARACTER ASSIGNMENT 02640205 C STATEMENTS 02650205 C 02660205 C CHARACTER VARIABLE = CHARACTER CONSTANT 02670205 C CHARACTER VARIABLE = CHARACTER VARIABLE 02680205 C 02690205 C ARE CORRECT. THE VARIABLES AND CONSTANT ARE THE SAME LENGTH, 02700205 C AND THE LENGTHS 3, 12, 25, AND 57 ARE USED IN THESE TESTS. 02710205 C 02720205 C 02730205 C **** FCVS PROGRAM 205 - TEST 093 **** 02740205 C 02750205 C 02760205 IVTNUM = 93 02770205 IF (ICZERO) 30930, 0930, 30930 02780205 0930 CONTINUE 02790205 IVCOMP = 0 02800205 IVCORR = 1 02810205 CVTN07 = ' ' 02820205 CVTN01 = 'ABC' 02830205 CVTN07 = CVTN01 02840205 IF (CVTN07 .EQ. 'ABC') IVCOMP = 1 02850205 40930 IF (IVCOMP - 1) 20930, 10930, 20930 02860205 30930 IVDELE = IVDELE + 1 02870205 WRITE (I02,80000) IVTNUM 02880205 IF (ICZERO) 10930, 0941, 20930 02890205 10930 IVPASS = IVPASS + 1 02900205 WRITE (I02,80002) IVTNUM 02910205 GO TO 0941 02920205 20930 IVFAIL = IVFAIL + 1 02930205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02940205 0941 CONTINUE 02950205 C 02960205 C **** FCVS PROGRAM 205 - TEST 094 **** 02970205 C 02980205 C 02990205 IVTNUM = 94 03000205 IF (ICZERO) 30940, 0940, 30940 03010205 0940 CONTINUE 03020205 IVCOMP = 0 03030205 IVCORR = 1 03040205 CVTN03 = 'ABCDEFGHIJKL' 03050205 CVTN09 = ' ' 03060205 CVTN09 = CVTN03 03070205 IF (CVTN09 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 03080205 40940 IF (IVCOMP - 1) 20940, 10940, 20940 03090205 30940 IVDELE = IVDELE + 1 03100205 WRITE (I02,80000) IVTNUM 03110205 IF (ICZERO) 10940, 0951, 20940 03120205 10940 IVPASS = IVPASS + 1 03130205 WRITE (I02,80002) IVTNUM 03140205 GO TO 0951 03150205 20940 IVFAIL = IVFAIL + 1 03160205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03170205 0951 CONTINUE 03180205 C 03190205 C **** FCVS PROGRAM 205 - TEST 095 **** 03200205 C 03210205 C 03220205 IVTNUM = 95 03230205 IF (ICZERO) 30950, 0950, 30950 03240205 0950 CONTINUE 03250205 IVCOMP = 0 03260205 IVCORR = 1 03270205 CVTN04 = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 03280205 CVTN10 = ' ' 03290205 CVTN10 = CVTN04 03300205 IF (CVTN10 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 03310205 40950 IF (IVCOMP - 1) 20950, 10950, 20950 03320205 30950 IVDELE = IVDELE + 1 03330205 WRITE (I02,80000) IVTNUM 03340205 IF (ICZERO) 10950, 0961, 20950 03350205 10950 IVPASS = IVPASS + 1 03360205 WRITE (I02,80002) IVTNUM 03370205 GO TO 0961 03380205 20950 IVFAIL = IVFAIL + 1 03390205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03400205 0961 CONTINUE 03410205 C 03420205 C **** FCVS PROGRAM 205 - TEST 096 **** 03430205 C 03440205 C 03450205 IVTNUM = 96 03460205 IF (ICZERO) 30960, 0960, 30960 03470205 0960 CONTINUE 03480205 IVCOMP = 0 03490205 IVCORR = 1 03500205 CVTN12 = ' ' 03510205 CVTN06 = 03520205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 03530205 CVTN12 = CVTN06 03540205 IF (CVTN12 .EQ. 03550205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 03560205 2 IVCOMP = 1 03570205 40960 IF (IVCOMP - 1) 20960, 10960, 20960 03580205 30960 IVDELE = IVDELE + 1 03590205 WRITE (I02,80000) IVTNUM 03600205 IF (ICZERO) 10960, 0971, 20960 03610205 10960 IVPASS = IVPASS + 1 03620205 WRITE (I02,80002) IVTNUM 03630205 GO TO 0971 03640205 20960 IVFAIL = IVFAIL + 1 03650205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03660205 0971 CONTINUE 03670205 C 03680205 C TEST 97 AND TEST 98 VERIFY THE CHARACTER ASSIGNMENT 03690205 C STATEMENT 03700205 C 03710205 C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 03720205 C 03730205 C IS CORRECT. THE ARRAY ELEMENT AND CONSTANT ARE THE SAME LENGTH, 03740205 C AND THE LENGTHS 25 AND 41 ARE USED IN THESE TESTS. 03750205 C 03760205 C 03770205 C **** FCVS PROGRAM 205 - TEST 097 **** 03780205 C 03790205 C 03800205 IVTNUM = 97 03810205 IF (ICZERO) 30970, 0970, 30970 03820205 0970 CONTINUE 03830205 IVCOMP = 0 03840205 IVCORR = 1 03850205 CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 03860205 IF (CATN14(1) .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 03870205 40970 IF (IVCOMP - 1) 20970, 10970, 20970 03880205 30970 IVDELE = IVDELE + 1 03890205 WRITE (I02,80000) IVTNUM 03900205 IF (ICZERO) 10970, 0981, 20970 03910205 10970 IVPASS = IVPASS + 1 03920205 WRITE (I02,80002) IVTNUM 03930205 GO TO 0981 03940205 20970 IVFAIL = IVFAIL + 1 03950205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03960205 0981 CONTINUE 03970205 C 03980205 C **** FCVS PROGRAM 205 - TEST 098 **** 03990205 C 04000205 C 04010205 IVTNUM = 98 04020205 IF (ICZERO) 30980, 0980, 30980 04030205 0980 CONTINUE 04040205 IVCOMP = 0 04050205 IVCORR = 1 04060205 CATN15(8) = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 04070205 IF (CATN15(8) .EQ. 04080205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') IVCOMP = 1 04090205 40980 IF (IVCOMP - 1) 20980, 10980, 20980 04100205 30980 IVDELE = IVDELE + 1 04110205 WRITE (I02,80000) IVTNUM 04120205 IF (ICZERO) 10980, 0991, 20980 04130205 10980 IVPASS = IVPASS + 1 04140205 WRITE (I02,80002) IVTNUM 04150205 GO TO 0991 04160205 20980 IVFAIL = IVFAIL + 1 04170205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04180205 0991 CONTINUE 04190205 C 04200205 C TEST 99 AND TEST 100 VERIFY THE CHARACTER ASSIGNMENT 04210205 C STATEMENTS 04220205 C 04230205 C CHARACTER VARIABLE = CHARACTER CONSTANT 04240205 C CHARACTER ARRAY ELEMENT = CHARACTER VARIABLE 04250205 C 04260205 C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, 04270205 C AND THE LENGTHS 3 AND 57 ARE USED IN THESE TESTS. 04280205 C 04290205 C 04300205 C **** FCVS PROGRAM 205 - TEST 099 **** 04310205 C 04320205 C 04330205 IVTNUM = 99 04340205 IF (ICZERO) 30990, 0990, 30990 04350205 0990 CONTINUE 04360205 IVCOMP = 0 04370205 IVCORR = 1 04380205 CVTN01 = 'ABC' 04390205 CATN11(5) = CVTN01 04400205 IF (CATN11(5) .EQ. 'ABC') IVCOMP = 1 04410205 40990 IF (IVCOMP - 1) 20990, 10990, 20990 04420205 30990 IVDELE = IVDELE + 1 04430205 WRITE (I02,80000) IVTNUM 04440205 IF (ICZERO) 10990, 1001, 20990 04450205 10990 IVPASS = IVPASS + 1 04460205 WRITE (I02,80002) IVTNUM 04470205 GO TO 1001 04480205 20990 IVFAIL = IVFAIL + 1 04490205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04500205 1001 CONTINUE 04510205 C 04520205 C **** FCVS PROGRAM 205 - TEST 100 **** 04530205 C 04540205 C 04550205 IVTNUM = 100 04560205 IF (ICZERO) 31000, 1000, 31000 04570205 1000 CONTINUE 04580205 IVCOMP = 0 04590205 IVCORR = 1 04600205 CVTN06 = 04610205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 04620205 CATN16(3) = CVTN06 04630205 IF (CATN16(3) .EQ. 04640205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 04650205 2 IVCOMP = 1 04660205 41000 IF (IVCOMP - 1) 21000, 11000, 21000 04670205 31000 IVDELE = IVDELE + 1 04680205 WRITE (I02,80000) IVTNUM 04690205 IF (ICZERO) 11000, 1011, 21000 04700205 11000 IVPASS = IVPASS + 1 04710205 WRITE (I02,80002) IVTNUM 04720205 GO TO 1011 04730205 21000 IVFAIL = IVFAIL + 1 04740205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04750205 1011 CONTINUE 04760205 C 04770205 C TEST 101 AND TEST 102 VERIFY THE CHARACTER ASSIGNMENT 04780205 C STATEMENTS 04790205 C 04800205 C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 04810205 C CHARACTER ARRAY ELEMENT = CHARACTER ARRAY ELEMENT 04820205 C 04830205 C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND 04840205 C THE LENGTHS 7 AND 41 ARE USED IN THESE TESTS. 04850205 C 04860205 C 04870205 C **** FCVS PROGRAM 205 - TEST 101 **** 04880205 C 04890205 C 04900205 IVTNUM = 101 04910205 IF (ICZERO) 31010, 1010, 31010 04920205 1010 CONTINUE 04930205 IVCOMP = 0 04940205 IVCORR = 1 04950205 CATN12(3) = 'ABCDEFG' 04960205 CATN12(4) = CATN12(3) 04970205 IF (CATN12(4) .EQ. 'ABCDEFG') IVCOMP = 1 04980205 41010 IF (IVCOMP - 1) 21010, 11010, 21010 04990205 31010 IVDELE = IVDELE + 1 05000205 WRITE (I02,80000) IVTNUM 05010205 IF (ICZERO) 11010, 1021, 21010 05020205 11010 IVPASS = IVPASS + 1 05030205 WRITE (I02,80002) IVTNUM 05040205 GO TO 1021 05050205 21010 IVFAIL = IVFAIL + 1 05060205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05070205 1021 CONTINUE 05080205 C 05090205 C **** FCVS PROGRAM 205 - TEST 102 **** 05100205 C 05110205 C 05120205 IVTNUM = 102 05130205 IF (ICZERO) 31020, 1020, 31020 05140205 1020 CONTINUE 05150205 IVCOMP = 0 05160205 IVCORR = 1 05170205 CATN15(3) = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 05180205 CATN15(4) = CATN15(3) 05190205 IF (CATN15(4) .EQ. 05200205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') IVCOMP = 1 05210205 41020 IF (IVCOMP - 1) 21020, 11020, 21020 05220205 31020 IVDELE = IVDELE + 1 05230205 WRITE (I02,80000) IVTNUM 05240205 IF (ICZERO) 11020, 1031, 21020 05250205 11020 IVPASS = IVPASS + 1 05260205 WRITE (I02,80002) IVTNUM 05270205 GO TO 1031 05280205 21020 IVFAIL = IVFAIL + 1 05290205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05300205 1031 CONTINUE 05310205 C 05320205 C TEST 103 AND TEST 104 VERIFY THE CHARACTER ASSIGNMENT 05330205 C STATEMENTS 05340205 C 05350205 C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 05360205 C CHARACTER VARIABLE = CHARACTER ARRAY ELEMENT 05370205 C 05380205 C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND 05390205 C THE LENGTHS 12 AND 25 ARE USED. 05400205 C 05410205 C 05420205 C **** FCVS PROGRAM 205 - TEST 103 **** 05430205 C 05440205 C 05450205 IVTNUM = 103 05460205 IF (ICZERO) 31030, 1030, 31030 05470205 1030 CONTINUE 05480205 IVCOMP = 0 05490205 IVCORR = 1 05500205 CATN13(1) = 'ABCDEFGHIJKL' 05510205 CVTN09 = ' ' 05520205 CVTN09 = CATN13(1) 05530205 IF (CVTN09 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 05540205 41030 IF (IVCOMP - 1) 21030, 11030, 21030 05550205 31030 IVDELE = IVDELE + 1 05560205 WRITE (I02,80000) IVTNUM 05570205 IF (ICZERO) 11030, 1041, 21030 05580205 11030 IVPASS = IVPASS + 1 05590205 WRITE (I02,80002) IVTNUM 05600205 GO TO 1041 05610205 21030 IVFAIL = IVFAIL + 1 05620205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05630205 1041 CONTINUE 05640205 C 05650205 C **** FCVS PROGRAM 205 - TEST 104 **** 05660205 C 05670205 C 05680205 IVTNUM = 104 05690205 IF (ICZERO) 31040, 1040, 31040 05700205 1040 CONTINUE 05710205 IVCOMP = 0 05720205 IVCORR = 1 05730205 CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 05740205 CVTN10 = ' ' 05750205 CVTN10 = CATN14(1) 05760205 IF (CVTN10 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 05770205 41040 IF (IVCOMP - 1) 21040, 11040, 21040 05780205 31040 IVDELE = IVDELE + 1 05790205 WRITE (I02,80000) IVTNUM 05800205 IF (ICZERO) 11040, 1051, 21040 05810205 11040 IVPASS = IVPASS + 1 05820205 WRITE (I02,80002) IVTNUM 05830205 GO TO 1051 05840205 21040 IVFAIL = IVFAIL + 1 05850205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05860205 1051 CONTINUE 05870205 C 05880205 C TEST 105 THROUGH TEST 110 VERIFY THE CHARACTER RELATIONAL 05890205 C EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS IN THE 05900205 C STATEMENT FORM 05910205 C 05920205 C CHARACTER VARIABLE RELOP CHARACTER CONSTANT 05930205 C 05940205 C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 05950205 C 3, 7, 12, 25, 41, AND 57 ARE USED IN THESE TESTS. 05960205 C 05970205 C 05980205 C **** FCVS PROGRAM 205 - TEST 105 **** 05990205 C 06000205 C 06010205 IVTNUM = 105 06020205 IF (ICZERO) 31050, 1050, 31050 06030205 1050 CONTINUE 06040205 IVCOMP = 0 06050205 IVCORR = 1 06060205 CVTN07 = 'ZAB' 06070205 IF (CVTN07 .EQ. 'ZAB') IVCOMP = 1 06080205 41050 IF (IVCOMP - 1) 21050, 11050, 21050 06090205 31050 IVDELE = IVDELE + 1 06100205 WRITE (I02,80000) IVTNUM 06110205 IF (ICZERO) 11050, 1061, 21050 06120205 11050 IVPASS = IVPASS + 1 06130205 WRITE (I02,80002) IVTNUM 06140205 GO TO 1061 06150205 21050 IVFAIL = IVFAIL + 1 06160205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06170205 1061 CONTINUE 06180205 C 06190205 C **** FCVS PROGRAM 205 - TEST 106 **** 06200205 C 06210205 C 06220205 IVTNUM = 106 06230205 IF (ICZERO) 31060, 1060, 31060 06240205 1060 CONTINUE 06250205 IVCOMP = 0 06260205 IVCORR = 1 06270205 CVTN08 = 'ABDDEEF' 06280205 IF (CVTN08 .GT. 'ABCDEEF') IVCOMP = 1 06290205 41060 IF (IVCOMP - 1) 21060, 11060, 21060 06300205 31060 IVDELE = IVDELE + 1 06310205 WRITE (I02,80000) IVTNUM 06320205 IF (ICZERO) 11060, 1071, 21060 06330205 11060 IVPASS = IVPASS + 1 06340205 WRITE (I02,80002) IVTNUM 06350205 GO TO 1071 06360205 21060 IVFAIL = IVFAIL + 1 06370205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06380205 1071 CONTINUE 06390205 C 06400205 C **** FCVS PROGRAM 205 - TEST 107 **** 06410205 C 06420205 C 06430205 IVTNUM = 107 06440205 IF (ICZERO) 31070, 1070, 31070 06450205 1070 CONTINUE 06460205 IVCOMP = 0 06470205 IVCORR = 1 06480205 CVTN09 = 'ZXYZZZABCDEF' 06490205 IF (CVTN09 .LT. 'ZXYZZZACCDEF') IVCOMP = 1 06500205 41070 IF (IVCOMP - 1) 21070, 11070, 21070 06510205 31070 IVDELE = IVDELE + 1 06520205 WRITE (I02,80000) IVTNUM 06530205 IF (ICZERO) 11070, 1081, 21070 06540205 11070 IVPASS = IVPASS + 1 06550205 WRITE (I02,80002) IVTNUM 06560205 GO TO 1081 06570205 21070 IVFAIL = IVFAIL + 1 06580205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06590205 1081 CONTINUE 06600205 C 06610205 C **** FCVS PROGRAM 205 - TEST 108 **** 06620205 C 06630205 C 06640205 IVTNUM = 108 06650205 IF (ICZERO) 31080, 1080, 31080 06660205 1080 CONTINUE 06670205 IVCOMP = 0 06680205 IVCORR = 1 06690205 CVTN10 = 'ABCDEFGHIJKKMNOPQRSTUVWXY' 06700205 IF ('ABCDEFGHIJKLMNOPQRSTUVWXY' .NE. CVTN10) IVCOMP = 1 06710205 41080 IF (IVCOMP - 1) 21080, 11080, 21080 06720205 31080 IVDELE = IVDELE + 1 06730205 WRITE (I02,80000) IVTNUM 06740205 IF (ICZERO) 11080, 1091, 21080 06750205 11080 IVPASS = IVPASS + 1 06760205 WRITE (I02,80002) IVTNUM 06770205 GO TO 1091 06780205 21080 IVFAIL = IVFAIL + 1 06790205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06800205 1091 CONTINUE 06810205 C 06820205 C **** FCVS PROGRAM 205 - TEST 109 **** 06830205 C 06840205 C 06850205 IVTNUM = 109 06860205 IF (ICZERO) 31090, 1090, 31090 06870205 1090 CONTINUE 06880205 IVCOMP = 0 06890205 IVCORR = 1 06900205 CVTN11 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZAABCDEFGHIJKLMN' 06910205 IF ('ABCDEFGHIJKLMNOPQRSTUVWXYZABBCDEFGHIJKLMN' .GE. CVTN11) 06920205 1 IVCOMP = 1 06930205 41090 IF (IVCOMP - 1) 21090, 11090, 21090 06940205 31090 IVDELE = IVDELE + 1 06950205 WRITE (I02,80000) IVTNUM 06960205 IF (ICZERO) 11090, 1101, 21090 06970205 11090 IVPASS = IVPASS + 1 06980205 WRITE (I02,80002) IVTNUM 06990205 GO TO 1101 07000205 21090 IVFAIL = IVFAIL + 1 07010205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07020205 1101 CONTINUE 07030205 C 07040205 C **** FCVS PROGRAM 205 - TEST 110 **** 07050205 C 07060205 C 07070205 IVTNUM = 110 07080205 IF (ICZERO) 31100, 1100, 31100 07090205 1100 CONTINUE 07100205 IVCOMP = 0 07110205 IVCORR = 1 07120205 CVTN12 = 07130205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZAAAAA' 07140205 IF ('ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYAAAAAA' 07150205 1 .LE. CVTN12) IVCOMP = 1 07160205 41100 IF (IVCOMP - 1) 21100, 11100, 21100 07170205 31100 IVDELE = IVDELE + 1 07180205 WRITE (I02,80000) IVTNUM 07190205 IF (ICZERO) 11100, 1111, 21100 07200205 11100 IVPASS = IVPASS + 1 07210205 WRITE (I02,80002) IVTNUM 07220205 GO TO 1111 07230205 21100 IVFAIL = IVFAIL + 1 07240205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07250205 1111 CONTINUE 07260205 C 07270205 C TEST 111 AND TEST 112 VERIFY THE CHARACTER RELATIONAL 07280205 C EXPRESSION OF THE FORM 07290205 C 07300205 C CHARACTER VARIABLE RELOP CHARACTER VARIABLE 07310205 C 07320205 C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 3 07330205 C AND 41 ARE USED IN THESE TESTS. 07340205 C 07350205 C 07360205 C **** FCVS PROGRAM 205 - TEST 111 **** 07370205 C 07380205 C 07390205 IVTNUM = 111 07400205 IF (ICZERO) 31110, 1110, 31110 07410205 1110 CONTINUE 07420205 IVCOMP = 1 07430205 IVCORR = 3 07440205 CVTN01 = 'ABC' 07450205 CVTN07 = 'BBC' 07460205 IF (CVTN01 .EQ. CVTN07) IVCOMP = IVCOMP * 2 07470205 IF (CVTN01 .NE. CVTN07) IVCOMP = IVCOMP * 3 07480205 41110 IF (IVCOMP - 3) 21110, 11110, 21110 07490205 31110 IVDELE = IVDELE + 1 07500205 WRITE (I02,80000) IVTNUM 07510205 IF (ICZERO) 11110, 1121, 21110 07520205 11110 IVPASS = IVPASS + 1 07530205 WRITE (I02,80002) IVTNUM 07540205 GO TO 1121 07550205 21110 IVFAIL = IVFAIL + 1 07560205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07570205 1121 CONTINUE 07580205 C 07590205 C **** FCVS PROGRAM 205 - TEST 112 **** 07600205 C 07610205 C 07620205 IVTNUM = 112 07630205 IF (ICZERO) 31120, 1120, 31120 07640205 1120 CONTINUE 07650205 IVCOMP = 1 07660205 IVCORR = 6 07670205 CVTN05 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 07680205 CVTN11 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 07690205 IF (CVTN05 .GE. CVTN11) IVCOMP = IVCOMP * 2 07700205 IF (CVTN05 .LE. CVTN11) IVCOMP = IVCOMP * 3 07710205 41120 IF (IVCOMP - 6) 21120, 11120, 21120 07720205 31120 IVDELE = IVDELE + 1 07730205 WRITE (I02,80000) IVTNUM 07740205 IF (ICZERO) 11120, 1131, 21120 07750205 11120 IVPASS = IVPASS + 1 07760205 WRITE (I02,80002) IVTNUM 07770205 GO TO 1131 07780205 21120 IVFAIL = IVFAIL + 1 07790205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07800205 1131 CONTINUE 07810205 C 07820205 C TEST 113 AND TEST 114 VERIFY THE CHARACTER RELATIONAL 07830205 C EXPRESSION OF THE FORM 07840205 C 07850205 C CHARACTER ARRAY ELEMENT RELOP CHARACTER CONSTANT 07860205 C 07870205 C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 7 AND 07880205 C 25 ARE USED IN THESE TESTS. 07890205 C 07900205 C 07910205 C **** FCVS PROGRAM 205 - TEST 113 **** 07920205 C 07930205 C 07940205 IVTNUM = 113 07950205 IF (ICZERO) 31130, 1130, 31130 07960205 1130 CONTINUE 07970205 IVCOMP = 1 07980205 IVCORR = 6 07990205 CATN12(3) = 'AB012CD' 08000205 IF (CATN12(3) .LT. 'AB013CD') IVCOMP = IVCOMP * 2 08010205 IF ('AB013CD' .GT. CATN12(3)) IVCOMP = IVCOMP * 3 08020205 41130 IF (IVCOMP - 6) 21130, 11130, 21130 08030205 31130 IVDELE = IVDELE + 1 08040205 WRITE (I02,80000) IVTNUM 08050205 IF (ICZERO) 11130, 1141, 21130 08060205 11130 IVPASS = IVPASS + 1 08070205 WRITE (I02,80002) IVTNUM 08080205 GO TO 1141 08090205 21130 IVFAIL = IVFAIL + 1 08100205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08110205 1141 CONTINUE 08120205 C 08130205 C **** FCVS PROGRAM 205 - TEST 114 **** 08140205 C 08150205 C 08160205 IVTNUM = 114 08170205 IF (ICZERO) 31140, 1140, 31140 08180205 1140 CONTINUE 08190205 IVCOMP = 1 08200205 IVCORR = 2 08210205 CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXX' 08220205 IF (CATN14(1) .NE. 'ABCDEFGHIJKLMNOPQRSTUVWXY') 08230205 1 IVCOMP = IVCOMP * 2 08240205 IF (CATN14(1) .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') 08250205 1 IVCOMP = IVCOMP * 3 08260205 41140 IF (IVCOMP - 2) 21140, 11140, 21140 08270205 31140 IVDELE = IVDELE + 1 08280205 WRITE (I02,80000) IVTNUM 08290205 IF (ICZERO) 11140, 1151, 21140 08300205 11140 IVPASS = IVPASS + 1 08310205 WRITE (I02,80002) IVTNUM 08320205 GO TO 1151 08330205 21140 IVFAIL = IVFAIL + 1 08340205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08350205 1151 CONTINUE 08360205 C 08370205 C **** FCVS PROGRAM 205 - TEST 115 **** 08380205 C 08390205 C TEST 115 VERIFIES THE CHARACTER RELATIONAL EXPRESSION 08400205 C OF THE FORM 08410205 C 08420205 C CHARACTER ARRAY ELEMENT RELOP CHARACTER VARIABLE 08430205 C 08440205 C THE CHARACTER ENTITIES ARE 12 CHARACTERS IN LENGTH. 08450205 C 08460205 IVTNUM = 115 08470205 IF (ICZERO) 31150, 1150, 31150 08480205 1150 CONTINUE 08490205 IVCOMP = 1 08500205 IVCORR = 2 08510205 CATN13(3) = 'ABC+AAB/CDDF' 08520205 IF (CATN13(3) .LT. 'BBC+AAB/CCCC') IVCOMP = IVCOMP * 2 08530205 IF (CATN13(3) .GT. 'BBC+AAB/CCCC') IVCOMP = IVCOMP * 3 08540205 41150 IF (IVCOMP - 2) 21150, 11150, 21150 08550205 31150 IVDELE = IVDELE + 1 08560205 WRITE (I02,80000) IVTNUM 08570205 IF (ICZERO) 11150, 1161, 21150 08580205 11150 IVPASS = IVPASS + 1 08590205 WRITE (I02,80002) IVTNUM 08600205 GO TO 1161 08610205 21150 IVFAIL = IVFAIL + 1 08620205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08630205 1161 CONTINUE 08640205 C 08650205 C **** FCVS PROGRAM 205 - TEST 116 **** 08660205 C 08670205 C TEST 116 VERIFIES THE CHARACTER RELATIONAL EXPRESSION 08680205 C OF THE FORM 08690205 C 08700205 C CHARACTER ARRAY ELEMENT RELOP CHARACTER ARRAY ELEMENT 08710205 C 08720205 C THE CHARACTER ENTITIES ARE 57 CHARACTERS IN LENGTH. 08730205 C 08740205 IVTNUM = 116 08750205 IF (ICZERO) 31160, 1160, 31160 08760205 1160 CONTINUE 08770205 IVCOMP = 1 08780205 IVCORR = 30 08790205 CATN16(1) = 08800205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ//012' 08810205 CATN16(2) = 08820205 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ//112' 08830205 IF (CATN16 (1) .LT. CATN16 (2)) IVCOMP = IVCOMP * 2 08840205 IF (CATN16 (1) .NE. CATN16 (2)) IVCOMP = IVCOMP * 3 08850205 IF (CATN16 (1) .LE. CATN16 (2)) IVCOMP = IVCOMP * 5 08860205 41160 IF (IVCOMP - 30) 21160, 11160, 21160 08870205 31160 IVDELE = IVDELE + 1 08880205 WRITE (I02,80000) IVTNUM 08890205 IF (ICZERO) 11160, 1171, 21160 08900205 11160 IVPASS = IVPASS + 1 08910205 WRITE (I02,80002) IVTNUM 08920205 GO TO 1171 08930205 21160 IVFAIL = IVFAIL + 1 08940205 WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08950205 1171 CONTINUE 08960205 C 08970205 C 08980205 C WRITE OUT TEST SUMMARY 08990205 C 09000205 WRITE (I02,90004) 09010205 WRITE (I02,90014) 09020205 WRITE (I02,90004) 09030205 WRITE (I02,90000) 09040205 WRITE (I02,90004) 09050205 WRITE (I02,90020) IVFAIL 09060205 WRITE (I02,90022) IVPASS 09070205 WRITE (I02,90024) IVDELE 09080205 STOP 09090205 90001 FORMAT (" ",24X,"FM205") 09100205 90000 FORMAT (" ",20X,"END OF PROGRAM FM205" ) 09110205 C 09120205 C FORMATS FOR TEST DETAIL LINES 09130205 C 09140205 80000 FORMAT (" ",4X,I5,6X,"DELETED") 09150205 80002 FORMAT (" ",4X,I5,7X,"PASS") 09160205 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09170205 80012 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 09180205 80018 FORMAT (" ",4X,I5,7X,"FAIL",2X,A14,1X,A14) 09190205 C 09200205 C FORMAT STATEMENTS FOR PAGE HEADERS 09210205 C 09220205 90002 FORMAT ("1") 09230205 90004 FORMAT (" ") 09240205 90006 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09250205 90008 FORMAT (" ",21X,"VERSION 2.1" ) 09260205 90010 FORMAT (" ",8X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 09270205 90012 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL",5X,"COMPUTED",8X,"CORRECT") 09280205 90014 FORMAT (" ",5X,"----------------------------------------------" ) 09290205 90016 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 09300205 C 09310205 C FORMAT STATEMENTS FOR RUN SUMMARY 09320205 C 09330205 90020 FORMAT (" ",19X,I5," TESTS FAILED" ) 09340205 90022 FORMAT (" ",19X,I5," TESTS PASSED" ) 09350205 90024 FORMAT (" ",19X,I5," TESTS DELETED" ) 09360205 END 09370205