![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM204.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM204.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: PROGRAM FM204 00010204 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C 00020204 ! 6: C 00030204 ! 7: C THIS ROUTINE CONTINUES THE TESTING OF CHARACTER VARIABLES AND 00040204 ! 8: C CHARACTER ARRAYS OF LENGTH ONE. THE CHARACTER FEATURES TESTED IN 00050204 ! 9: C FM202 AND FM203 ARE USED IN THE TESTS IN THIS ROUTINE. THE 00060204 ! 10: C FOLLOWING CHARACTER FEATURES ARE TESTED 00070204 ! 11: C 00080204 ! 12: C (1) INITIAL DEFINITION OF CHARACTER ENTITIES OF LENGTH ONE BY 00090204 ! 13: C SPECIFYING THEM IN A DATA STATEMENT. 00100204 ! 14: C 00110204 ! 15: C (2) THE SUBSET FORTRAN LANGUAGE SPECIFIES THE FOLLOWING 00120204 ! 16: C COLLATING SEQUENCE RULES. 00130204 ! 17: C 00140204 ! 18: C A LESS THAN B ... LESS THAN Z, 00150204 ! 19: C 0 LESS THAN 1 ... LESS THAN 9, 00160204 ! 20: C ALL OF THE DIGITS PRECEDE A OR ALL OF THE DIGITS FOLLOW 00170204 ! 21: C Z, 00180204 ! 22: C BLANK IS LESS THAN THE LETTER A AND BLANK IS LESS THAN 00190204 ! 23: C THE DIGIT ZERO. 00200204 ! 24: C 00210204 ! 25: C (3) THE VALUE OF THE INTRINSIC FUNCTION ICHAR IS AN INTEGER 00220204 ! 26: C IN THE RANGE (0, N-1), WHERE N IS THE NUMBER OF CHARACTERS IN 00230204 ! 27: C THE COLLATING SEQUENCE FOR THE PROCESSOR. FOR ANY CHARACTERS 00240204 ! 28: C C1 AND C2 CAPABLE OF REPRESENTATION IN THE PROCESSOR, C1 .LE. C2 00250204 ! 29: C IS TRUE IF AND ONLY IF ICHAR(C1) .LE. ICHAR(C2) IS TRUE; AND 00260204 ! 30: C C1 .EQ. C2 IF AND ONLY IF ICHAR(C1) .EQ. ICHAR(C2). 00270204 ! 31: C 00280204 ! 32: C REFERENCES 00290204 ! 33: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00300204 ! 34: C X3.9-1978 00310204 ! 35: C 00320204 ! 36: C SECTION 3.1.5, COLLATING SEQUENCE AND GRAPHICS 00330204 ! 37: C SECTION 4.8, CHARACTER TYPE 00340204 ! 38: C SECTION 6.2, CHARACTER EXPRESSIONS 00350204 ! 39: C SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSIONS 00360204 ! 40: C SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL 00370204 ! 41: C EXPRESSIONS 00380204 ! 42: C SECTION 8.4.2, CHARACTER TYPE-STATEMENT 00390204 ! 43: C SECTION 9.4, CHARACTER CONSTANT IN A DATA STATEMENT 00400204 ! 44: C SECTION 10.4, CHARACTER ASSIGNMENT STATEMENT 00410204 ! 45: C SECTION 15.3, INTRINSIC FUNCTIONS 00420204 ! 46: C SECTION 15.10, TABLE 5 INTRINSIC FUNCTIONS 00430204 ! 47: C 00440204 ! 48: C 00450204 ! 49: C ******************************************************************00460204 ! 50: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00470204 ! 51: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00480204 ! 52: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00490204 ! 53: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00500204 ! 54: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00510204 ! 55: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00520204 ! 56: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00530204 ! 57: C THE RESULT OF EXECUTING THESE TESTS. 00540204 ! 58: C 00550204 ! 59: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00560204 ! 60: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00570204 ! 61: C 00580204 ! 62: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00590204 ! 63: C DEPARTMENT OF THE NAVY 00600204 ! 64: C FEDERAL COBOL COMPILER TESTING SERVICE 00610204 ! 65: C WASHINGTON, D.C. 20376 00620204 ! 66: C 00630204 ! 67: C ******************************************************************00640204 ! 68: C 00650204 ! 69: C 00660204 ! 70: IMPLICIT LOGICAL (L) 00670204 ! 71: IMPLICIT CHARACTER*14 (C) 00680204 ! 72: C 00690204 ! 73: CHARACTER*1 CATN11(47), CATN12(26), CATN13(10) 00700204 ! 74: CHARACTER CVTN10*1, CATN14(6)*1, CVTN01 00710204 ! 75: DIMENSION IAON11(47) 00720204 ! 76: DATA CATN11/'A','B','C','D','E','F','G','H','I','J','K','L','M', 00730204 ! 77: 1 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z','0','1', 00740204 ! 78: 2 '2','3','4','5','6','7','8','9',' ','=','+','-','*','/','(', 00750204 ! 79: 3 ')',',','.',''''/ 00760204 ! 80: DATA CATN12/'A','B','C','D','E','F','G','H','I','J','K','L','M', 00770204 ! 81: 1 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z'/ 00780204 ! 82: DATA CATN14(1),CATN14(2),CATN14(3),CATN14(4),CATN14(5),CATN14(6) 00790204 ! 83: 1 /6*'V'/,IAON11/47*7/, CATN13/'0','1','2','3','4','5','6', 00800204 ! 84: 2 '7','8','9'/,CVTN10/' '/ 00810204 ! 85: C 00820204 ! 86: C 00830204 ! 87: C 00840204 ! 88: C INITIALIZATION SECTION. 00850204 ! 89: C 00860204 ! 90: C INITIALIZE CONSTANTS 00870204 ! 91: C ******************** 00880204 ! 92: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00890204 ! 93: I01 = 5 00900204 ! 94: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00910204 ! 95: I02 = 6 00920204 ! 96: C SYSTEM ENVIRONMENT SECTION 00930204 ! 97: C 00940204 ! 98: I01 = 5 00950204 ! 99: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00960204 ! 100: C (UNIT NUMBER FOR CARD READER). 00970204 ! 101: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00980204 ! 102: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00990204 ! 103: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 01000204 ! 104: C 01010204 ! 105: I02 = 6 01020204 ! 106: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 01030204 ! 107: C (UNIT NUMBER FOR PRINTER). 01040204 ! 108: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.01050204 ! 109: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01060204 ! 110: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01070204 ! 111: C 01080204 ! 112: IVPASS = 0 01090204 ! 113: IVFAIL = 0 01100204 ! 114: IVDELE = 0 01110204 ! 115: ICZERO = 0 01120204 ! 116: C 01130204 ! 117: C WRITE OUT PAGE HEADERS 01140204 ! 118: C 01150204 ! 119: WRITE (I02,90002) 01160204 ! 120: WRITE (I02,90006) 01170204 ! 121: WRITE (I02,90008) 01180204 ! 122: WRITE (I02,90004) 01190204 ! 123: WRITE (I02,90010) 01200204 ! 124: WRITE (I02,90004) 01210204 ! 125: WRITE (I02,90016) 01220204 ! 126: WRITE (I02,90001) 01230204 ! 127: WRITE (I02,90004) 01240204 ! 128: WRITE (I02,90012) 01250204 ! 129: WRITE (I02,90014) 01260204 ! 130: WRITE (I02,90004) 01270204 ! 131: C 01280204 ! 132: C 01290204 ! 133: C TEST 61 THROUGH TEST 73 VERIFY THE CONTENTS OF CHARACTER ARRAY 01300204 ! 134: C ELEMENTS AND CHARACTER VARIABLES WHICH WERE INITIALLY DEFINED IN 01310204 ! 135: C A DATA STATEMENT. 01320204 ! 136: C 01330204 ! 137: C TEST 61 THROUGH TEST 65 VERIFY THE CONTENTS OF SELECTED 01340204 ! 138: C ELEMENTS OF THE ARRAY CATN11 WHICH WAS INITIALLY SET EQUAL TO THE 01350204 ! 139: C 47 CHARACTERS OF THE FORTRAN SUBSET LANGUAGE CHARACTER SET. 01360204 ! 140: C 01370204 ! 141: C 01380204 ! 142: C **** FCVS PROGRAM 204 - TEST 061 **** 01390204 ! 143: C 01400204 ! 144: C 01410204 ! 145: IVTNUM = 61 01420204 ! 146: IF (ICZERO) 30610, 0610, 30610 01430204 ! 147: 0610 CONTINUE 01440204 ! 148: IVCOMP = 0 01450204 ! 149: IVCORR = 1 01460204 ! 150: IF (CATN11(1) .EQ. 'A') IVCOMP = 1 01470204 ! 151: 40610 IF (IVCOMP - 1) 20610, 10610, 20610 01480204 ! 152: 30610 IVDELE = IVDELE + 1 01490204 ! 153: WRITE (I02,80000) IVTNUM 01500204 ! 154: IF (ICZERO) 10610, 0621, 20610 01510204 ! 155: 10610 IVPASS = IVPASS + 1 01520204 ! 156: WRITE (I02,80002) IVTNUM 01530204 ! 157: GO TO 0621 01540204 ! 158: 20610 IVFAIL = IVFAIL + 1 01550204 ! 159: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01560204 ! 160: 0621 CONTINUE 01570204 ! 161: C 01580204 ! 162: C **** FCVS PROGRAM 204 - TEST 062 **** 01590204 ! 163: C 01600204 ! 164: C 01610204 ! 165: IVTNUM = 62 01620204 ! 166: IF (ICZERO) 30620, 0620, 30620 01630204 ! 167: 0620 CONTINUE 01640204 ! 168: IVCOMP = 0 01650204 ! 169: IVCORR = 1 01660204 ! 170: IF (CATN11(47) .EQ. '''') IVCOMP = 1 01670204 ! 171: 40620 IF (IVCOMP - 1) 20620, 10620, 20620 01680204 ! 172: 30620 IVDELE = IVDELE + 1 01690204 ! 173: WRITE (I02,80000) IVTNUM 01700204 ! 174: IF (ICZERO) 10620, 0631, 20620 01710204 ! 175: 10620 IVPASS = IVPASS + 1 01720204 ! 176: WRITE (I02,80002) IVTNUM 01730204 ! 177: GO TO 0631 01740204 ! 178: 20620 IVFAIL = IVFAIL + 1 01750204 ! 179: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01760204 ! 180: 0631 CONTINUE 01770204 ! 181: C 01780204 ! 182: C **** FCVS PROGRAM 204 - TEST 063 **** 01790204 ! 183: C 01800204 ! 184: C 01810204 ! 185: IVTNUM = 63 01820204 ! 186: IF (ICZERO) 30630, 0630, 30630 01830204 ! 187: 0630 CONTINUE 01840204 ! 188: IVCOMP = 0 01850204 ! 189: IVCORR = 1 01860204 ! 190: IF (CATN11(46) .EQ. '.') IVCOMP = 1 01870204 ! 191: 40630 IF (IVCOMP - 1) 20630, 10630, 20630 01880204 ! 192: 30630 IVDELE = IVDELE + 1 01890204 ! 193: WRITE (I02,80000) IVTNUM 01900204 ! 194: IF (ICZERO) 10630, 0641, 20630 01910204 ! 195: 10630 IVPASS = IVPASS + 1 01920204 ! 196: WRITE (I02,80002) IVTNUM 01930204 ! 197: GO TO 0641 01940204 ! 198: 20630 IVFAIL = IVFAIL + 1 01950204 ! 199: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01960204 ! 200: 0641 CONTINUE 01970204 ! 201: C 01980204 ! 202: C **** FCVS PROGRAM 204 - TEST 064 **** 01990204 ! 203: C 02000204 ! 204: C 02010204 ! 205: IVTNUM = 64 02020204 ! 206: IF (ICZERO) 30640, 0640, 30640 02030204 ! 207: 0640 CONTINUE 02040204 ! 208: IVCOMP = 0 02050204 ! 209: IVCORR = 1 02060204 ! 210: IF (CATN11(27) .EQ. '0') IVCOMP = 1 02070204 ! 211: 40640 IF (IVCOMP - 1) 20640, 10640, 20640 02080204 ! 212: 30640 IVDELE = IVDELE + 1 02090204 ! 213: WRITE (I02,80000) IVTNUM 02100204 ! 214: IF (ICZERO) 10640, 0651, 20640 02110204 ! 215: 10640 IVPASS = IVPASS + 1 02120204 ! 216: WRITE (I02,80002) IVTNUM 02130204 ! 217: GO TO 0651 02140204 ! 218: 20640 IVFAIL = IVFAIL + 1 02150204 ! 219: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02160204 ! 220: 0651 CONTINUE 02170204 ! 221: C 02180204 ! 222: C **** FCVS PROGRAM 204 - TEST 065 **** 02190204 ! 223: C 02200204 ! 224: C 02210204 ! 225: IVTNUM = 65 02220204 ! 226: IF (ICZERO) 30650, 0650, 30650 02230204 ! 227: 0650 CONTINUE 02240204 ! 228: IVCOMP = 0 02250204 ! 229: IVCORR = 1 02260204 ! 230: IF (CATN11(36) .EQ. '9') IVCOMP = 1 02270204 ! 231: 40650 IF (IVCOMP - 1) 20650, 10650, 20650 02280204 ! 232: 30650 IVDELE = IVDELE + 1 02290204 ! 233: WRITE (I02,80000) IVTNUM 02300204 ! 234: IF (ICZERO) 10650, 0661, 20650 02310204 ! 235: 10650 IVPASS = IVPASS + 1 02320204 ! 236: WRITE (I02,80002) IVTNUM 02330204 ! 237: GO TO 0661 02340204 ! 238: 20650 IVFAIL = IVFAIL + 1 02350204 ! 239: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02360204 ! 240: 0661 CONTINUE 02370204 ! 241: C 02380204 ! 242: C TEST 66 THROUGH TEST 68 VERIFY THE CONTENTS OF SELECTED 02390204 ! 243: C ELEMENTS OF THE ARRAY CATN12 WHICH WAS INITIALLY SET EQUAL TO THE 02400204 ! 244: C 26 LETTERS OF THE ALPHABET. 02410204 ! 245: C 02420204 ! 246: C 02430204 ! 247: C **** FCVS PROGRAM 204 - TEST 066 **** 02440204 ! 248: C 02450204 ! 249: C 02460204 ! 250: IVTNUM = 66 02470204 ! 251: IF (ICZERO) 30660, 0660, 30660 02480204 ! 252: 0660 CONTINUE 02490204 ! 253: IVCOMP = 0 02500204 ! 254: IVCORR = 1 02510204 ! 255: IF (CATN12(1) .EQ. 'A') IVCOMP = 1 02520204 ! 256: 40660 IF (IVCOMP - 1) 20660, 10660, 20660 02530204 ! 257: 30660 IVDELE = IVDELE + 1 02540204 ! 258: WRITE (I02,80000) IVTNUM 02550204 ! 259: IF (ICZERO) 10660, 0671, 20660 02560204 ! 260: 10660 IVPASS = IVPASS + 1 02570204 ! 261: WRITE (I02,80002) IVTNUM 02580204 ! 262: GO TO 0671 02590204 ! 263: 20660 IVFAIL = IVFAIL + 1 02600204 ! 264: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02610204 ! 265: 0671 CONTINUE 02620204 ! 266: C 02630204 ! 267: C **** FCVS PROGRAM 204 - TEST 067 **** 02640204 ! 268: C 02650204 ! 269: C 02660204 ! 270: IVTNUM = 67 02670204 ! 271: IF (ICZERO) 30670, 0670, 30670 02680204 ! 272: 0670 CONTINUE 02690204 ! 273: IVCOMP = 0 02700204 ! 274: IVCORR = 1 02710204 ! 275: IF (CATN12(26) .EQ. 'Z') IVCOMP = 1 02720204 ! 276: 40670 IF (IVCOMP - 1) 20670, 10670, 20670 02730204 ! 277: 30670 IVDELE = IVDELE + 1 02740204 ! 278: WRITE (I02,80000) IVTNUM 02750204 ! 279: IF (ICZERO) 10670, 0681, 20670 02760204 ! 280: 10670 IVPASS = IVPASS + 1 02770204 ! 281: WRITE (I02,80002) IVTNUM 02780204 ! 282: GO TO 0681 02790204 ! 283: 20670 IVFAIL = IVFAIL + 1 02800204 ! 284: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02810204 ! 285: 0681 CONTINUE 02820204 ! 286: C 02830204 ! 287: C **** FCVS PROGRAM 204 - TEST 068 **** 02840204 ! 288: C 02850204 ! 289: C 02860204 ! 290: IVTNUM = 68 02870204 ! 291: IF (ICZERO) 30680, 0680, 30680 02880204 ! 292: 0680 CONTINUE 02890204 ! 293: IVCOMP = 0 02900204 ! 294: IVCORR = 1 02910204 ! 295: IF (CATN12(20) .EQ. 'T') IVCOMP = 1 02920204 ! 296: 40680 IF (IVCOMP - 1) 20680, 10680, 20680 02930204 ! 297: 30680 IVDELE = IVDELE + 1 02940204 ! 298: WRITE (I02,80000) IVTNUM 02950204 ! 299: IF (ICZERO) 10680, 0691, 20680 02960204 ! 300: 10680 IVPASS = IVPASS + 1 02970204 ! 301: WRITE (I02,80002) IVTNUM 02980204 ! 302: GO TO 0691 02990204 ! 303: 20680 IVFAIL = IVFAIL + 1 03000204 ! 304: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03010204 ! 305: 0691 CONTINUE 03020204 ! 306: C 03030204 ! 307: C TEST 69 AND TEST 70 VERIFY THE CONTENTS OF SELECTED ELEMENTS 03040204 ! 308: C OF THE ARRAY CATN13 WHICH WAS INITIALLY SET EQUAL TO THE TEN 03050204 ! 309: C NUMERIC DIGITS. 03060204 ! 310: C 03070204 ! 311: C 03080204 ! 312: C **** FCVS PROGRAM 204 - TEST 069 **** 03090204 ! 313: C 03100204 ! 314: C 03110204 ! 315: IVTNUM = 69 03120204 ! 316: IF (ICZERO) 30690, 0690, 30690 03130204 ! 317: 0690 CONTINUE 03140204 ! 318: IVCOMP = 0 03150204 ! 319: IVCORR = 1 03160204 ! 320: IF (CATN13(1) .EQ. '0') IVCOMP = 1 03170204 ! 321: 40690 IF (IVCOMP - 1) 20690, 10690, 20690 03180204 ! 322: 30690 IVDELE = IVDELE + 1 03190204 ! 323: WRITE (I02,80000) IVTNUM 03200204 ! 324: IF (ICZERO) 10690, 0701, 20690 03210204 ! 325: 10690 IVPASS = IVPASS + 1 03220204 ! 326: WRITE (I02,80002) IVTNUM 03230204 ! 327: GO TO 0701 03240204 ! 328: 20690 IVFAIL = IVFAIL + 1 03250204 ! 329: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03260204 ! 330: 0701 CONTINUE 03270204 ! 331: C 03280204 ! 332: C **** FCVS PROGRAM 204 - TEST 070 **** 03290204 ! 333: C 03300204 ! 334: C 03310204 ! 335: IVTNUM = 70 03320204 ! 336: IF (ICZERO) 30700, 0700, 30700 03330204 ! 337: 0700 CONTINUE 03340204 ! 338: IVCOMP = 0 03350204 ! 339: IVCORR = 1 03360204 ! 340: IF (CATN13(10) .EQ. '9') IVCOMP = 1 03370204 ! 341: 40700 IF (IVCOMP - 1) 20700, 10700, 20700 03380204 ! 342: 30700 IVDELE = IVDELE + 1 03390204 ! 343: WRITE (I02,80000) IVTNUM 03400204 ! 344: IF (ICZERO) 10700, 0711, 20700 03410204 ! 345: 10700 IVPASS = IVPASS + 1 03420204 ! 346: WRITE (I02,80002) IVTNUM 03430204 ! 347: GO TO 0711 03440204 ! 348: 20700 IVFAIL = IVFAIL + 1 03450204 ! 349: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03460204 ! 350: 0711 CONTINUE 03470204 ! 351: C 03480204 ! 352: C **** FCVS PROGRAM 204 - TEST 071 **** 03490204 ! 353: C 03500204 ! 354: C TEST 71 VERIFIES THE CONTENTS OF THE VARIABLE CVTN10 WHICH 03510204 ! 355: C WAS INITIALLY SET EQUAL TO BLANK. 03520204 ! 356: C 03530204 ! 357: IVTNUM = 71 03540204 ! 358: IF (ICZERO) 30710, 0710, 30710 03550204 ! 359: 0710 CONTINUE 03560204 ! 360: IVCOMP = 0 03570204 ! 361: IVCORR = 1 03580204 ! 362: IF (CVTN10 .EQ. ' ') IVCOMP = 1 03590204 ! 363: 40710 IF (IVCOMP - 1) 20710, 10710, 20710 03600204 ! 364: 30710 IVDELE = IVDELE + 1 03610204 ! 365: WRITE (I02,80000) IVTNUM 03620204 ! 366: IF (ICZERO) 10710, 0721, 20710 03630204 ! 367: 10710 IVPASS = IVPASS + 1 03640204 ! 368: WRITE (I02,80002) IVTNUM 03650204 ! 369: GO TO 0721 03660204 ! 370: 20710 IVFAIL = IVFAIL + 1 03670204 ! 371: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03680204 ! 372: 0721 CONTINUE 03690204 ! 373: C 03700204 ! 374: C **** FCVS PROGRAM 204 - TEST 072 **** 03710204 ! 375: C 03720204 ! 376: C TEST 72 VERIFIES THE CONTENTS OF THE ARRAY CATN14 WHICH WAS 03730204 ! 377: C INITIALLY SET EQUAL TO ALL V'S. 03740204 ! 378: C 03750204 ! 379: IVTNUM = 72 03760204 ! 380: IF (ICZERO) 30720, 0720, 30720 03770204 ! 381: 0720 CONTINUE 03780204 ! 382: IVCOMP = 0 03790204 ! 383: IVCORR = 6 03800204 ! 384: DO 722, I= 1,6 03810204 ! 385: IF (CATN14(I) .EQ. 'V') IVCOMP = IVCOMP + 1 03820204 ! 386: 722 CONTINUE 03830204 ! 387: 40720 IF (IVCOMP - 6) 20720, 10720, 20720 03840204 ! 388: 30720 IVDELE = IVDELE + 1 03850204 ! 389: WRITE (I02,80000) IVTNUM 03860204 ! 390: IF (ICZERO) 10720, 0731, 20720 03870204 ! 391: 10720 IVPASS = IVPASS + 1 03880204 ! 392: WRITE (I02,80002) IVTNUM 03890204 ! 393: GO TO 0731 03900204 ! 394: 20720 IVFAIL = IVFAIL + 1 03910204 ! 395: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03920204 ! 396: 0731 CONTINUE 03930204 ! 397: C 03940204 ! 398: C **** FCVS PROGRAM 204 - TEST 073 **** 03950204 ! 399: C 03960204 ! 400: C TEST 73 VERIFIES THE CONTENTS OF THE ARRAY IAON11 WHICH WAS 03970204 ! 401: C INITIALLY SET EQUAL TO ALL 7'S. 03980204 ! 402: C 03990204 ! 403: IVTNUM = 73 04000204 ! 404: IF (ICZERO) 30730, 0730, 30730 04010204 ! 405: 0730 CONTINUE 04020204 ! 406: IVCOMP = 0 04030204 ! 407: IVCORR = 47 04040204 ! 408: DO 732, I= 1,47 04050204 ! 409: IF (IAON11(I) - 7) 732, 733, 732 04060204 ! 410: 733 IVCOMP = IVCOMP + 1 04070204 ! 411: 732 CONTINUE 04080204 ! 412: 40730 IF (IVCOMP - 47) 20730, 10730, 20730 04090204 ! 413: 30730 IVDELE = IVDELE + 1 04100204 ! 414: WRITE (I02,80000) IVTNUM 04110204 ! 415: IF (ICZERO) 10730, 0741, 20730 04120204 ! 416: 10730 IVPASS = IVPASS + 1 04130204 ! 417: WRITE (I02,80002) IVTNUM 04140204 ! 418: GO TO 0741 04150204 ! 419: 20730 IVFAIL = IVFAIL + 1 04160204 ! 420: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04170204 ! 421: 0741 CONTINUE 04180204 ! 422: C 04190204 ! 423: C TEST 74 THROUGH TEST 79 VERIFY THE COLLATING SEQUENCE 04200204 ! 424: C SPECIFICATIONS FOR THE FORTRAN SUBSET LANGUAGE. 04210204 ! 425: C 04220204 ! 426: C TEST 74 AND TEST 75 VERIFY THE COLLATING SEQUENCE FOR LETTERS. 04230204 ! 427: C 04240204 ! 428: C 04250204 ! 429: C **** FCVS PROGRAM 204 - TEST 074 **** 04260204 ! 430: C 04270204 ! 431: C 04280204 ! 432: IVTNUM = 74 04290204 ! 433: IF (ICZERO) 30740, 0740, 30740 04300204 ! 434: 0740 CONTINUE 04310204 ! 435: IVCOMP = 1 04320204 ! 436: IVCORR = 210 04330204 ! 437: IF ('A' .LT. 'B') IVCOMP = IVCOMP * 2 04340204 ! 438: IF ('B' .LT. 'M') IVCOMP = IVCOMP * 3 04350204 ! 439: IF ('M' .LT. 'V') IVCOMP = IVCOMP * 5 04360204 ! 440: IF ('V' .LT. 'Z') IVCOMP = IVCOMP * 7 04370204 ! 441: 40740 IF (IVCOMP - 210) 20740, 10740, 20740 04380204 ! 442: 30740 IVDELE = IVDELE + 1 04390204 ! 443: WRITE (I02,80000) IVTNUM 04400204 ! 444: IF (ICZERO) 10740, 0751, 20740 04410204 ! 445: 10740 IVPASS = IVPASS + 1 04420204 ! 446: WRITE (I02,80002) IVTNUM 04430204 ! 447: GO TO 0751 04440204 ! 448: 20740 IVFAIL = IVFAIL + 1 04450204 ! 449: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04460204 ! 450: 0751 CONTINUE 04470204 ! 451: C 04480204 ! 452: C **** FCVS PROGRAM 204 - TEST 075 **** 04490204 ! 453: C 04500204 ! 454: C 04510204 ! 455: IVTNUM = 75 04520204 ! 456: IF (ICZERO) 30750, 0750, 30750 04530204 ! 457: 0750 CONTINUE 04540204 ! 458: IVCOMP = 0 04550204 ! 459: IVCORR = 25 04560204 ! 460: DO 752, I=1,25 04570204 ! 461: J= I + 1 04580204 ! 462: IF (CATN12(J) .GT. CATN12(I)) IVCOMP = IVCOMP + 1 04590204 ! 463: 752 CONTINUE 04600204 ! 464: 40750 IF (IVCOMP - 25) 20750, 10750, 20750 04610204 ! 465: 30750 IVDELE = IVDELE + 1 04620204 ! 466: WRITE (I02,80000) IVTNUM 04630204 ! 467: IF (ICZERO) 10750, 0761, 20750 04640204 ! 468: 10750 IVPASS = IVPASS + 1 04650204 ! 469: WRITE (I02,80002) IVTNUM 04660204 ! 470: GO TO 0761 04670204 ! 471: 20750 IVFAIL = IVFAIL + 1 04680204 ! 472: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04690204 ! 473: 0761 CONTINUE 04700204 ! 474: C 04710204 ! 475: C TEST 76 AND TEST 77 VERIFY THE COLLATING SEQUENCE FOR DIGITS. 04720204 ! 476: C 04730204 ! 477: C 04740204 ! 478: C **** FCVS PROGRAM 204 - TEST 076 **** 04750204 ! 479: C 04760204 ! 480: C 04770204 ! 481: IVTNUM = 76 04780204 ! 482: IF (ICZERO) 30760, 0760, 30760 04790204 ! 483: 0760 CONTINUE 04800204 ! 484: IVCOMP = 1 04810204 ! 485: IVCORR = 30 04820204 ! 486: IF ('0' .LT. '1') IVCOMP = IVCOMP * 2 04830204 ! 487: IF ('1' .LT. '5') IVCOMP = IVCOMP * 3 04840204 ! 488: IF ('5' .LT. '9') IVCOMP = IVCOMP * 5 04850204 ! 489: 40760 IF (IVCOMP - 30) 20760, 10760, 20760 04860204 ! 490: 30760 IVDELE = IVDELE + 1 04870204 ! 491: WRITE (I02,80000) IVTNUM 04880204 ! 492: IF (ICZERO) 10760, 0771, 20760 04890204 ! 493: 10760 IVPASS = IVPASS + 1 04900204 ! 494: WRITE (I02,80002) IVTNUM 04910204 ! 495: GO TO 0771 04920204 ! 496: 20760 IVFAIL = IVFAIL + 1 04930204 ! 497: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04940204 ! 498: 0771 CONTINUE 04950204 ! 499: C 04960204 ! 500: C **** FCVS PROGRAM 204 - TEST 077 **** 04970204 ! 501: C 04980204 ! 502: C 04990204 ! 503: IVTNUM = 77 05000204 ! 504: IF (ICZERO) 30770, 0770, 30770 05010204 ! 505: 0770 CONTINUE 05020204 ! 506: IVCOMP = 0 05030204 ! 507: IVCORR = 9 05040204 ! 508: DO 772, I=1,9 05050204 ! 509: J = I + 1 05060204 ! 510: IF (CATN13(I) .LT. CATN13(J)) IVCOMP = IVCOMP + 1 05070204 ! 511: 772 CONTINUE 05080204 ! 512: 40770 IF (IVCOMP - 9) 20770, 10770, 20770 05090204 ! 513: 30770 IVDELE = IVDELE + 1 05100204 ! 514: WRITE (I02,80000) IVTNUM 05110204 ! 515: IF (ICZERO) 10770, 0781, 20770 05120204 ! 516: 10770 IVPASS = IVPASS + 1 05130204 ! 517: WRITE (I02,80002) IVTNUM 05140204 ! 518: GO TO 0781 05150204 ! 519: 20770 IVFAIL = IVFAIL + 1 05160204 ! 520: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05170204 ! 521: 0781 CONTINUE 05180204 ! 522: C 05190204 ! 523: C **** FCVS PROGRAM 204 - TEST 078 **** 05200204 ! 524: C 05210204 ! 525: C TEST 78 VERIFIES THAT BLANK IS LESS THAN THE LETTER A AND BLANK05220204 ! 526: C IS LESS THAN THE DIGIT ZERO. 05230204 ! 527: C 05240204 ! 528: IVTNUM = 78 05250204 ! 529: IF (ICZERO) 30780, 0780, 30780 05260204 ! 530: 0780 CONTINUE 05270204 ! 531: IVCOMP = 1 05280204 ! 532: IVCORR = 6 05290204 ! 533: IF (' ' .LT. 'A') IVCOMP = IVCOMP * 2 05300204 ! 534: IF (' ' .LT. '0') IVCOMP = IVCOMP * 3 05310204 ! 535: 40780 IF (IVCOMP - 6) 20780, 10780, 20780 05320204 ! 536: 30780 IVDELE = IVDELE + 1 05330204 ! 537: WRITE (I02,80000) IVTNUM 05340204 ! 538: IF (ICZERO) 10780, 0791, 20780 05350204 ! 539: 10780 IVPASS = IVPASS + 1 05360204 ! 540: WRITE (I02,80002) IVTNUM 05370204 ! 541: GO TO 0791 05380204 ! 542: 20780 IVFAIL = IVFAIL + 1 05390204 ! 543: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05400204 ! 544: 0791 CONTINUE 05410204 ! 545: C 05420204 ! 546: C **** FCVS PROGRAM 204 - TEST 079 **** 05430204 ! 547: C 05440204 ! 548: C TEST 79 VERIFIES THAT THE DIGITS AND LETTERS ARE NOT INTERMIXED05450204 ! 549: C IN THE COLLATING SEQUENCE. EITHER ALL OF THE DIGITS MUST PRECEDE 05460204 ! 550: C A OR ALL OF THE DIGITS MUST FOLLOW Z. 05470204 ! 551: C 05480204 ! 552: IVTNUM = 79 05490204 ! 553: IF (ICZERO) 30790, 0790, 30790 05500204 ! 554: 0790 CONTINUE 05510204 ! 555: IVCOMP = 0 05520204 ! 556: IVCORR = 10 05530204 ! 557: IF ('0' .NE. 'A') GO TO 792 05540204 ! 558: IVCOMP = 111 05550204 ! 559: GO TO 40790 05560204 ! 560: 792 IF ('0' .GT. 'A') GO TO 793 05570204 ! 561: C 05580204 ! 562: C ZERO IS LESS THAN LETTER A, SO ALL DIGITS MUST BE LESS THAN A05590204 ! 563: C 05600204 ! 564: DO 794, I= 1,10 05610204 ! 565: IF (CATN13(I) .LT. 'A') IVCOMP = IVCOMP + 1 05620204 ! 566: 794 CONTINUE 05630204 ! 567: GO TO 40790 05640204 ! 568: C 05650204 ! 569: C ZERO IS GREATER THAN LETTER A, SO ALL DIGITS MUST BE GREATER 05660204 ! 570: C THAN LETTER Z. 05670204 ! 571: C 05680204 ! 572: 793 DO 795 I=1,10 05690204 ! 573: IF (CATN13(I) .GT. 'Z') IVCOMP = IVCOMP + 1 05700204 ! 574: 795 CONTINUE 05710204 ! 575: 40790 IF (IVCOMP - 10) 20790,10790, 20790 05720204 ! 576: 30790 IVDELE = IVDELE + 1 05730204 ! 577: WRITE (I02,80000) IVTNUM 05740204 ! 578: IF (ICZERO) 10790, 0801, 20790 05750204 ! 579: 10790 IVPASS = IVPASS + 1 05760204 ! 580: WRITE (I02,80002) IVTNUM 05770204 ! 581: GO TO 0801 05780204 ! 582: 20790 IVFAIL = IVFAIL + 1 05790204 ! 583: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05800204 ! 584: 0801 CONTINUE 05810204 ! 585: C 05820204 ! 586: C TEST 80 THROUGH TEST 85 PERFORM THE SAME COMPARISONS AS TEST 7405830204 ! 587: C THROUGH TEST 79 EXCEPT THAT THE ICHAR INTRINSIC FUNCTION IS USED 05840204 ! 588: C IN PLACE OF THE INDIVIDUAL CHARACTERS. 05850204 ! 589: C 05860204 ! 590: C TEST 80 AND TEST 81 VERIFY THE COLLATING SEQUENCE FOR LETTERS 05870204 ! 591: C USING THE ICHAR INTRINSIC FUNCTION. 05880204 ! 592: C 05890204 ! 593: C 05900204 ! 594: C **** FCVS PROGRAM 204 - TEST 080 **** 05910204 ! 595: C 05920204 ! 596: C 05930204 ! 597: IVTNUM = 80 05940204 ! 598: IF (ICZERO) 30800, 0800, 30800 05950204 ! 599: 0800 CONTINUE 05960204 ! 600: IVCOMP = 1 05970204 ! 601: IVCORR = 210 05980204 ! 602: IVON01 = ICHAR('A') 05990204 ! 603: IVON02 = ICHAR('B') 06000204 ! 604: IVON03 = ICHAR('M') 06010204 ! 605: IVON04 = ICHAR('V') 06020204 ! 606: IVON05 = ICHAR('Z') 06030204 ! 607: IF (IVON01 .LT. IVON02) IVCOMP = IVCOMP * 2 06040204 ! 608: IF (IVON02 .LT. IVON03) IVCOMP = IVCOMP * 3 06050204 ! 609: IF (IVON03 .LT. IVON04) IVCOMP = IVCOMP * 5 06060204 ! 610: IF (IVON04 .LT. IVON05) IVCOMP = IVCOMP * 7 06070204 ! 611: 40800 IF (IVCOMP - 210) 20800, 10800, 20800 06080204 ! 612: 30800 IVDELE = IVDELE + 1 06090204 ! 613: WRITE (I02,80000) IVTNUM 06100204 ! 614: IF (ICZERO) 10800, 0811, 20800 06110204 ! 615: 10800 IVPASS = IVPASS + 1 06120204 ! 616: WRITE (I02,80002) IVTNUM 06130204 ! 617: GO TO 0811 06140204 ! 618: 20800 IVFAIL = IVFAIL + 1 06150204 ! 619: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06160204 ! 620: 0811 CONTINUE 06170204 ! 621: C 06180204 ! 622: C **** FCVS PROGRAM 204 - TEST 081 **** 06190204 ! 623: C 06200204 ! 624: C 06210204 ! 625: IVTNUM = 81 06220204 ! 626: IF (ICZERO) 30810, 0810, 30810 06230204 ! 627: 0810 CONTINUE 06240204 ! 628: IVON01 = 0 06250204 ! 629: IVON02 = 0 06260204 ! 630: IVCOMP = 0 06270204 ! 631: IVCORR = 25 06280204 ! 632: DO 812, I=1,25 06290204 ! 633: J= I + 1 06300204 ! 634: IVON01 = ICHAR(CATN12(J)) 06310204 ! 635: IVON02 = ICHAR(CATN12(I)) 06320204 ! 636: IF (IVON01 .GT. IVON02) IVCOMP = IVCOMP + 1 06330204 ! 637: 812 CONTINUE 06340204 ! 638: 40810 IF (IVCOMP - 25) 20810, 10810, 20810 06350204 ! 639: 30810 IVDELE = IVDELE + 1 06360204 ! 640: WRITE (I02,80000) IVTNUM 06370204 ! 641: IF (ICZERO) 10810, 0821, 20810 06380204 ! 642: 10810 IVPASS = IVPASS + 1 06390204 ! 643: WRITE (I02,80002) IVTNUM 06400204 ! 644: GO TO 0821 06410204 ! 645: 20810 IVFAIL = IVFAIL + 1 06420204 ! 646: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06430204 ! 647: 0821 CONTINUE 06440204 ! 648: C 06450204 ! 649: C TEST 82 AND TEST 83 VERIFY THE COLLATING SEQUENCE FOR DIGITS 06460204 ! 650: C USING THE ICHAR INTRINSIC FUNCTION. 06470204 ! 651: C 06480204 ! 652: C 06490204 ! 653: C **** FCVS PROGRAM 204 - TEST 082 **** 06500204 ! 654: C 06510204 ! 655: C 06520204 ! 656: IVTNUM = 82 06530204 ! 657: IF (ICZERO) 30820, 0820, 30820 06540204 ! 658: 0820 CONTINUE 06550204 ! 659: IVCOMP = 1 06560204 ! 660: IVCORR = 30 06570204 ! 661: IF (ICHAR('0') .LT. ICHAR('1')) IVCOMP = IVCOMP *2 06580204 ! 662: IF (ICHAR('1') .LT. ICHAR('5')) IVCOMP = IVCOMP * 3 06590204 ! 663: IF (ICHAR('5') .LT. ICHAR('9')) IVCOMP = IVCOMP * 5 06600204 ! 664: 40820 IF (IVCOMP - 30) 20820, 10820, 20820 06610204 ! 665: 30820 IVDELE = IVDELE + 1 06620204 ! 666: WRITE (I02,80000) IVTNUM 06630204 ! 667: IF (ICZERO) 10820, 0831, 20820 06640204 ! 668: 10820 IVPASS = IVPASS + 1 06650204 ! 669: WRITE (I02,80002) IVTNUM 06660204 ! 670: GO TO 0831 06670204 ! 671: 20820 IVFAIL = IVFAIL + 1 06680204 ! 672: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06690204 ! 673: 0831 CONTINUE 06700204 ! 674: C 06710204 ! 675: C **** FCVS PROGRAM 204 - TEST 083 **** 06720204 ! 676: C 06730204 ! 677: C 06740204 ! 678: IVTNUM = 83 06750204 ! 679: IF (ICZERO) 30830, 0830, 30830 06760204 ! 680: 0830 CONTINUE 06770204 ! 681: IVON01 = 0 06780204 ! 682: IVON02 = 0 06790204 ! 683: IVCOMP = 0 06800204 ! 684: IVCORR = 9 06810204 ! 685: DO 832, I=1,9 06820204 ! 686: J = I + 1 06830204 ! 687: IVON01 = ICHAR(CATN13(J)) 06840204 ! 688: IVON02 = ICHAR(CATN13(I)) 06850204 ! 689: IF (IVON02 .LT. IVON01) IVCOMP = IVCOMP + 1 06860204 ! 690: 832 CONTINUE 06870204 ! 691: 40830 IF (IVCOMP -9) 20830, 10830, 20830 06880204 ! 692: 30830 IVDELE = IVDELE + 1 06890204 ! 693: WRITE (I02,80000) IVTNUM 06900204 ! 694: IF (ICZERO) 10830, 0841, 20830 06910204 ! 695: 10830 IVPASS = IVPASS + 1 06920204 ! 696: WRITE (I02,80002) IVTNUM 06930204 ! 697: GO TO 0841 06940204 ! 698: 20830 IVFAIL = IVFAIL + 1 06950204 ! 699: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06960204 ! 700: 0841 CONTINUE 06970204 ! 701: C 06980204 ! 702: C **** FCVS PROGRAM 204 - TEST 084 **** 06990204 ! 703: C 07000204 ! 704: C TEST 84 VERIFIES THAT BLANK IS LESS THAN THE LETTER A AND BLANK07010204 ! 705: C IS LESS THAN THE DIGIT ZERO. THE INTRINSIC FUNCTION ICHAR IS 07020204 ! 706: C USED IN THIS TEST. 07030204 ! 707: C 07040204 ! 708: IVTNUM = 84 07050204 ! 709: IF (ICZERO) 30840, 0840, 30840 07060204 ! 710: 0840 CONTINUE 07070204 ! 711: IVCOMP = 1 07080204 ! 712: IVCORR = 6 07090204 ! 713: IF (ICHAR(' ') .LT. ICHAR('A')) IVCOMP = IVCOMP * 2 07100204 ! 714: IF (ICHAR(' ') .LT. ICHAR('0')) IVCOMP = IVCOMP * 3 07110204 ! 715: 40840 IF (IVCOMP - 6) 20840, 10840, 20840 07120204 ! 716: 30840 IVDELE = IVDELE + 1 07130204 ! 717: WRITE (I02,80000) IVTNUM 07140204 ! 718: IF (ICZERO) 10840, 0851, 20840 07150204 ! 719: 10840 IVPASS = IVPASS + 1 07160204 ! 720: WRITE (I02,80002) IVTNUM 07170204 ! 721: GO TO 0851 07180204 ! 722: 20840 IVFAIL = IVFAIL + 1 07190204 ! 723: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07200204 ! 724: 0851 CONTINUE 07210204 ! 725: C 07220204 ! 726: C **** FCVS PROGRAM 204 - TEST 085 **** 07230204 ! 727: C 07240204 ! 728: C TEST 85 VERIFIES THAT THE DIGITS AND LETTERS ARE NOT INTERMIXED07250204 ! 729: C IN THE COLLATING SEQUENCE. THE ICHAR INTRINSIC FUNCTION IS USED 07260204 ! 730: C TO VERIFY THAT EITHER ALL OF THE DIGITS PRECEDE A OR ALL OF THE 07270204 ! 731: C DIGITS FOLLOW Z. 07280204 ! 732: C 07290204 ! 733: IVTNUM = 85 07300204 ! 734: IF (ICZERO) 30850, 0850, 30850 07310204 ! 735: 0850 CONTINUE 07320204 ! 736: IVCOMP = 0 07330204 ! 737: IVCORR = 10 07340204 ! 738: IF (ICHAR('0') .NE. ICHAR('A')) GO TO 852 07350204 ! 739: IVCOMP = 111 07360204 ! 740: GO TO 40850 07370204 ! 741: 852 IF (ICHAR('0') .GT. ICHAR('A')) GO TO 853 07380204 ! 742: C 07390204 ! 743: C ZERO IS LESS THAN LETTER A ACCORDING TO ICHAR INTRINSIC 07400204 ! 744: C FUNCTION VALUE. THUS, THE ICHAR VALUE FOR ALL DIGITS MUST BE 07410204 ! 745: C LESS THAN ICHAR VALUE FOR LETTER A. 07420204 ! 746: C 07430204 ! 747: DO 854, I=1,10 07440204 ! 748: IF (ICHAR(CATN13(I)) .LT. ICHAR('A')) IVCOMP = IVCOMP + 1 07450204 ! 749: 854 CONTINUE 07460204 ! 750: GO TO 40850 07470204 ! 751: C 07480204 ! 752: C ZERO IS GREATER THAN LETTER A ACCORDING TO ICHAR INTRINSIC 07490204 ! 753: C FUNCTION VALUE. THUS, THE ICHAR VALUE FOR ALL DIGITS MUST BE 07500204 ! 754: C GREATER THAN ICHAR VALUE FOR LETTER Z. 07510204 ! 755: C 07520204 ! 756: 853 DO 855, I=1,10 07530204 ! 757: IF (ICHAR(CATN13(I)).GT. ICHAR('Z')) IVCOMP = IVCOMP + 1 07540204 ! 758: 855 CONTINUE 07550204 ! 759: 40850 IF (IVCOMP - 10) 20850, 10850, 20850 07560204 ! 760: 30850 IVDELE = IVDELE + 1 07570204 ! 761: WRITE (I02,80000) IVTNUM 07580204 ! 762: IF (ICZERO) 10850, 0861, 20850 07590204 ! 763: 10850 IVPASS = IVPASS + 1 07600204 ! 764: WRITE (I02,80002) IVTNUM 07610204 ! 765: GO TO 0861 07620204 ! 766: 20850 IVFAIL = IVFAIL + 1 07630204 ! 767: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07640204 ! 768: 0861 CONTINUE 07650204 ! 769: C 07660204 ! 770: C **** FCVS PROGRAM 204 - TEST 086 **** 07670204 ! 771: C 07680204 ! 772: C THE ARRAY IAON11 IS SET EQUAL TO THE ICHAR INTRINSIC FUNCTION07690204 ! 773: C VALUE OF THE CORRESPONDING ELEMENT IN THE CATN11 ARRAY. THE 07700204 ! 774: C IAON11 ARRAY IS THEN SORTED IN ASCENDING ORDER, AND ENTRIES IN 07710204 ! 775: C THE CATN11 ARRAY ARE ARRANGED ACCORDING TO THE ASCENDING SORT 07720204 ! 776: C ORDER IN IAON11. THE RESULTING ORDER OF THE CATN11 ARRAY GIVES 07730204 ! 777: C THE PROCESSOR'S COLLATING SEQUENCE FOR THE FORTRAN SUBSET LANGUAGE07740204 ! 778: C CHARACTER SET. THE CATN11 ARRAY IS PRINTED AND MUST BE VISUALLY 07750204 ! 779: C CHECKED TO DETERMINE IF THE COLLATING SEQUENCE RULES ARE FOLLOWED 07760204 ! 780: C BY THE COMPILER. 07770204 ! 781: C 07780204 ! 782: IVTNUM = 86 07790204 ! 783: IF (ICZERO) 30860, 0860, 30860 07800204 ! 784: 0860 CONTINUE 07810204 ! 785: IVCOMP = 0 07820204 ! 786: C 07830204 ! 787: C INITIALIZE IAON11 TO ZERO. 07840204 ! 788: DO 862 I=1,47 07850204 ! 789: IAON11(I) = 0 07860204 ! 790: 862 CONTINUE 07870204 ! 791: C 07880204 ! 792: C PLACE ICHAR INTRINSIC VALUE IN IAON11. 07890204 ! 793: C 07900204 ! 794: DO 863, I= 1,47 07910204 ! 795: IAON11(I) = ICHAR(CATN11(I)) 07920204 ! 796: 863 CONTINUE 07930204 ! 797: C 07940204 ! 798: C SORT FORTRAN CHARACTERS ACCORDING TO THEIR POSITION IN THE 07950204 ! 799: C COLLATING SEQUENCE. 07960204 ! 800: C 07970204 ! 801: DO 864, I=1,46 07980204 ! 802: J=I 07990204 ! 803: N = I + 1 08000204 ! 804: DO 865 K = N,47 08010204 ! 805: IF (IAON11(J) .LT. IAON11(K)) GO TO 865 08020204 ! 806: J=K 08030204 ! 807: 865 CONTINUE 08040204 ! 808: IVON01 = IAON11(J) 08050204 ! 809: IAON11(J)= IAON11(I) 08060204 ! 810: IAON11(I)= IVON01 08070204 ! 811: CVTN01 = CATN11(J) 08080204 ! 812: CATN11(J) = CATN11(I) 08090204 ! 813: CATN11(I) = CVTN01 08100204 ! 814: 864 CONTINUE 08110204 ! 815: WRITE (I02, 866) CATN11 08120204 ! 816: WRITE (I02, 867) IAON11 08130204 ! 817: 866 FORMAT (3X,'FORTRAN CHARACTER SET IN ASCENDING ORDER',3X,/ 08140204 ! 818: 1 3X, 'VISUAL VERIFICATION REQUIRED' //,3X, 12(A1,3X)/ 08150204 ! 819: 2 3X, 12(A1,3X)/ 3X, 12(A1,3X)/ 3X, 11(A1,3X)) 08160204 ! 820: 867 FORMAT ( 3X/3X, 'ICHAR INTRINSIC FUNCTION VALUES FOR FORTRAN ', 08170204 ! 821: 1 'CHARACTER SET'// 3X, 12I4/ 3X, 12I4/ 3X, 12I4/ 08180204 ! 822: 2 3X,11I4//) 08190204 ! 823: IVCOMP = 1 08200204 ! 824: IVCORR = 1 08210204 ! 825: 40860 IF (IVCOMP - 1) 20860, 10860, 20860 08220204 ! 826: 30860 IVDELE = IVDELE + 1 08230204 ! 827: WRITE (I02,80000) IVTNUM 08240204 ! 828: IF (ICZERO) 10860, 0871, 20860 08250204 ! 829: 10860 IVPASS = IVPASS + 1 08260204 ! 830: WRITE (I02,80002) IVTNUM 08270204 ! 831: GO TO 0871 08280204 ! 832: 20860 IVFAIL = IVFAIL + 1 08290204 ! 833: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08300204 ! 834: 0871 CONTINUE 08310204 ! 835: C 08320204 ! 836: C 08330204 ! 837: C WRITE OUT TEST SUMMARY 08340204 ! 838: C 08350204 ! 839: WRITE (I02,90004) 08360204 ! 840: WRITE (I02,90014) 08370204 ! 841: WRITE (I02,90004) 08380204 ! 842: WRITE (I02,90000) 08390204 ! 843: WRITE (I02,90004) 08400204 ! 844: WRITE (I02,90020) IVFAIL 08410204 ! 845: WRITE (I02,90022) IVPASS 08420204 ! 846: WRITE (I02,90024) IVDELE 08430204 ! 847: STOP 08440204 ! 848: 90001 FORMAT (1H ,24X,5HFM204) 08450204 ! 849: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM204) 08460204 ! 850: C 08470204 ! 851: C FORMATS FOR TEST DETAIL LINES 08480204 ! 852: C 08490204 ! 853: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 08500204 ! 854: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 08510204 ! 855: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08520204 ! 856: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08530204 ! 857: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 08540204 ! 858: C 08550204 ! 859: C FORMAT STATEMENTS FOR PAGE HEADERS 08560204 ! 860: C 08570204 ! 861: 90002 FORMAT (1H1) 08580204 ! 862: 90004 FORMAT (1H ) 08590204 ! 863: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08600204 ! 864: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 08610204 ! 865: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08620204 ! 866: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 08630204 ! 867: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 08640204 ! 868: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08650204 ! 869: C 08660204 ! 870: C FORMAT STATEMENTS FOR RUN SUMMARY 08670204 ! 871: C 08680204 ! 872: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 08690204 ! 873: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 08700204 ! 874: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 08710204 ! 875: END 08720204
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.