![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM405.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 FM405.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***********************************************************************00010405 ! 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 00020405 ! 6: C***** FM405 00030405 ! 7: C***** INTER1 - (390) 00040405 ! 8: C***** 00050405 ! 9: C***********************************************************************00060405 ! 10: C***** TESTING OF INTERNAL FILES - SUBSET REF00070405 ! 11: C***** USING READ 12.2.5 00080405 ! 12: C***** 00090405 ! 13: CBB** ********************** BBCCOMNT **********************************00100405 ! 14: C**** 00110405 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120405 ! 16: C**** VERSION 2.0 00130405 ! 17: C**** 00140405 ! 18: C**** 00150405 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160405 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170405 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180405 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190405 ! 23: C**** FALLS CHURCH, VA. 22041 00200405 ! 24: C**** 00210405 ! 25: C**** (703) 756-6153 00220405 ! 26: C**** 00230405 ! 27: CBE** ********************** BBCCOMNT **********************************00240405 ! 28: C***** 00250405 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 390 00260405 ! 30: C***** 00270405 ! 31: LOGICAL AVB, BVB, CVB 00280405 ! 32: CHARACTER A1VK*1, A4VK*4, B1VK*1, B4VK*4, A38VK*38, B381K(4)*38 00290405 ! 33: CHARACTER A5VK*5, A8VK*8, B5VK*5, B8VK*8 00300405 ! 34: CBB** ********************** BBCINITA **********************************00310405 ! 35: C**** SPECIFICATION STATEMENTS 00320405 ! 36: C**** 00330405 ! 37: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00340405 ! 38: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00350405 ! 39: CBE** ********************** BBCINITA **********************************00360405 ! 40: CBB** ********************** BBCINITB **********************************00370405 ! 41: C**** INITIALIZE SECTION 00380405 ! 42: DATA ZVERS, ZVERSD, ZDATE 00390405 ! 43: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00400405 ! 44: DATA ZCOMPL, ZNAME, ZTAPE 00410405 ! 45: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00420405 ! 46: DATA ZPROJ, ZTAPED, ZPROG 00430405 ! 47: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00440405 ! 48: DATA REMRKS /' '/ 00450405 ! 49: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460405 ! 50: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00470405 ! 51: C**** 00480405 ! 52: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490405 ! 53: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500405 ! 54: CZ03 ZPROG = 'PROGRAM NAME' 00510405 ! 55: ZDATE = '07-Nov-85 ' *RP ! 56: ZCOMPL = 'CCI 5.2 ' *RP ! 57: ZPROJ = 'TC-85- -410' *RP ! 58: ZNAME = ' ' *RP ! 59: ZTAPE = ' ' *RP ! 60: ZTAPED = '850703 ' *RP ! 61: C 00580405 ! 62: IVPASS = 0 00590405 ! 63: IVFAIL = 0 00600405 ! 64: IVDELE = 0 00610405 ! 65: IVINSP = 0 00620405 ! 66: IVTOTL = 0 00630405 ! 67: IVTOTN = 0 00640405 ! 68: ICZERO = 0 00650405 ! 69: C 00660405 ! 70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670405 ! 71: I01 = 05 00680405 ! 72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690405 ! 73: I02 = 06 00700405 ! 74: C 00710405 ! 75: I01 = 5 00720405 ! 76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730405 ! 77: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00740405 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00750405 ! 79: C 00760405 ! 80: I02 = 6 00770405 ! 81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00780405 ! 82: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00790405 ! 83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00800405 ! 84: C 00810405 ! 85: CBE** ********************** BBCINITB **********************************00820405 ! 86: C***** 00830405 ! 87: EVS = 0.001 00840405 ! 88: C***** 00850405 ! 89: NUVI = I02 00860405 ! 90: IVTOTL=15 00870405 ! 91: ZPROG='FM405' 00880405 ! 92: CBB** ********************** BBCHED0A **********************************00890405 ! 93: C**** 00900405 ! 94: C**** WRITE REPORT TITLE 00910405 ! 95: C**** 00920405 ! 96: WRITE (I02, 90002) 00930405 ! 97: WRITE (I02, 90006) 00940405 ! 98: WRITE (I02, 90007) 00950405 ! 99: WRITE (I02, 90008) ZVERS, ZVERSD 00960405 ! 100: WRITE (I02, 90009) ZPROG, ZPROG 00970405 ! 101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980405 ! 102: CBE** ********************** BBCHED0A **********************************00990405 ! 103: C***** 01000405 ! 104: A38VK = '2.1 TEST 3 23.45E2 .TRUE. F ' 01010405 ! 105: B381K(1) = ' 23 23.345 T ENDS ' 01020405 ! 106: B381K(2) = ' 23.456 F 98 YOURS PROGRAMS ' 01030405 ! 107: B381K(3) = ' 13.1234 13.1234E0 1312.34 ' 01040405 ! 108: B381K(4) = ' 5.2345 56 5.2345 T TRUE 5.2345' 01050405 ! 109: C***** 01060405 ! 110: C***** HEADER FOR SEGMENT 390 01070405 ! 111: C***** 01080405 ! 112: WRITE(NUVI,39000) 01090405 ! 113: 39000 FORMAT(/2X,44H INTER1 - (390) INTERNAL FILES -- USING READ 01100405 ! 114: 1 //21H SUBSET REF. - 12.2.5) 01110405 ! 115: CBB** ********************** BBCHED0B **********************************01120405 ! 116: C**** WRITE DETAIL REPORT HEADERS 01130405 ! 117: C**** 01140405 ! 118: WRITE (I02,90004) 01150405 ! 119: WRITE (I02,90004) 01160405 ! 120: WRITE (I02,90013) 01170405 ! 121: WRITE (I02,90014) 01180405 ! 122: WRITE (I02,90015) IVTOTL 01190405 ! 123: CBE** ********************** BBCHED0B **********************************01200405 ! 124: C****** 01210405 ! 125: C************************************************************* 01220405 ! 126: CT001* TEST 1 CHARACTER VARIABLE, INTEGER 01230405 ! 127: IVTNUM=1 01240405 ! 128: READ(A38VK,39001) IVI 01250405 ! 129: 39001 FORMAT(8X,I2) 01260405 ! 130: KVI = 3 01270405 ! 131: IVCOMP=0 01280405 ! 132: IF (IVI .EQ. KVI) IVCOMP=1 01290405 ! 133: IF (IVCOMP-1) 20010,10010,20010 01300405 ! 134: 10010 IVPASS=IVPASS + 1 01310405 ! 135: WRITE (NUVI,80002) IVTNUM 01320405 ! 136: GO TO 0011 01330405 ! 137: 20010 IVFAIL=IVFAIL+1 01340405 ! 138: WRITE (NUVI,80008) IVTNUM 01350405 ! 139: WRITE (NUVI,80024) IVI 01360405 ! 140: WRITE (NUVI,80026) KVI 01370405 ! 141: 0011 CONTINUE 01380405 ! 142: C***** 01390405 ! 143: CT002* TEST 2 REAL, FW.D 01400405 ! 144: IVTNUM=2 01410405 ! 145: READ(A38VK,39004) AVS 01420405 ! 146: 39004 FORMAT(F3.1) 01430405 ! 147: BVS = 2.1 01440405 ! 148: IVCOMP=0 01450405 ! 149: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS) IVCOMP=1 01460405 ! 150: IF (IVCOMP-1) 20020,10020,20020 01470405 ! 151: 10020 IVPASS=IVPASS + 1 01480405 ! 152: WRITE(NUVI,80002)IVTNUM 01490405 ! 153: GO TO 0021 01500405 ! 154: 20020 IVFAIL=IVFAIL+1 01510405 ! 155: WRITE(NUVI,80008) IVTNUM 01520405 ! 156: WRITE (NUVI,80028) AVS 01530405 ! 157: WRITE (NUVI,80030) BVS 01540405 ! 158: 0021 CONTINUE 01550405 ! 159: CT003* TEST 3 REAL, EW.D 01560405 ! 160: IVTNUM=3 01570405 ! 161: READ(A38VK,39006) AVS 01580405 ! 162: 39006 FORMAT(11X,E7.2) 01590405 ! 163: BVS = 23.45E2 01600405 ! 164: IVCOMP=0 01610405 ! 165: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS) IVCOMP=1 01620405 ! 166: IF (IVCOMP-1) 20030,10030,20030 01630405 ! 167: 10030 IVPASS=IVPASS + 1 01640405 ! 168: WRITE(NUVI,80002)IVTNUM 01650405 ! 169: GO TO 0031 01660405 ! 170: 20030 IVFAIL=IVFAIL + 1 01670405 ! 171: WRITE(NUVI,80008)IVTNUM 01680405 ! 172: WRITE (NUVI,80028) AVS 01690405 ! 173: WRITE (NUVI,80030) BVS 01700405 ! 174: 0031 CONTINUE 01710405 ! 175: CT004* TEST 4 SAME REAL, EW.DEN 01720405 ! 176: IVTNUM=4 01730405 ! 177: IVCOMP=0 01740405 ! 178: READ(A38VK,39008) CVS 01750405 ! 179: 39008 FORMAT(10X,E8.2E2) 01760405 ! 180: IF (CVS .LT. BVS + EVS .AND. CVS .GT. BVS - EVS) IVCOMP=1 01770405 ! 181: IF (IVCOMP-1) 20040,10040,20040 01780405 ! 182: 10040 IVPASS=IVPASS+1 01790405 ! 183: WRITE(NUVI,80002) IVTNUM 01800405 ! 184: GO TO 0041 01810405 ! 185: 20040 IVFAIL=IVFAIL + 1 01820405 ! 186: WRITE(NUVI,80008)IVTNUM 01830405 ! 187: WRITE (NUVI,80028) CVS 01840405 ! 188: WRITE (NUVI,80030) BVS 01850405 ! 189: 0041 CONTINUE 01860405 ! 190: CT005* TEST 5 LOGICAL, WITH PERIODS 01870405 ! 191: IVTNUM=5 01880405 ! 192: READ(A38VK,39010) AVB 01890405 ! 193: 39010 FORMAT(19X,L6) 01900405 ! 194: IVCOMP=0 01910405 ! 195: IF (AVB) IVCOMP=1 01920405 ! 196: IF (IVCOMP-1) 20050,10050,20050 01930405 ! 197: 10050 IVPASS=IVPASS+1 01940405 ! 198: WRITE (NUVI,80002) IVTNUM 01950405 ! 199: GO TO 0051 01960405 ! 200: 20050 IVFAIL=IVFAIL + 1 01970405 ! 201: WRITE (NUVI,80008) IVTNUM 01980405 ! 202: 70050 FORMAT (1H ,16X,10HCOMPUTED: ,L1, 01990405 ! 203: 1 /17X,10HCORRECT: ,1HT) 02000405 ! 204: WRITE (NUVI,70050) AVB 02010405 ! 205: 0051 CONTINUE 02020405 ! 206: CT006* TEST 6 LOGICAL, WITHOUT PERIODS 02030405 ! 207: IVTNUM=6 02040405 ! 208: READ(A38VK,39012) CVB 02050405 ! 209: 39012 FORMAT(25X,L3) 02060405 ! 210: IVCOMP=0 02070405 ! 211: IF (.NOT. CVB) IVCOMP=1 02080405 ! 212: IF (IVCOMP-1) 20060,10060,20060 02090405 ! 213: 10060 IVPASS=IVPASS+1 02100405 ! 214: WRITE (NUVI,80002) IVTNUM 02110405 ! 215: GO TO 0061 02120405 ! 216: 20060 IVFAIL=IVFAIL+1 02130405 ! 217: WRITE (NUVI,80008) IVTNUM 02140405 ! 218: 70060 FORMAT (1H ,16X,10HCOMPUTED: ,L1) 02150405 ! 219: WRITE (NUVI,70060) CVB 02160405 ! 220: 70061 FORMAT (1H ,16X,10HCORRECT: ,1HF) 02170405 ! 221: WRITE (NUVI,70061) 02180405 ! 222: 0061 CONTINUE 02190405 ! 223: CT007* TEST 7 CHARACTER, A 02200405 ! 224: IVTNUM=7 02210405 ! 225: READ(A38VK,39014) A1VK 02220405 ! 226: 39014 FORMAT(9X,A1) 02230405 ! 227: B1VK = '3' 02240405 ! 228: IVCOMP=0 02250405 ! 229: IF (A1VK .EQ. B1VK) IVCOMP=1 02260405 ! 230: IF (IVCOMP-1) 20070,10070,20070 02270405 ! 231: 10070 IVPASS=IVPASS+1 02280405 ! 232: WRITE (NUVI,80002) IVTNUM 02290405 ! 233: GO TO 0071 02300405 ! 234: 20070 IVFAIL=IVFAIL+1 02310405 ! 235: WRITE (NUVI,80008) IVTNUM 02320405 ! 236: WRITE (NUVI,80020) A1VK 02330405 ! 237: WRITE (NUVI,80022) B1VK 02340405 ! 238: 0071 CONTINUE 02350405 ! 239: CT008* TEST 8 CHARACTER, AW 02360405 ! 240: IVTNUM=8 02370405 ! 241: READ(A38VK,39016) A4VK 02380405 ! 242: 39016 FORMAT(4X,A4) 02390405 ! 243: B4VK = 'TEST' 02400405 ! 244: IVCOMP=0 02410405 ! 245: IF (A4VK .EQ. B4VK) IVCOMP=1 02420405 ! 246: IF (IVCOMP-1) 20080,10080,20080 02430405 ! 247: 10080 IVPASS=IVPASS+1 02440405 ! 248: WRITE (NUVI,80002) IVTNUM 02450405 ! 249: GO TO 0081 02460405 ! 250: 20080 IVFAIL=IVFAIL + 1 02470405 ! 251: WRITE (NUVI,80008) IVTNUM 02480405 ! 252: WRITE (NUVI,80020) A4VK 02490405 ! 253: WRITE (NUVI,80022) B4VK 02500405 ! 254: 0081 CONTINUE 02510405 ! 255: CT009* TEST 9 CHARACTER, EXTRA BLANKS 02520405 ! 256: IVTNUM = 9 02530405 ! 257: READ(A38VK,39018) A4VK 02540405 ! 258: 39018 FORMAT(11X,A7) 02550405 ! 259: B4VK = '45E2' 02560405 ! 260: IVCOMP=0 02570405 ! 261: IF (A4VK .EQ. B4VK) IVCOMP=1 02580405 ! 262: IF (IVCOMP-1) 20090,10090,20090 02590405 ! 263: 10090 IVPASS=IVPASS+1 02600405 ! 264: WRITE (NUVI,80002) IVTNUM 02610405 ! 265: GO TO 0091 02620405 ! 266: 20090 IVFAIL=IVFAIL+1 02630405 ! 267: WRITE (NUVI,80008) IVTNUM 02640405 ! 268: WRITE (NUVI,80020) A4VK 02650405 ! 269: WRITE (NUVI,80022) B4VK 02660405 ! 270: 0091 CONTINUE 02670405 ! 271: CT010* TEST 10 CHARACTER, NO PADDING 02680405 ! 272: IVTNUM = 10 02690405 ! 273: READ(A38VK,39020) A4VK 02700405 ! 274: 39020 FORMAT(A3) 02710405 ! 275: IVCOMP=0 02720405 ! 276: B4VK = '2.1 ' 02730405 ! 277: IF (A4VK .EQ. B4VK) IVCOMP=1 02740405 ! 278: IF (IVCOMP-1) 20100,10100,20100 02750405 ! 279: 10100 IVPASS=IVPASS+1 02760405 ! 280: WRITE (NUVI,80002) IVTNUM 02770405 ! 281: GO TO 0101 02780405 ! 282: 20100 IVFAIL=IVFAIL + 1 02790405 ! 283: WRITE (NUVI,80008) IVTNUM 02800405 ! 284: WRITE (NUVI,80020) A4VK 02810405 ! 285: WRITE (NUVI,80022) B4VK 02820405 ! 286: 0101 CONTINUE 02830405 ! 287: CT011* TEST 11 CHECK TO SEE IF SECOND VARIABLE 02840405 ! 288: C***** START READING JUST AFTER FIRST VARIABLE 02850405 ! 289: IVTNUM = 11 02860405 ! 290: READ(A38VK,39022) A4VK, A1VK 02870405 ! 291: 39022 FORMAT(1X,A,A) 02880405 ! 292: B4VK = '.1 T' 02890405 ! 293: B1VK = 'E' 02900405 ! 294: IVCOMP=0 02910405 ! 295: IF (A4VK .EQ. B4VK .AND. A1VK .EQ. B1VK) IVCOMP=1 02920405 ! 296: IF (IVCOMP-1) 20110,10110,20110 02930405 ! 297: 10110 IVPASS=IVPASS+1 02940405 ! 298: WRITE (NUVI,80002) IVTNUM 02950405 ! 299: GO TO 0111 02960405 ! 300: 20110 IVFAIL=IVFAIL + 1 02970405 ! 301: WRITE (NUVI,80008) IVTNUM 02980405 ! 302: WRITE (NUVI,80020) A4VK,A1VK 02990405 ! 303: WRITE (NUVI,80022) B4VK,B1VK 03000405 ! 304: 0111 CONTINUE 03010405 ! 305: CT012* TEST 12 MIXED TYPES, ARRAY ELEMENT 03020405 ! 306: IVTNUM = 12 03030405 ! 307: READ(B381K(1),39024) IVI, AVS, AVB, A4VK 03040405 ! 308: 39024 FORMAT(I5,1X,F8.3,1X,L5,1X,A4) 03050405 ! 309: KVI = 23 03060405 ! 310: BVS = 23.345 03070405 ! 311: B4VK = 'ENDS' 03080405 ! 312: IF (IVI .EQ. KVI .AND. 03090405 ! 313: 1 AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS .AND. 03100405 ! 314: 2 AVB .AND. 03110405 ! 315: 3 A4VK .EQ. B4VK) GOTO 39026 03120405 ! 316: IVFAIL=IVFAIL + 1 03130405 ! 317: 70120 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03140405 ! 318: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03150405 ! 319: WRITE(NUVI,70120)IVTNUM 03160405 ! 320: 70121 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,F10.5,2X,L1,2X,A4) 03170405 ! 321: WRITE (NUVI,70121) IVI,AVS,AVB,A4VK 03180405 ! 322: 70122 FORMAT (1H ,16X,10HCORRECT: , 03190405 ! 323: 1 5H 23,2X,10H 23.34500,2X,1HT,2X,4HENDS) 03200405 ! 324: WRITE (NUVI,70122) 03210405 ! 325: GOTO 39027 03220405 ! 326: 39026 IVPASS=IVPASS+1 03230405 ! 327: WRITE(NUVI,80002) IVTNUM 03240405 ! 328: 39027 CONTINUE 03250405 ! 329: CT013* TEST 13 MIXED TYPES, ARRAY ELEMENT 03260405 ! 330: C***** WITH RUN TIME EXPRESSION AS SUBSCRIPT03270405 ! 331: IVTNUM = 13 03280405 ! 332: KVI = 1 03290405 ! 333: READ(B381K(KVI*2),39028) AVS, AVB, IVI, A5VK, A8VK 03300405 ! 334: 39028 FORMAT(F7.3,1X,L5,1X,I5,1X,A5,1X,A8) 03310405 ! 335: BVS = 23.456 03320405 ! 336: KVI = 98 03330405 ! 337: B5VK = 'YOURS' 03340405 ! 338: B8VK = 'PROGRAMS' 03350405 ! 339: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS .AND. 03360405 ! 340: 1 .NOT. AVB .AND. 03370405 ! 341: 2 IVI .EQ. KVI .AND. 03380405 ! 342: 3 A5VK .EQ. B5VK .AND. 03390405 ! 343: 4 A8VK .EQ. B8VK) GOTO 39030 03400405 ! 344: IVFAIL=IVFAIL+1 03410405 ! 345: 70130 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03420405 ! 346: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03430405 ! 347: WRITE (NUVI,70130) IVTNUM 03440405 ! 348: 70131 FORMAT (1H ,16X,10HCOMPUTED: , 03450405 ! 349: 1 F7.3,2X,L1,2X,I5,2X,A5,2X,A8) 03460405 ! 350: WRITE (NUVI,70131) AVS,AVB,IVI,A5VK,A8VK 03470405 ! 351: 70132 FORMAT (1H ,16X,10HCORRECT: , 03480405 ! 352: 1 7H 23.456,2X,1HF,2X,5H 98,2X,5HYOURS,2X,8HPROGRAMS) 03490405 ! 353: WRITE (NUVI,70132) 03500405 ! 354: GOTO 39031 03510405 ! 355: 39030 IVPASS=IVPASS + 1 03520405 ! 356: WRITE(NUVI,80002) IVTNUM 03530405 ! 357: 39031 CONTINUE 03540405 ! 358: CT014* TEST 14 MIXED TYPES, ALSO BN AND BZ 03550405 ! 359: C***** 03560405 ! 360: IVTNUM = 14 03570405 ! 361: READ(B381K(4),39032) AVS, IVI, BVS, AVB, A4VK, CVS 03580405 ! 362: 39032 FORMAT(F9.4,1X,I4,1X,BN,F9.4,1X,L1,1X,A4,1X,BZ,F6.4) 03590405 ! 363: DVS = 5.2345 03600405 ! 364: KVI = 56 03610405 ! 365: BVB = .TRUE. 03620405 ! 366: B4VK = 'TRUE' 03630405 ! 367: IF (AVS .LT. DVS + EVS .AND. AVS .GT. DVS - EVS .AND. 03640405 ! 368: 1 IVI .EQ. KVI .AND. 03650405 ! 369: 2 BVS .LT. DVS + EVS .AND. BVS .GT. DVS - EVS .AND. 03660405 ! 370: 3 AVB .AND. 03670405 ! 371: 4 A4VK .EQ. B4VK .AND. 03680405 ! 372: 5 CVS .LT. DVS + EVS .AND. CVS .GT. DVS - EVS) GOTO 39034 03690405 ! 373: IVFAIL=IVFAIL + 1 03700405 ! 374: 70140 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03710405 ! 375: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03720405 ! 376: WRITE(NUVI,70140) IVTNUM 03730405 ! 377: 70141 FORMAT (1H ,16X,10HCOMPUTED: , 03740405 ! 378: 1 F9.4,2X,I4,2X,F9.4,2X,L1,2X,A4,2X,F9.4) 03750405 ! 379: WRITE (NUVI,70141) AVS,IVI,BVS,AVB,A4VK,CVS 03760405 ! 380: 70142 FORMAT (1H ,16X,10HCORRECT: , 03770405 ! 381: 2 9H 5.2345,2X,4H 56,2X,9H 5.2345,2X,1HT,2X,4HTRUE, 03780405 ! 382: 3 2X,9H 5.2345) 03790405 ! 383: WRITE (NUVI,70142) 03800405 ! 384: GOTO 39035 03810405 ! 385: 39034 IVPASS=IVPASS+1 03820405 ! 386: WRITE(NUVI,80002) IVTNUM 03830405 ! 387: 39035 CONTINUE 03840405 ! 388: CT015* TEST 15 REAL VARIABLES WITH SCALING FACTOR 03850405 ! 389: IVTNUM = 15 03860405 ! 390: READ(B381K(3),39036) AVS, BVS, CVS 03870405 ! 391: 39036 FORMAT(F9.5, 1X, E9.3, 1X, 2PF7.4) 03880405 ! 392: DVS = 13.1234 03890405 ! 393: IF (AVS .LT. DVS + EVS .AND. AVS .GT. DVS - EVS .AND. 03900405 ! 394: 1 BVS .LT. DVS + EVS .AND. BVS .GT. DVS - EVS .AND. 03910405 ! 395: 2 CVS .LT. DVS + EVS .AND. CVS .GT. DVS - EVS) GOTO 39038 03920405 ! 396: IVFAIL=IVFAIL + 1 03930405 ! 397: 70150 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HREAL DATA TYPES,16X, 03940405 ! 398: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03950405 ! 399: WRITE(NUVI,70150) IVTNUM 03960405 ! 400: 70151 FORMAT (1H ,16X,10HCOMPUTED: ,F9.4,2X,F9.3,2X,F7.4) 03970405 ! 401: WRITE (NUVI,70151) AVS,BVS,CVS 03980405 ! 402: 70152 FORMAT (1H ,16X,10HCORRECT: , 03990405 ! 403: 1 9H 13.1234,2X,9H 13.123,2X,7H13.1234) 04000405 ! 404: WRITE (NUVI,70152) 04010405 ! 405: GOTO 39039 04020405 ! 406: 39038 IVPASS=IVPASS+1 04030405 ! 407: WRITE(NUVI,80002) IVTNUM 04040405 ! 408: 39039 CONTINUE 04050405 ! 409: C***** 04060405 ! 410: C***** END OF TEST SEGMENT 390 04070405 ! 411: CBB** ********************** BBCSUM0 **********************************04080405 ! 412: C**** WRITE OUT TEST SUMMARY 04090405 ! 413: C**** 04100405 ! 414: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04110405 ! 415: WRITE (I02, 90004) 04120405 ! 416: WRITE (I02, 90014) 04130405 ! 417: WRITE (I02, 90004) 04140405 ! 418: WRITE (I02, 90020) IVPASS 04150405 ! 419: WRITE (I02, 90022) IVFAIL 04160405 ! 420: WRITE (I02, 90024) IVDELE 04170405 ! 421: WRITE (I02, 90026) IVINSP 04180405 ! 422: WRITE (I02, 90028) IVTOTN, IVTOTL 04190405 ! 423: CBE** ********************** BBCSUM0 **********************************04200405 ! 424: CBB** ********************** BBCFOOT0 **********************************04210405 ! 425: C**** WRITE OUT REPORT FOOTINGS 04220405 ! 426: C**** 04230405 ! 427: WRITE (I02,90016) ZPROG, ZPROG 04240405 ! 428: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04250405 ! 429: WRITE (I02,90019) 04260405 ! 430: CBE** ********************** BBCFOOT0 **********************************04270405 ! 431: CBB** ********************** BBCFMT0A **********************************04280405 ! 432: C**** FORMATS FOR TEST DETAIL LINES 04290405 ! 433: C**** 04300405 ! 434: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04310405 ! 435: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04320405 ! 436: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04330405 ! 437: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04340405 ! 438: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04350405 ! 439: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04360405 ! 440: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04370405 ! 441: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04380405 ! 442: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04390405 ! 443: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04400405 ! 444: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04410405 ! 445: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04420405 ! 446: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04430405 ! 447: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04440405 ! 448: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04450405 ! 449: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04460405 ! 450: 80050 FORMAT (1H ,48X,A31) 04470405 ! 451: CBE** ********************** BBCFMT0A **********************************04480405 ! 452: CBB** ********************** BBCFMT0B **********************************04490405 ! 453: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04500405 ! 454: C**** 04510405 ! 455: 90002 FORMAT (1H1) 04520405 ! 456: 90004 FORMAT (1H ) 04530405 ! 457: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04540405 ! 458: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04550405 ! 459: 90008 FORMAT (1H ,21X,A13,A17) 04560405 ! 460: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04570405 ! 461: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04580405 ! 462: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04590405 ! 463: 1 7X,7HREMARKS,24X) 04600405 ! 464: 90014 FORMAT (1H ,46H----------------------------------------------, 04610405 ! 465: 1 33H---------------------------------) 04620405 ! 466: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04630405 ! 467: C**** 04640405 ! 468: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04650405 ! 469: C**** 04660405 ! 470: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04670405 ! 471: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04680405 ! 472: 1 A13) 04690405 ! 473: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04700405 ! 474: C**** 04710405 ! 475: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04720405 ! 476: C**** 04730405 ! 477: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04740405 ! 478: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04750405 ! 479: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04760405 ! 480: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04770405 ! 481: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04780405 ! 482: CBE** ********************** BBCFMT0B **********************************04790405 ! 483: STOP 04800405 ! 484: END 04810405
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.