![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM923.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 FM923.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C***********************************************************************00010923 ! 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***** FORTRAN 77 00020923 ! 6: C***** FM923 00030923 ! 7: C***** LSTDI1 - (370) 00040923 ! 8: C***** 00050923 ! 9: C***********************************************************************00060923 ! 10: C***** GENERAL PURPOSE ANS REF 00070923 ! 11: C***** TEST LIST DIRECTED INPUT ON 13.6 00080923 ! 12: C***** INTEGER REAL, LOGICAL, AND CHARACTER DATA TYPES. 12.4 00090923 ! 13: C***** 00100923 ! 14: CBB** ********************** BBCCOMNT **********************************00110923 ! 15: C**** 00120923 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130923 ! 17: C**** VERSION 2.0 00140923 ! 18: C**** 00150923 ! 19: C**** 00160923 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170923 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180923 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190923 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200923 ! 24: C**** FALLS CHURCH, VA. 22041 00210923 ! 25: C**** 00220923 ! 26: C**** (703) 756-6153 00230923 ! 27: C**** 00240923 ! 28: CBE** ********************** BBCCOMNT **********************************00250923 ! 29: C INPUT DATA TO THIS SEGMENT CONSISTS OF 34 CARD IMAGES IN COL. 1-80 00260923 ! 30: COL. 1----------------------------------------------------------61 00270923 ! 31: CARD 1 25 00280923 ! 32: CARD 2 10.75 00290923 ! 33: CARD 3 12.875E01 00300923 ! 34: CARD 4 T 00310923 ! 35: CARD 5 'ABCDEF' 00320923 ! 36: CARD 6 10 15 22 40 00330923 ! 37: CARD 7 100.5 0.25E-1 -1.625E2 00340923 ! 38: CARD 8 T F F T F 00350923 ! 39: CARD 9 'AB' 'ABCD' 'ABCDEF' 00360923 ! 40: CARD 10 '123456' T 17.5 -11 2.5E0 00370923 ! 41: CARD 11 -5,'2468',T,15.0 00380923 ! 42: CARD 12 F 'CHAR' -1 0.25 00390923 ! 43: CARD 13 5 10 15 00400923 ! 44: CARD 14 -1.25E1 F T -6 '-6' 00410923 ! 45: CARD 15 F 'ZYXW' 'DCBA' 15.5 00420923 ! 46: CARD 16 'ONE ',,3,F 00430923 ! 47: CARD 17 'TWO ', 2, , 2.0 00440923 ! 48: CARD 18 ,4, 1*, 8, ,, 14 00450923 ! 49: CARD 19 5, -0.25E1, 4*, 'TEST', F 00460923 ! 50: CARD 20 1 2 3 4 5 00470923 ! 51: CARD 21 6 7 8/ 9 10 00480923 ! 52: CARD 22 12045,12 45 00490923 ! 53: CARD 23 12045 00500923 ! 54: COL. 62---------------80 00510923 ! 55: CARD 23 12 00520923 ! 56: COL. 1----------------------------------------------------------61 00530923 ! 57: CARD 24 45 00540923 ! 58: CARD 25 'ABCDEF' 00550923 ! 59: COL. 62---------------80 00560923 ! 60: CARD 25 'UVW 00570923 ! 61: COL. 1----------------------------------------------------------61 00580923 ! 62: CARD 26 XYZ' 00590923 ! 63: CARD 27 'CAN''T, AND/OR WON''T' 00600923 ! 64: CARD 28 '1234567890' '12345678' '1234567890123' 00610923 ! 65: CARD 29 TRUCK .FOUR .FALSE. .TWIN. F12. F7.2 .TRUE. .T=3+4 00620923 ! 66: CARD 30 T T T T T 00630923 ! 67: CARD 31 F F/F F F 00640923 ! 68: CARD 32 / 10 20 30 00650923 ! 69: CARD 33 1 2 3 4 00660923 ! 70: CARD 34 5 6 7 8 00670923 ! 71: C***** 00680923 ! 72: C***** S P E C I F I C A T I O N S SEGMENT 370 00690923 ! 73: INTEGER J1I(3) 00700923 ! 74: LOGICAL AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB 00710923 ! 75: CHARACTER A2VK*2, A4VK*4, B4VK*4, A6VK*6, B6VK*6 00720923 ! 76: CHARACTER A8VK*8, A9VK*9, A15VK*15, A21VK*21 00730923 ! 77: CHARACTER CVNX06*6, CVNY06*6, CVNX21*21 00740923 ! 78: C***** 00750923 ! 79: CBB** ********************** BBCINITA **********************************00760923 ! 80: C**** SPECIFICATION STATEMENTS 00770923 ! 81: C**** 00780923 ! 82: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00790923 ! 83: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00800923 ! 84: CBE** ********************** BBCINITA **********************************00810923 ! 85: CBB** ********************** BBCINITB **********************************00820923 ! 86: C**** INITIALIZE SECTION 00830923 ! 87: DATA ZVERS, ZVERSD, ZDATE 00840923 ! 88: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00850923 ! 89: DATA ZCOMPL, ZNAME, ZTAPE 00860923 ! 90: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00870923 ! 91: DATA ZPROJ, ZTAPED, ZPROG 00880923 ! 92: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00890923 ! 93: DATA REMRKS /' '/ 00900923 ! 94: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00910923 ! 95: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00920923 ! 96: C**** 00930923 ! 97: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00940923 ! 98: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00950923 ! 99: CZ03 ZPROG = 'PROGRAM NAME' 00960923 ! 100: ZDATE = '07-Nov-85 ' *RP ! 101: ZCOMPL = 'CCI 5.2 ' *RP ! 102: ZPROJ = 'TC-85- -410' *RP ! 103: ZNAME = ' ' *RP ! 104: ZTAPE = ' ' *RP ! 105: ZTAPED = '850703 ' *RP ! 106: C 01030923 ! 107: IVPASS = 0 01040923 ! 108: IVFAIL = 0 01050923 ! 109: IVDELE = 0 01060923 ! 110: IVINSP = 0 01070923 ! 111: IVTOTL = 0 01080923 ! 112: IVTOTN = 0 01090923 ! 113: ICZERO = 0 01100923 ! 114: C 01110923 ! 115: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01120923 ! 116: I01 = 05 01130923 ! 117: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01140923 ! 118: I02 = 06 01150923 ! 119: C 01160923 ! 120: I01 = 5 01170923 ! 121: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01180923 ! 122: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01190923 ! 123: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01200923 ! 124: C 01210923 ! 125: I02 = 6 01220923 ! 126: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01230923 ! 127: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01240923 ! 128: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01250923 ! 129: C 01260923 ! 130: CBE** ********************** BBCINITB **********************************01270923 ! 131: IRVI = I01 01280923 ! 132: NUVI = I02 01290923 ! 133: ZPROG = 'FM923' 01300923 ! 134: IVTOTL = 28 01310923 ! 135: CBB** ********************** BBCHED0A **********************************01320923 ! 136: C**** 01330923 ! 137: C**** WRITE REPORT TITLE 01340923 ! 138: C**** 01350923 ! 139: WRITE (I02, 90002) 01360923 ! 140: WRITE (I02, 90006) 01370923 ! 141: WRITE (I02, 90007) 01380923 ! 142: WRITE (I02, 90008) ZVERS, ZVERSD 01390923 ! 143: WRITE (I02, 90009) ZPROG, ZPROG 01400923 ! 144: WRITE (I02, 90010) ZDATE, ZCOMPL 01410923 ! 145: CBE** ********************** BBCHED0A **********************************01420923 ! 146: C***** 01430923 ! 147: C***** REAL NUMBER APPROXIMATION CRITERIA 01440923 ! 148: DVS = 0.0001 01450923 ! 149: IVCORR=0 01460923 ! 150: RVCORR=0 01470923 ! 151: C***** 01480923 ! 152: C***** HEADING FOR SEGMENT 370 01490923 ! 153: WRITE(NUVI,37000) 01500923 ! 154: 37000 FORMAT(/2X, 16H LSTDI1 - (370) , 01510923 ! 155: 1 42H LIST DIRECTED INPUT FOR SUBSET DATA TYPES// 01520923 ! 156: 2 3X,22H ANS REF. - 13.6 12.4) 01530923 ! 157: CBB** ********************** BBCHED0B **********************************01540923 ! 158: C**** WRITE DETAIL REPORT HEADERS 01550923 ! 159: C**** 01560923 ! 160: WRITE (I02,90004) 01570923 ! 161: WRITE (I02,90004) 01580923 ! 162: WRITE (I02,90013) 01590923 ! 163: WRITE (I02,90014) 01600923 ! 164: WRITE (I02,90015) IVTOTL 01610923 ! 165: CBE** ********************** BBCHED0B **********************************01620923 ! 166: C***** 01630923 ! 167: CT001* TEST 1 - CARD 1 INTEGER 01640923 ! 168: IVTNUM = 1 01650923 ! 169: READ(IRVI, *) IVI 01660923 ! 170: C***** TO DELETE TEST THE READ STATEMENTS MUST BE PERFORMED 01670923 ! 171: C***** FIRST. THEN INCLUDE THE FOLLOWING 2 STATEMENTS 01680923 ! 172: C***** IVDELE=IVDELE+1 01690923 ! 173: C***** WRITE (NUVI,80000) IVTNUM 01700923 ! 174: C***** AND COMMENT OUT REMAINING LINES UNTIL NEXT TEST 01710923 ! 175: IVCORR=25 01720923 ! 176: IF (IVI - 25) 20010,10010,20010 01730923 ! 177: 10010 IVPASS=IVPASS+1 01740923 ! 178: WRITE (NUVI,80002) IVTNUM 01750923 ! 179: GO TO 0011 01760923 ! 180: 20010 IVFAIL=IVFAIL+1 01770923 ! 181: WRITE (NUVI,80008) IVTNUM 01780923 ! 182: WRITE (NUVI,80024) IVI 01790923 ! 183: WRITE (NUVI,80026) IVCORR 01800923 ! 184: 0011 CONTINUE 01810923 ! 185: CT002* TEST 2 - CARD 2 REAL 01820923 ! 186: IVTNUM = 2 01830923 ! 187: READ(IRVI, *) AVS 01840923 ! 188: C***** TO DELETE TEST SEE NOTES FOR TEST 1 01850923 ! 189: RVCORR=10.75 01860923 ! 190: AAVS = AVS - 10.75 01870923 ! 191: IF (AAVS + .00005) 20020,10020,40020 01880923 ! 192: 40020 IF (AAVS - .00005) 10020,10020,20020 01890923 ! 193: 10020 IVPASS=IVPASS+1 01900923 ! 194: WRITE (NUVI,80002) IVTNUM 01910923 ! 195: GO TO 0021 01920923 ! 196: 20020 IVFAIL=IVFAIL+1 01930923 ! 197: WRITE (NUVI,80008) IVTNUM 01940923 ! 198: WRITE (NUVI,80028) AVS 01950923 ! 199: WRITE (NUVI,80030) RVCORR 01960923 ! 200: 0021 CONTINUE 01970923 ! 201: CT003* TEST 3 - CARD 3 REAL, EXPONENT 01980923 ! 202: IVTNUM = 3 01990923 ! 203: READ(IRVI, *) AVS 02000923 ! 204: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02010923 ! 205: RVCORR=128.75 02020923 ! 206: AAVS = AVS - 128.75 02030923 ! 207: IF (AAVS + .00005) 20030,10030,40030 02040923 ! 208: 40030 IF (AAVS - .00005) 10030,10030,20030 02050923 ! 209: 10030 IVPASS=IVPASS+1 02060923 ! 210: WRITE (NUVI,80002) IVTNUM 02070923 ! 211: GO TO 0031 02080923 ! 212: 20030 IVFAIL=IVFAIL+1 02090923 ! 213: WRITE (NUVI,80008) IVTNUM 02100923 ! 214: WRITE (NUVI,80028) AVS 02110923 ! 215: WRITE (NUVI,80030) RVCORR 02120923 ! 216: 0031 CONTINUE 02130923 ! 217: CT004* TEST 4 - CARD 4 LOGICAL 02140923 ! 218: IVTNUM = 4 02150923 ! 219: READ(IRVI, *) AVB 02160923 ! 220: C***** TO DELETE TEST SEE NOTES TEST 1 02170923 ! 221: IVCOMP=0 02180923 ! 222: IF (AVB) IVCOMP = 1 02190923 ! 223: IF (IVCOMP - 1) 20040,10040,20040 02200923 ! 224: 10040 IVPASS=IVPASS+1 02210923 ! 225: WRITE (NUVI,80002) IVTNUM 02220923 ! 226: GO TO 0041 02230923 ! 227: 20040 IVFAIL=IVFAIL+1 02240923 ! 228: WRITE (NUVI,80008) IVTNUM 02250923 ! 229: 70040 FORMAT (1H ,16X,10HCOMPUTED: ,1X,L1) 02260923 ! 230: WRITE (NUVI,70040) AVB 02270923 ! 231: 70041 FORMAT (1H ,16X,10HCORRECT: ,2H T) 02280923 ! 232: WRITE (NUVI,70041) 02290923 ! 233: 0041 CONTINUE 02300923 ! 234: CT005* TEST 5 - CARD 5 CHARACTER 02310923 ! 235: IVTNUM = 5 02320923 ! 236: READ(IRVI, *) A6VK 02330923 ! 237: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02340923 ! 238: CVNX06='ABCDEF' 02350923 ! 239: IVCOMP=0 02360923 ! 240: IF (A6VK .EQ. 'ABCDEF') IVCOMP = 1 02370923 ! 241: IF (IVCOMP - 1) 20050,10050,20050 02380923 ! 242: 10050 IVPASS=IVPASS+1 02390923 ! 243: WRITE (NUVI,80002) IVTNUM 02400923 ! 244: GO TO 0051 02410923 ! 245: 20050 IVFAIL=IVFAIL+1 02420923 ! 246: WRITE (NUVI,80008) IVTNUM 02430923 ! 247: WRITE (NUVI,80020) A6VK 02440923 ! 248: WRITE (NUVI,80022) CVNX06 02450923 ! 249: 0051 CONTINUE 02460923 ! 250: CT006* TEST 6 - CARD 6 SEVERAL INTEGER 02470923 ! 251: IVTNUM = 6 02480923 ! 252: READ(IRVI, *) IVI, JVI, KVI, LVI 02490923 ! 253: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02500923 ! 254: IF (IVI - 10) 20060,40060,20060 02510923 ! 255: 40060 IF (JVI - 15) 20060,40061,20060 02520923 ! 256: 40061 IF (KVI - 22) 20060,40062,20060 02530923 ! 257: 40062 IF (LVI - 40) 20060,10060,20060 02540923 ! 258: 10060 IVPASS=IVPASS+1 02550923 ! 259: WRITE (NUVI,80002) IVTNUM 02560923 ! 260: GO TO 0061 02570923 ! 261: 20060 IVFAIL=IVFAIL+1 02580923 ! 262: WRITE (NUVI,80008) IVTNUM 02590923 ! 263: 70060 FORMAT (1H ,16X,10HCOMPUTED: ,I5,3(2X,I5)) 02600923 ! 264: WRITE (NUVI,70060) IVI,JVI,KVI,LVI 02610923 ! 265: 70061 FORMAT (1H ,16X,10HCORRECT: , 02620923 ! 266: 1 5H 10,2X,5H 15,2X,5H 22,2X,5H 40) 02630923 ! 267: WRITE (NUVI,70061) 02640923 ! 268: 0061 CONTINUE 02650923 ! 269: CT007* TEST 7 - CARD 7 SEVERAL REAL 02660923 ! 270: IVTNUM = 7 02670923 ! 271: READ(IRVI, *) AVS, BVS, CVS 02680923 ! 272: C******* TO DELETE TEST SEE NOTES FOR TEST 1 02690923 ! 273: AAVS = AVS - 100.5 02700923 ! 274: BBVS = BVS - 0.025 02710923 ! 275: CCVS = CVS - (-162.5) 02720923 ! 276: IF (AAVS + .00005) 20070,40071,40070 02730923 ! 277: 40070 IF (AAVS - .00005) 40071,40071,20070 02740923 ! 278: 40071 IF (BBVS + .00005) 20070,40073,40072 02750923 ! 279: 40072 IF (BBVS - .00005) 40073,40073,20070 02760923 ! 280: 40073 IF (CCVS + .00005) 20070,10070,40074 02770923 ! 281: 40074 IF (CCVS - .00005) 10070,10070,20070 02780923 ! 282: 10070 IVPASS=IVPASS+1 02790923 ! 283: WRITE (NUVI,80002) IVTNUM 02800923 ! 284: GO TO 0071 02810923 ! 285: 20070 IVFAIL=IVFAIL+1 02820923 ! 286: WRITE (NUVI,80008) IVTNUM 02830923 ! 287: 70071 FORMAT (1H ,16X,10HCOMPUTED: ,F6.2,2X,F6.4,2X,F7.2) 02840923 ! 288: WRITE (NUVI,70071) AVS,BVS,CVS 02850923 ! 289: 70072 FORMAT (1H ,16X,10HCORRECT: ,6H100.50,2X,6H0.0250, 02860923 ! 290: 1 2X,7H-162.50) 02870923 ! 291: WRITE(NUVI,70072) 02880923 ! 292: 0071 CONTINUE 02890923 ! 293: CT008* TEST 8 - CARD 8 SEVERAL LOGICAL 02900923 ! 294: IVTNUM = 8 02910923 ! 295: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 02920923 ! 296: C**** TO DELETE TEST SEE NOTES FOR TEST 1 02930923 ! 297: IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND. 02940923 ! 298: 1 .NOT. EVB) GO TO 37008 02950923 ! 299: IVFAIL=IVFAIL+1 02960923 ! 300: WRITE (NUVI,80008) IVTNUM 02970923 ! 301: 70081 FORMAT (1H ,16X,10HCOMPUTED: ,L1,4(2X,L1)) 02980923 ! 302: WRITE (NUVI,70081) AVB,BVB,CVB,DVB,EVB 02990923 ! 303: 70082 FORMAT (1H ,16X,10HCORRECT: ,1HT,2X,1HF,2X,1HF,2X,1HT,2X, 03000923 ! 304: 1 1HF) 03010923 ! 305: WRITE (NUVI,70082) 03020923 ! 306: GO TO 37010 03030923 ! 307: 37008 CONTINUE 03040923 ! 308: IVPASS=IVPASS+1 03050923 ! 309: WRITE (NUVI,80002) IVTNUM 03060923 ! 310: 37010 CONTINUE 03070923 ! 311: CT009* TEST 9 - CARD 9 SEVERAL CHARACTER STRINGS 03080923 ! 312: IVTNUM = 9 03090923 ! 313: READ(IRVI, *) A2VK, A4VK, A6VK 03100923 ! 314: C***** TO DELETE CODE SEE NOTES FOR TEST 1 03110923 ! 315: IF (A2VK .EQ. 'AB' .AND. A4VK .EQ. 'ABCD' .AND. 03120923 ! 316: 1 A6VK .EQ. 'ABCDEF') GO TO 37011 03130923 ! 317: IVFAIL=IVFAIL+1 03140923 ! 318: WRITE (NUVI,80008) IVTNUM 03150923 ! 319: 70090 FORMAT (1H ,16X,10HCOMPUTED: ,A2,2X,A4,2X,A6) 03160923 ! 320: WRITE (NUVI,70090) A2VK,A4VK,A6VK 03170923 ! 321: 70091 FORMAT (1H ,16X,10HCORRECT: ,2HAB,2X,4HABCD,2X,6HABCDEF) 03180923 ! 322: WRITE (NUVI,70091) 03190923 ! 323: GO TO 37013 03200923 ! 324: 37011 CONTINUE 03210923 ! 325: IVPASS=IVPASS+1 03220923 ! 326: WRITE (NUVI,80002) IVTNUM 03230923 ! 327: 37013 CONTINUE 03240923 ! 328: CT010* TEST 10 - CARD 10 MIXED TYPES 03250923 ! 329: IVTNUM = 10 03260923 ! 330: READ(IRVI, *) A6VK, AVB, AVS, IVI, BVS 03270923 ! 331: C**** TO DELETE TEST SEE NOTES FOR TEST 1 03280923 ! 332: IF (A6VK .EQ. '123456' .AND. AVB .AND. AVS .GE. (17.5 - DVS) 03290923 ! 333: 1 .AND. AVS .LE. (17.5 + DVS) .AND. IVI .EQ. -11 .AND. 03300923 ! 334: 2 BVS .GE. (2.5 - DVS) .AND. BVS .LE. (2.5 + DVS)) 03310923 ! 335: 3 GO TO 37014 03320923 ! 336: IVFAIL=IVFAIL+1 03330923 ! 337: 70100 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 03340923 ! 338: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03350923 ! 339: WRITE (NUVI,70100) IVTNUM 03360923 ! 340: 70101 FORMAT (1H ,16X,10HCOMPUTED: , 03370923 ! 341: 2 A6,2X,L1,2X,F5.2,2X,I5,2X,E12.5) 03380923 ! 342: WRITE (NUVI,70101) A6VK,AVB,AVS,IVI,BVS 03390923 ! 343: 70102 FORMAT (1H ,16X,10HCORRECT: , 03400923 ! 344: 1 23H123456 T 17.50 -11,2X,26H 0.25000E+01 OR .25000+001) 03410923 ! 345: WRITE (NUVI,70102) 03420923 ! 346: GO TO 37016 03430923 ! 347: 37014 CONTINUE 03440923 ! 348: IVPASS=IVPASS+1 03450923 ! 349: WRITE (NUVI,80002) IVTNUM 03460923 ! 350: 37016 CONTINUE 03470923 ! 351: CT011* TEST 11 - CARD 11 MIXED TYPES SEPARATED BY COMMAS 03480923 ! 352: IVTNUM = 11 03490923 ! 353: READ(IRVI, *) IVI, A4VK, AVB, AVS 03500923 ! 354: C***** TO DELETE TEST SEE NOTES FOR TEST 1 03510923 ! 355: IF (IVI .EQ. -5 .AND. A4VK .EQ. '2468' .AND. AVB .AND. 03520923 ! 356: 1 AVS .GE. (15.0 - DVS) .AND. AVS .LE. (15.0 + DVS)) 03530923 ! 357: 2 GO TO 37017 03540923 ! 358: IVFAIL=IVFAIL+1 03550923 ! 359: 70110 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03560923 ! 360: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03570923 ! 361: WRITE (NUVI,70110) IVTNUM 03580923 ! 362: 70111 FORMAT (1H ,16X,10HCOMPUTED: , 03590923 ! 363: 1 I5,2X,A4,2X,L1,2X,F5.2) 03600923 ! 364: WRITE (NUVI,70111) IVI,A4VK,AVB,AVS 03610923 ! 365: 70112 FORMAT (1H ,16X,10HCORRECT: , 03620923 ! 366: 1 5H -5,2X,4H2468,2X,1HT,2X,5H15.00) 03630923 ! 367: WRITE (NUVI,70112) 03640923 ! 368: GO TO 37019 03650923 ! 369: 37017 CONTINUE 03660923 ! 370: IVPASS=IVPASS+1 03670923 ! 371: WRITE (NUVI,80002) IVTNUM 03680923 ! 372: 37019 CONTINUE 03690923 ! 373: CT012* TEST 12 - CARD 12 MIXED TYPES, VARYING NUMBER OF 03700923 ! 374: C***** BLANKS SEPARATING VALUES 03710923 ! 375: IVTNUM = 12 03720923 ! 376: READ(IRVI, *) AVB, A4VK, IVI, AVS 03730923 ! 377: C***** TO DELETE TEST SEE NOTES FOR TEST 1 03740923 ! 378: IF (.NOT. AVB .AND. A4VK .EQ. 'CHAR' .AND. IVI .EQ. -1 .AND.03750923 ! 379: 1 AVS .GE. (0.25 - DVS) .AND. AVS .LE. (0.25 + DVS)) 03760923 ! 380: 2 GO TO 37020 03770923 ! 381: IVFAIL=IVFAIL+1 03780923 ! 382: 70120 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03790923 ! 383: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03800923 ! 384: WRITE (NUVI,70120) IVTNUM 03810923 ! 385: 70121 FORMAT (1H ,16X,10HCOMPUTED: , 03820923 ! 386: 1 L1,2X,A4,2X,I5,2X,F4.2) 03830923 ! 387: WRITE (NUVI,70121) AVB,A4VK,IVI,AVS 03840923 ! 388: 70122 FORMAT (1H ,16X,10HCORRECT: , 03850923 ! 389: 2 3HF ,4HCHAR,2X,5H -5,2X,4H0.25) 03860923 ! 390: WRITE (NUVI,70122) 03870923 ! 391: GO TO 37022 03880923 ! 392: 37020 CONTINUE 03890923 ! 393: IVPASS=IVPASS+1 03900923 ! 394: WRITE (NUVI,80002) IVTNUM 03910923 ! 395: 37022 CONTINUE 03920923 ! 396: CT013* TEST 13 - CARD 13 READ VALUES INTO ARRAY BY USING 03930923 ! 397: C***** AN IMPLICIT DO-LOOP 03940923 ! 398: IVTNUM = 13 03950923 ! 399: READ(IRVI, *) (J1I(IIVI), IIVI=1,3) 03960923 ! 400: C**** TO DELETE TEST SEE NOTES FOR TEST 1 03970923 ! 401: IF (J1I(1) - 5) 20130,40130,20130 03980923 ! 402: 40130 IF (J1I(2) - 10) 20130,40131,20130 03990923 ! 403: 40131 IF (J1I(3) - 15) 20130,10130,20130 04000923 ! 404: 10130 IVPASS=IVPASS+1 04010923 ! 405: WRITE (NUVI,80002) IVTNUM 04020923 ! 406: GO TO 0131 04030923 ! 407: 20130 IVFAIL=IVFAIL+1 04040923 ! 408: WRITE (NUVI,80008) IVTNUM 04050923 ! 409: 70130 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 04060923 ! 410: WRITE (NUVI,70130) J1I(1),J1I(2),J1I(3) 04070923 ! 411: 70131 FORMAT (1H ,16X,10HCORRECT: , 04080923 ! 412: 1 5H 5,2X,5H 10,2X,5H 15) 04090923 ! 413: WRITE (NUVI,70131) 04100923 ! 414: 0131 CONTINUE 04110923 ! 415: CT014* TEST 14 - CARDS 14-15 LIST EXTENDING OVER 2 RECORDS 04120923 ! 416: IVTNUM = 14 04130923 ! 417: READ(IRVI, *) AVS, AVB, BVB, IVI, A2VK, CVB, A4VK, B4VK, BVS 04140923 ! 418: C***** TO DELETE CODE SEE NOTES FOR TEST 1 04150923 ! 419: IF (AVS .GE. (-1.25E1 - DVS) .AND. AVS .LE. (-1.25E1 + DVS) 04160923 ! 420: 1 .AND. .NOT. AVB .AND. BVB .AND. 04170923 ! 421: 2 IVI .EQ. -6 .AND. A2VK .EQ. '-6' .AND. .NOT. CVB .AND. 04180923 ! 422: 3 A4VK .EQ. 'ZYXW' .AND. B4VK .EQ. 'DCBA' .AND. 04190923 ! 423: 4 BVS .GE. (15.5 - DVS) .AND. BVS .LE. (15.5 + DVS)) 04200923 ! 424: 5 GO TO 37024 04210923 ! 425: IVFAIL=IVFAIL+1 04220923 ! 426: 70140 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 04230923 ! 427: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04240923 ! 428: WRITE (NUVI,70140) IVTNUM 04250923 ! 429: 70141 FORMAT (1H ,16X,10HCOMPUTED: ,E12.5,2X,L1,2X,L1,2X,I5, 04260923 ! 430: 1 /27X,A2,2X,L1,2X,A4,2X,A4,2X,F5.2) 04270923 ! 431: WRITE (NUVI,70141) AVS,AVB,BVB,IVI,A2VK,CVB,A4VK,B4VK,BVS 04280923 ! 432: 70142 FORMAT (1H ,16X,10HCORRECT: , 04290923 ! 433: 1 12H -.12500E+01,2X,1HF,2X,1HT,2X,5H -6, 04300923 ! 434: 2 /27X,2H-6,2X,1HF,2X,4HZYXW,2X,4HDCBA,2X,5H15.50) 04310923 ! 435: WRITE (NUVI,70142) 04320923 ! 436: GO TO 37026 04330923 ! 437: 37024 CONTINUE 04340923 ! 438: IVPASS=IVPASS+1 04350923 ! 439: WRITE (NUVI,80002) IVTNUM 04360923 ! 440: 37026 CONTINUE 04370923 ! 441: CT015* TEST 15 - CARD 16 NULL VALUE REPRESENTED AS ,, 04380923 ! 442: IVTNUM = 15 04390923 ! 443: AVS = 2.0 04400923 ! 444: READ(IRVI, *) A4VK, AVS, IVI, AVB 04410923 ! 445: C***** TO DELETE TEST SEE NOTES FOR TEST 1 04420923 ! 446: IF (A4VK .EQ. 'ONE ' .AND. AVS .GE. (2.0 - DVS) .AND. 04430923 ! 447: 1 AVS .LE. (2.0 + DVS) .AND. IVI .EQ. 3 .AND. .NOT. AVB) 04440923 ! 448: 2 GO TO 37027 04450923 ! 449: IVFAIL=IVFAIL+1 04460923 ! 450: WRITE (NUVI,70150) IVTNUM 04470923 ! 451: 70150 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 04480923 ! 452: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04490923 ! 453: 70151 FORMAT (1H ,16X,10HCOMPUTED: ,A4,2X,F4.1,2X,I5,2X,L1) 04500923 ! 454: WRITE (NUVI,70151) A4VK,AVS,IVI,AVB 04510923 ! 455: 70152 FORMAT (1H ,16X,10HCORRECT: , 04520923 ! 456: 1 20HONE 2.0 3 F) 04530923 ! 457: WRITE (NUVI,70152) 04540923 ! 458: GO TO 37029 04550923 ! 459: 37027 CONTINUE 04560923 ! 460: IVPASS=IVPASS+1 04570923 ! 461: WRITE (NUVI,80002) IVTNUM 04580923 ! 462: 37029 CONTINUE 04590923 ! 463: CT016* TEST 16 - CARD 17 NULL VALUE REPRESENTED AS ' ' 04600923 ! 464: IVTNUM = 16 04610923 ! 465: AVB = .TRUE. 04620923 ! 466: READ(IRVI, *) A4VK, IVI, AVB, AVS 04630923 ! 467: C***** TO DELETE TEST SEE NOTES FOR TEST 1 04640923 ! 468: IF (A4VK .EQ. 'TWO ' .AND. IVI .EQ. 2 .AND. AVB .AND. 04650923 ! 469: 1 AVS .GE. (2.0 - DVS) .AND. AVS .LE. (2.0 + DVS)) 04660923 ! 470: 2 GO TO 37030 04670923 ! 471: IVFAIL=IVFAIL+1 04680923 ! 472: WRITE (NUVI,80008) IVTNUM 04690923 ! 473: 70160 FORMAT (1H ,16X,10HCOMPUTED: ,A4,2X,I5,2X,L1,2X,F4.1) 04700923 ! 474: WRITE (NUVI,70160) A4VK,IVI,AVB,AVS 04710923 ! 475: 70161 FORMAT (1H ,16X,10HCORRECT: , 04720923 ! 476: 1 20HTWO 2 T 2.0) 04730923 ! 477: WRITE (NUVI,70161) 04740923 ! 478: GO TO 37032 04750923 ! 479: 37030 CONTINUE 04760923 ! 480: IVPASS=IVPASS+1 04770923 ! 481: WRITE (NUVI,80002) IVTNUM 04780923 ! 482: 37032 CONTINUE 04790923 ! 483: CT017* TEST 17 - CARD 18 VARIOUS NULL REPRESENTATIONS 04800923 ! 484: IVTNUM = 17 04810923 ! 485: IVI = 2 04820923 ! 486: JVI = 6 04830923 ! 487: KVI = 10 04840923 ! 488: KKVI = 12 04850923 ! 489: READ(IRVI, *) IVI, IIVI, JVI, JJVI, KVI, KKVI, LVI 04860923 ! 490: C**** TO DELETE TEST SEE NOTES FOR TEST 1 04870923 ! 491: IF (IVI .EQ. 2 .AND. IIVI .EQ. 4 .AND. JVI .EQ. 6 .AND. 04880923 ! 492: 1 JJVI .EQ. 8 .AND. KVI .EQ. 10 .AND. KKVI .EQ. 12 .AND. 04890923 ! 493: 2 LVI .EQ. 14) GO TO 37033 04900923 ! 494: IVFAIL=IVFAIL+1 04910923 ! 495: WRITE (NUVI,70170) IVTNUM 04920923 ! 496: 70170 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 04930923 ! 497: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04940923 ! 498: 70171 FORMAT (1H ,16X,10HCOMPUTED: , 04950923 ! 499: 1 I5,6(2X,I5)) 04960923 ! 500: WRITE (NUVI,70171) IVI,IIVI,JVI,JJVI,KVI,KKVI,LVI 04970923 ! 501: 70172 FORMAT (1H ,16X,10HCORRECT: , 04980923 ! 502: 1 47H 2 4 6 8 10 12 14) 04990923 ! 503: WRITE (NUVI,70172) 05000923 ! 504: GO TO 37035 05010923 ! 505: 37033 CONTINUE 05020923 ! 506: IVPASS=IVPASS+1 05030923 ! 507: WRITE (NUVI,80002) IVTNUM 05040923 ! 508: 37035 CONTINUE 05050923 ! 509: CT018* TEST 18 - CARD 19 NULL VALUE USING REPETITION FACTOR 05060923 ! 510: IVTNUM = 18 05070923 ! 511: IVI = 1 05080923 ! 512: AVB = .TRUE. 05090923 ! 513: AVS = 1.0 05100923 ! 514: A4VK = 'TRUE' 05110923 ! 515: READ (IRVI, *) JVI, BVS, IVI, AVB, AVS, A4VK, B4VK, BVB 05120923 ! 516: C***** TO DELETE TEST SEE NOTES FOR TEST 1 05130923 ! 517: IF (JVI .EQ. 5 .AND. BVS .GE. (-2.5 - DVS) .AND. 05140923 ! 518: 1 BVS .LE. (-2.5 + DVS) .AND. IVI .EQ. 1 .AND. AVB .AND. 05150923 ! 519: 2 AVS .GE. (1.0 - DVS) .AND. AVS .LE. (1.0 + DVS) .AND. 05160923 ! 520: 3 A4VK .EQ. 'TRUE' .AND. B4VK .EQ. 'TEST' .AND. .NOT. BVB) 05170923 ! 521: 4 GO TO 37036 05180923 ! 522: IVFAIL=IVFAIL+1 05190923 ! 523: WRITE (NUVI,70180) IVTNUM 05200923 ! 524: 70180 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 05210923 ! 525: 1 28HCOMPLEX IF - SEE SOURCE CODE) 05220923 ! 526: 70181 FORMAT (1H ,16X,10HCOMPUTED: , 05230923 ! 527: 1 I5,2X,F4.1,2X,I5,2X,L1,2X,F4.1,2X,A4,2X, 05240923 ! 528: 2 A4,2X,L1) 05250923 ! 529: WRITE (NUVI,70181) JVI,BVS,IVI,AVB,AVS,A4VK,B4VK,BVB 05260923 ! 530: 70182 FORMAT (1H ,16X,10HCORRECT: , 05270923 ! 531: 1 5H 5,2X,4H-2.5,2X,5H 1,2X,1HT,2X,4H 1.0,2X,4HTRUE,2X, 05280923 ! 532: 2 4HTEST,2X,1HF) 05290923 ! 533: WRITE (NUVI,70182) 05300923 ! 534: GO TO 37038 05310923 ! 535: 37036 CONTINUE 05320923 ! 536: IVPASS=IVPASS+1 05330923 ! 537: WRITE (NUVI,80002) IVTNUM 05340923 ! 538: 37038 CONTINUE 05350923 ! 539: CT019* TEST 19 - CARDS 20-21 TERMINATOR SLASH (/) 05360923 ! 540: IVTNUM = 19 05370923 ! 541: READ(IRVI, *) IVI, JVI, KVI, LVI, MVI 05380923 ! 542: READ(IRVI, *) IVI, JVI, KVI, LVI, MVI 05390923 ! 543: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05400923 ! 544: IF (IVI - 6) 20190,40190,20190 05410923 ! 545: 40190 IF (JVI - 7) 20190,40191,20190 05420923 ! 546: 40191 IF (KVI - 8) 20190,40192,20190 05430923 ! 547: 40192 IF (LVI - 4) 20190,40193,20190 05440923 ! 548: 40193 IF (MVI - 5) 20190,10190,20190 05450923 ! 549: 10190 IVPASS=IVPASS+1 05460923 ! 550: WRITE (NUVI,80002) IVTNUM 05470923 ! 551: GO TO 0191 05480923 ! 552: 20190 IVFAIL=IVFAIL+1 05490923 ! 553: WRITE (NUVI,80008) IVTNUM 05500923 ! 554: 70190 FORMAT (1H ,16X,10HCOMPUTED: ,I5,4(2X,I5)) 05510923 ! 555: WRITE (NUVI,70190) IVI,JVI,KVI,LVI,MVI 05520923 ! 556: 70191 FORMAT (1H ,16X,10HCORRECT: , 05530923 ! 557: 1 5H 6,2X,5H 7,2X,5H 8,2X,5H 4,2X,5H 5) 05540923 ! 558: WRITE (NUVI,70191) 05550923 ! 559: 0191 CONTINUE 05560923 ! 560: CT020* TEST 20 - CARD 22 VERIFY THAT BLANKS ARE NOT 05570923 ! 561: C***** INTERPRETED AS ZEROS 05580923 ! 562: IVTNUM = 20 05590923 ! 563: READ(IRVI, *) IVI, JVI, KVI 05600923 ! 564: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05610923 ! 565: IF (IVI - 12045) 20200,40200,20200 05620923 ! 566: 40200 IF (JVI - 12) 20200,40201,20200 05630923 ! 567: 40201 IF (KVI - 45) 20200,10200,20200 05640923 ! 568: 10200 IVPASS=IVPASS+1 05650923 ! 569: WRITE (NUVI,80002) IVTNUM 05660923 ! 570: GO TO 0201 05670923 ! 571: 20200 IVFAIL=IVFAIL+1 05680923 ! 572: WRITE (NUVI,80008) IVTNUM 05690923 ! 573: 70200 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 05700923 ! 574: WRITE (NUVI,70200) IVI,JVI,KVI 05710923 ! 575: 70201 FORMAT (1H ,16X,10HCORRECT: , 05720923 ! 576: 1 5H12045,2X,5H 12,2X,5H 45) 05730923 ! 577: WRITE (NUVI,70201) 05740923 ! 578: 0201 CONTINUE 05750923 ! 579: CT021* TEST 21 - CARDS 23-24 VERIFY THAT END-OF-RECORD IS 05760923 ! 580: C***** TREATED AS A BLANK WHEN IT 05770923 ! 581: C***** SEPARATES TWO INTEGERS 05780923 ! 582: IVTNUM = 21 05790923 ! 583: READ(IRVI, *) IVI, JVI, KVI 05800923 ! 584: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05810923 ! 585: IF (IVI - 12045) 20210,40210,20210 05820923 ! 586: 40210 IF (JVI - 12) 20210,40211,20210 05830923 ! 587: 40211 IF (KVI - 45) 20210,10210,20210 05840923 ! 588: 10210 IVPASS=IVPASS+1 05850923 ! 589: WRITE (NUVI,80002) IVTNUM 05860923 ! 590: GO TO 0211 05870923 ! 591: 20210 IVFAIL=IVFAIL+1 05880923 ! 592: WRITE (NUVI,80008) IVTNUM 05890923 ! 593: 70210 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 05900923 ! 594: WRITE (NUVI,70210) IVI,JVI,KVI 05910923 ! 595: 70211 FORMAT (1H ,16X,10HCORRECT: , 05920923 ! 596: 1 5H12045,2X,5H 12,2X,5H 45) 05930923 ! 597: WRITE (NUVI,70211) 05940923 ! 598: 0211 CONTINUE 05950923 ! 599: CT022* TEST 22 - CARDS 25-26 VERIFY THAT END-OF-RECORD IS 05960923 ! 600: C***** NOT TREATED AS A BLANK IN A 05970923 ! 601: C***** CHARACTER STRING 05980923 ! 602: IVTNUM = 22 05990923 ! 603: C READ(IRVI, *) A6VK, B6VK 060009TC ! 604: C CVNX06='ABCDEF' 060109TC ! 605: C CVNY06='UVWXYZ' 060209TC ! 606: C IF (A6VK .EQ. 'ABCDEF' .AND. B6VK .EQ. 'UVWXYZ') GO TO 37041 060309TC ! 607: C IVFAIL=IVFAIL+1 060409TC ! 608: C WRITE (NUVI,80008) IVTNUM 060509TC ! 609: C WRITE (NUVI,80020) A6VK,B6VK 060609TC ! 610: C WRITE (NUVI,80022) CVNX06,CVNY06 060709TC ! 611: C GO TO 37043 060809TC ! 612: C7041 CONTINUE 060909TC ! 613: C IVPASS=IVPASS+1 061009TC ! 614: C WRITE (NUVI,80002) IVTNUM 061109TC ! 615: C7043 CONTINUE 061209TC ! 616: 70220 FORMAT (1X,A1) 06120*TI ! 617: C BYPASS RECORDS 25 AND 26 06120*TI ! 618: READ (IRVI,70220) A6VK 06120*TI ! 619: READ (IRVI,70220) B6VK 06120*TI ! 620: 70221 FORMAT (1H ,2X,I3,4X,15HDELETED BY FSTC) 06120*TI ! 621: WRITE (NUVI,70221) IVTNUM 06120*TI ! 622: IVDELE = IVDELE + 1 06120*TI ! 623: CT023* TEST 23 - CARD 27 QUOTES, BLANKS, COMMAS AND SLASHES 06130923 ! 624: C***** EMBEDDED IN CHARACTER STRINGS 06140923 ! 625: IVTNUM = 23 06150923 ! 626: READ(IRVI, *) A21VK 06160923 ! 627: C**** TO DELETE TEST SEE NOTES FOR TEST 1 06170923 ! 628: CVNX21='CAN''T, AND/OR WON''T' 06180923 ! 629: IF (A21VK .EQ. 'CAN''T, AND/OR WON''T') GO TO 37044 06190923 ! 630: IVFAIL=IVFAIL+1 06200923 ! 631: WRITE (NUVI,80008) IVTNUM 06210923 ! 632: WRITE (NUVI,80020) A21VK 06220923 ! 633: WRITE (NUVI,80022) CVNX21 06230923 ! 634: GO TO 0231 06240923 ! 635: 37044 CONTINUE 06250923 ! 636: IVPASS=IVPASS+1 06260923 ! 637: WRITE (NUVI,80002) IVTNUM 06270923 ! 638: 0231 CONTINUE 06280923 ! 639: CT024* TEST 24 - CARD 28 CHARACTER STRINGS THAT ARE READ IN 06290923 ! 640: C***** VARIABLES OF DIFFERENT LENGTHS 06300923 ! 641: IVTNUM = 24 06310923 ! 642: READ(IRVI, *) A15VK, A8VK, A9VK 06320923 ! 643: C**** TO DELETE TEST SEE NOTES FOR TEST 1 06330923 ! 644: IF (A15VK .EQ. '1234567890 ' .AND. 06340923 ! 645: 1 A8VK .EQ. '12345678' .AND. 06350923 ! 646: 2 A9VK .EQ. '123456789') GO TO 37047 06360923 ! 647: IVFAIL=IVFAIL+1 06370923 ! 648: WRITE (NUVI,80008) IVTNUM 06380923 ! 649: 70240 FORMAT (1H ,16X,10HCOMPUTED: ,A15,2X,A8,2X,A9) 06390923 ! 650: WRITE (NUVI,70240) A15VK,A8VK,A9VK 06400923 ! 651: 70241 FORMAT (1H ,16X,10HCORRECT: , 06410923 ! 652: 1 15H1234567890 ,2X,8H12345678,2X,9H123456789) 06420923 ! 653: WRITE (NUVI,70241) 06430923 ! 654: GO TO 37049 06440923 ! 655: 37047 CONTINUE 06450923 ! 656: IVPASS=IVPASS+1 06460923 ! 657: WRITE (NUVI,80002) IVTNUM 06470923 ! 658: 37049 CONTINUE 06480923 ! 659: CT025* TEST 25 - CARD 29 LOGICAL VALUES IN DIFFERENT 06490923 ! 660: C***** REPRESENTATIONS 06500923 ! 661: IVTNUM = 25 06510923 ! 662: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB 06520923 ! 663: C***** TO DELETE CODE SEE NOTES FOR TEST 1 06530923 ! 664: IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND. 06540923 ! 665: 1 .NOT. EVB .AND. .NOT. EVB .AND. GVB .AND. HVB) 06550923 ! 666: 2 GO TO 37050 06560923 ! 667: IVFAIL=IVFAIL+1 06570923 ! 668: WRITE (NUVI,70250) IVTNUM 06580923 ! 669: 70250 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 06590923 ! 670: 1 28HCOMPLEX IF - SEE SOURCE CODE) 06600923 ! 671: 70251 FORMAT (1H ,16X,10HCOMPUTED: ,L1,7(2X,L1)) 06610923 ! 672: WRITE (NUVI,70251) AVB,BVB,CVB,DVB,EVB,FVB,GVB,HVB 06620923 ! 673: 70252 FORMAT (1H ,16X,10HCORRECT: ,22HT F F T F F T T) 06630923 ! 674: WRITE (NUVI,70252) 06640923 ! 675: GO TO 37052 06650923 ! 676: 37050 CONTINUE 06660923 ! 677: IVPASS=IVPASS+1 06670923 ! 678: WRITE (NUVI,80002) IVTNUM 06680923 ! 679: 37052 CONTINUE 06690923 ! 680: CT026* TEST 26 - CARDS 30-31 SLASH TERMINATOR 06700923 ! 681: IVTNUM = 26 06710923 ! 682: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 06720923 ! 683: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 06730923 ! 684: C***** TO DELETE CODE SEE NOTES FOR TEST 1 06740923 ! 685: IF (.NOT. AVB .AND. .NOT. BVB .AND. CVB .AND. 06750923 ! 686: 1 DVB .AND. EVB) GO TO 37053 06760923 ! 687: IVFAIL=IVFAIL+1 06770923 ! 688: WRITE (NUVI,80008) IVTNUM 06780923 ! 689: 70260 FORMAT (1H ,16X,10HCOMPUTED: , L1,4(2X,L1)) 06790923 ! 690: WRITE (NUVI,70260) AVB,BVB,CVB,DVB,EVB 06800923 ! 691: 70261 FORMAT (1H ,16X,10HCORRECT: ,13HF F T T T) 06810923 ! 692: WRITE (NUVI,70261) 06820923 ! 693: GO TO 37055 06830923 ! 694: 37053 CONTINUE 06840923 ! 695: IVPASS=IVPASS+1 06850923 ! 696: WRITE (NUVI,80002) IVTNUM 06860923 ! 697: 37055 CONTINUE 06870923 ! 698: CT027* TEST 27 - CARD 32 SLASH TERMINATING IMPLIED-DO LOOP 06880923 ! 699: IVTNUM = 27 06890923 ! 700: J1I(1) = 1 06900923 ! 701: READ(IRVI,*) (J1I(IVI), IVI=1,3) 06910923 ! 702: C**** TO DELETE CODE SEE NOTES FOR TEST 1 06920923 ! 703: IVCORR=1 06930923 ! 704: IF (J1I(1) - 1) 20270,10270,20270 06940923 ! 705: 10270 IVPASS=IVPASS+1 06950923 ! 706: WRITE (NUVI,80002) IVTNUM 06960923 ! 707: GO TO 0271 06970923 ! 708: 20270 IVFAIL=IVFAIL+1 06980923 ! 709: WRITE (NUVI,80008) IVTNUM 06990923 ! 710: WRITE(NUVI, 80024) J1I(1) 07000923 ! 711: WRITE (NUVI,80026) IVCORR 07010923 ! 712: 0271 CONTINUE 07020923 ! 713: CT028* TEST 28 - CARDS 33-34 SECOND READ SHOULD CAUSE VALUES 07030923 ! 714: C***** TO BE READ FROM SECOND CARD 07040923 ! 715: IVTNUM = 28 07050923 ! 716: READ(IRVI,*) IVI, JVI 07060923 ! 717: READ(IRVI,*) IVI, JVI 07070923 ! 718: C**** TO DELETE TEST SEE NOTES FOR TEST 1 07080923 ! 719: IF (IVI - 5) 20280,40280,20280 07090923 ! 720: 40280 IF (JVI - 6) 20280,10280,20280 07100923 ! 721: 10280 IVPASS=IVPASS+1 07110923 ! 722: WRITE (NUVI,80002) IVTNUM 07120923 ! 723: GO TO 0281 07130923 ! 724: 20280 IVFAIL=IVFAIL+1 07140923 ! 725: WRITE (NUVI,80008) IVTNUM 07150923 ! 726: 70280 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5) 07160923 ! 727: WRITE (NUVI,70280) IVI,JVI 07170923 ! 728: 70281 FORMAT (1H ,16X,10HCORRECT: ,5H 5,2X,5H 6) 07180923 ! 729: WRITE (NUVI,70281) 07190923 ! 730: 0281 CONTINUE 07200923 ! 731: C***** 07210923 ! 732: CBB** ********************** BBCSUM0 **********************************07220923 ! 733: C**** WRITE OUT TEST SUMMARY 07230923 ! 734: C**** 07240923 ! 735: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07250923 ! 736: WRITE (I02, 90004) 07260923 ! 737: WRITE (I02, 90014) 07270923 ! 738: WRITE (I02, 90004) 07280923 ! 739: WRITE (I02, 90020) IVPASS 07290923 ! 740: WRITE (I02, 90022) IVFAIL 07300923 ! 741: WRITE (I02, 90024) IVDELE 07310923 ! 742: WRITE (I02, 90026) IVINSP 07320923 ! 743: WRITE (I02, 90028) IVTOTN, IVTOTL 07330923 ! 744: CBE** ********************** BBCSUM0 **********************************07340923 ! 745: CBB** ********************** BBCFOOT0 **********************************07350923 ! 746: C**** WRITE OUT REPORT FOOTINGS 07360923 ! 747: C**** 07370923 ! 748: WRITE (I02,90016) ZPROG, ZPROG 07380923 ! 749: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07390923 ! 750: WRITE (I02,90019) 07400923 ! 751: CBE** ********************** BBCFOOT0 **********************************07410923 ! 752: CBB** ********************** BBCFMT0A **********************************07420923 ! 753: C**** FORMATS FOR TEST DETAIL LINES 07430923 ! 754: C**** 07440923 ! 755: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07450923 ! 756: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07460923 ! 757: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07470923 ! 758: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07480923 ! 759: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07490923 ! 760: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07500923 ! 761: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07510923 ! 762: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07520923 ! 763: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07530923 ! 764: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07540923 ! 765: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07550923 ! 766: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07560923 ! 767: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07570923 ! 768: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07580923 ! 769: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07590923 ! 770: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07600923 ! 771: 80050 FORMAT (1H ,48X,A31) 07610923 ! 772: CBE** ********************** BBCFMT0A **********************************07620923 ! 773: CBB** ********************** BBCFMT0B **********************************07630923 ! 774: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07640923 ! 775: C**** 07650923 ! 776: 90002 FORMAT (1H1) 07660923 ! 777: 90004 FORMAT (1H ) 07670923 ! 778: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07680923 ! 779: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07690923 ! 780: 90008 FORMAT (1H ,21X,A13,A17) 07700923 ! 781: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07710923 ! 782: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07720923 ! 783: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07730923 ! 784: 1 7X,7HREMARKS,24X) 07740923 ! 785: 90014 FORMAT (1H ,46H----------------------------------------------, 07750923 ! 786: 1 33H---------------------------------) 07760923 ! 787: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07770923 ! 788: C**** 07780923 ! 789: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07790923 ! 790: C**** 07800923 ! 791: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 07810923 ! 792: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 07820923 ! 793: 1 A13) 07830923 ! 794: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 07840923 ! 795: C**** 07850923 ! 796: C**** FORMAT STATEMENTS FOR RUN SUMMARY 07860923 ! 797: C**** 07870923 ! 798: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 07880923 ! 799: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 07890923 ! 800: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 07900923 ! 801: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 07910923 ! 802: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 07920923 ! 803: CBE** ********************** BBCFMT0B **********************************07930923 ! 804: C***** END OF TEST SEGMENT 370 07940923 ! 805: STOP 07950923 ! 806: END 07960923
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.