| 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 |
