![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM258.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 FM258.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***********************************************************************00010258 ! 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 00020258 ! 6: C***** FM258 00030258 ! 7: C***** BLKIF1 - (300) 00040258 ! 8: C***** 00050258 ! 9: C***********************************************************************00060258 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070258 ! 11: C***** TEST BLOCK IF STATEMENTS 11.6 - 11.9 00080258 ! 12: C***** SIMPLE TESTS OF IF (E) THEN,ELSE,ELSEIF,ENDIF 00090258 ! 13: C***** 00100258 ! 14: CBB** ********************** BBCCOMNT **********************************00110258 ! 15: C**** 00120258 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130258 ! 17: C**** VERSION 2.0 00140258 ! 18: C**** 00150258 ! 19: C**** 00160258 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170258 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180258 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190258 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200258 ! 24: C**** FALLS CHURCH, VA. 22041 00210258 ! 25: C**** 00220258 ! 26: C**** (703) 756-6153 00230258 ! 27: C**** 00240258 ! 28: CBE** ********************** BBCCOMNT **********************************00250258 ! 29: CBB** ********************** BBCINITA **********************************00260258 ! 30: C**** SPECIFICATION STATEMENTS 00270258 ! 31: C**** 00280258 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290258 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300258 ! 34: CBE** ********************** BBCINITA **********************************00310258 ! 35: CBB** ********************** BBCINITB **********************************00320258 ! 36: C**** INITIALIZE SECTION 00330258 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340258 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350258 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360258 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370258 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380258 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390258 ! 43: DATA REMRKS /' '/ 00400258 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410258 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420258 ! 46: C**** 00430258 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440258 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450258 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460258 ! 50: ZDATE = '07-Nov-85 ' *RP ! 51: ZCOMPL = 'CCI 5.2 ' *RP ! 52: ZPROJ = 'TC-85- -410' *RP ! 53: ZNAME = ' ' *RP ! 54: ZTAPE = ' ' *RP ! 55: ZTAPED = '850703 ' *RP ! 56: C 00530258 ! 57: IVPASS = 0 00540258 ! 58: IVFAIL = 0 00550258 ! 59: IVDELE = 0 00560258 ! 60: IVINSP = 0 00570258 ! 61: IVTOTL = 0 00580258 ! 62: IVTOTN = 0 00590258 ! 63: ICZERO = 0 00600258 ! 64: C 00610258 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620258 ! 66: I01 = 05 00630258 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640258 ! 68: I02 = 06 00650258 ! 69: C 00660258 ! 70: I01 = 5 00670258 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680258 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690258 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700258 ! 74: C 00710258 ! 75: I02 = 6 00720258 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730258 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740258 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750258 ! 79: C 00760258 ! 80: CBE** ********************** BBCINITB **********************************00770258 ! 81: NUVI = I02 00780258 ! 82: ZPROG='FM258' 00790258 ! 83: CBB** ********************** BBCHED0A **********************************00800258 ! 84: C**** 00810258 ! 85: C**** WRITE REPORT TITLE 00820258 ! 86: C**** 00830258 ! 87: WRITE (I02, 90002) 00840258 ! 88: WRITE (I02, 90006) 00850258 ! 89: WRITE (I02, 90007) 00860258 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870258 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880258 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890258 ! 93: CBE** ********************** BBCHED0A **********************************00900258 ! 94: C***** TOTAL NUMBER OF EXPECTED TEST 00910258 ! 95: IVTOTL=8 00920258 ! 96: C***** HEADER FOR SEGMENT 300 00930258 ! 97: WRITE(NUVI,30000) 00940258 ! 98: 30000 FORMAT(/1X,38H BLKIF1 - (300) BLOCK IF - SIMPLE TEST// 00950258 ! 99: 1 26H SUBSET REF. 11.6 - 11.9) 00960258 ! 100: CBB** ********************** BBCHED0B **********************************00970258 ! 101: C**** WRITE DETAIL REPORT HEADERS 00980258 ! 102: C**** 00990258 ! 103: WRITE (I02,90004) 01000258 ! 104: WRITE (I02,90004) 01010258 ! 105: WRITE (I02,90013) 01020258 ! 106: WRITE (I02,90014) 01030258 ! 107: WRITE (I02,90015) IVTOTL 01040258 ! 108: CBE** ********************** BBCHED0B **********************************01050258 ! 109: C***** 01060258 ! 110: WRITE (NUVI,30025) 01070258 ! 111: CT001* TEST 1 IF (E) THEN .*. ELSE .*. ENDIF 01080258 ! 112: IVTNUM = 1 01090258 ! 113: IVINSP=IVINSP+1 01100258 ! 114: WRITE(NUVI,80004) IVTNUM 01110258 ! 115: JVI = 0 01120258 ! 116: 30001 JVI = JVI + 1 01130258 ! 117: IF (JVI .EQ. 2) THEN 01140258 ! 118: KVI = 2 01150258 ! 119: ELSE 01160258 ! 120: KVI = 1 01170258 ! 121: ENDIF 01180258 ! 122: LVI = JVI - KVI 01190258 ! 123: WRITE(NUVI,30018) LVI 01200258 ! 124: GOTO(30001,30002), JVI 01210258 ! 125: 30002 CONTINUE 01220258 ! 126: CT002* TEST 2 IF (E) THEN .*. ENDIF 01230258 ! 127: IVTNUM = 2 01240258 ! 128: IVINSP=IVINSP+1 01250258 ! 129: WRITE(NUVI,80004) IVTNUM 01260258 ! 130: JVI = 0 01270258 ! 131: KVI = 1 01280258 ! 132: 30003 JVI = JVI + 1 01290258 ! 133: IF (JVI .EQ. 2) THEN 01300258 ! 134: KVI = 2 01310258 ! 135: ENDIF 01320258 ! 136: LVI = JVI - KVI 01330258 ! 137: WRITE(NUVI,30018) LVI 01340258 ! 138: GOTO(30003,30004), JVI 01350258 ! 139: 30004 CONTINUE 01360258 ! 140: CT003* TEST 3 IF (E) THEN ... ELSE .*. ENDIF 01370258 ! 141: IVTNUM = 3 01380258 ! 142: IVINSP=IVINSP+1 01390258 ! 143: WRITE(NUVI,80004) IVTNUM 01400258 ! 144: JVI = 0 01410258 ! 145: KVI = 1 01420258 ! 146: 30005 JVI = JVI + 1 01430258 ! 147: IF (JVI .EQ. 1) THEN 01440258 ! 148: ELSE 01450258 ! 149: KVI = 2 01460258 ! 150: ENDIF 01470258 ! 151: LVI = JVI - KVI 01480258 ! 152: WRITE(NUVI,30018) LVI 01490258 ! 153: GOTO(30005,30006), JVI 01500258 ! 154: 30006 CONTINUE 01510258 ! 155: CT004* TEST 4 IF (E) THEN .*. ELSEIF .*. ELSE .*. ENDIF 01520258 ! 156: IVTNUM = 4 01530258 ! 157: IVINSP=IVINSP+1 01540258 ! 158: WRITE(NUVI,80004) IVTNUM 01550258 ! 159: JVI = 0 01560258 ! 160: 30007 JVI = JVI + 1 01570258 ! 161: IF (JVI .EQ. 1) THEN 01580258 ! 162: KVI = 1 01590258 ! 163: ELSEIF (JVI .EQ. 2) THEN 01600258 ! 164: KVI = 2 01610258 ! 165: ELSE 01620258 ! 166: KVI = 3 01630258 ! 167: ENDIF 01640258 ! 168: LVI = JVI - KVI 01650258 ! 169: WRITE(NUVI,30018) LVI 01660258 ! 170: GOTO(30007,30007,30008), JVI 01670258 ! 171: 30008 CONTINUE 01680258 ! 172: CT005* TEST 5 IF (E) THEN .*. ELSEIF .*. ENDIF 01690258 ! 173: IVTNUM = 5 01700258 ! 174: IVINSP=IVINSP+1 01710258 ! 175: WRITE(NUVI,80004) IVTNUM 01720258 ! 176: JVI = 0 01730258 ! 177: KVI = 1 01740258 ! 178: 30009 JVI = JVI + 1 01750258 ! 179: IF (JVI .GT. 2) THEN 01760258 ! 180: KVI = 3 01770258 ! 181: ELSEIF (JVI .EQ. 2) THEN 01780258 ! 182: KVI = 2 01790258 ! 183: ENDIF 01800258 ! 184: LVI = JVI - KVI 01810258 ! 185: WRITE(NUVI,30018) LVI 01820258 ! 186: GOTO(30009,30009,30010), JVI 01830258 ! 187: 30010 CONTINUE 01840258 ! 188: CT006* TEST 6 IF (E) THEN .*. ELSEIF ... ELSE .*. ENDIF 01850258 ! 189: IVTNUM = 6 01860258 ! 190: IVINSP=IVINSP+1 01870258 ! 191: WRITE(NUVI,80004) IVTNUM 01880258 ! 192: JVI = 0 01890258 ! 193: KVI = 1 01900258 ! 194: 30011 JVI = JVI + 1 01910258 ! 195: IF ( JVI .GT. 2) THEN 01920258 ! 196: KVI = 3 01930258 ! 197: ELSEIF (JVI .EQ. 1) THEN 01940258 ! 198: ELSE 01950258 ! 199: KVI = 2 01960258 ! 200: ENDIF 01970258 ! 201: LVI = JVI - KVI 01980258 ! 202: WRITE(NUVI,30018) LVI 01990258 ! 203: GOTO(30011,30011,30012), JVI 02000258 ! 204: 30012 CONTINUE 02010258 ! 205: CT007* TEST 7 IF (E) THEN ... ELSEIF .*. ELSE .*. ENDIF 02020258 ! 206: IVTNUM = 7 02030258 ! 207: IVINSP=IVINSP+1 02040258 ! 208: WRITE(NUVI,80004) IVTNUM 02050258 ! 209: JVI = 0 02060258 ! 210: KVI = 1 02070258 ! 211: 30013 JVI = JVI + 1 02080258 ! 212: IF (JVI .EQ. 1) THEN 02090258 ! 213: ELSEIF (JVI .LT. 3) THEN 02100258 ! 214: KVI = 2 02110258 ! 215: ELSE 02120258 ! 216: KVI = 3 02130258 ! 217: ENDIF 02140258 ! 218: LVI = JVI - KVI 02150258 ! 219: WRITE(NUVI,30018) LVI 02160258 ! 220: GOTO(30013,30013,30014), JVI 02170258 ! 221: 30014 CONTINUE 02180258 ! 222: CT008* TEST 8 IF (E) THEN .*. ELSEIF .*. ELSEIF .*. ENDIF 02190258 ! 223: IVTNUM = 8 02200258 ! 224: IVINSP=IVINSP+1 02210258 ! 225: WRITE(NUVI,80004) IVTNUM 02220258 ! 226: JVI = 0 02230258 ! 227: 30015 JVI = JVI + 1 02240258 ! 228: KVI = 4 02250258 ! 229: IF ( JVI .EQ. 1) THEN 02260258 ! 230: KVI = 1 02270258 ! 231: ELSEIF (JVI .EQ. 2) THEN 02280258 ! 232: KVI = 2 02290258 ! 233: ELSEIF (JVI .LT. 4) THEN 02300258 ! 234: KVI = 3 02310258 ! 235: ENDIF 02320258 ! 236: LVI = JVI - KVI 02330258 ! 237: WRITE(NUVI,30018) LVI 02340258 ! 238: GOTO(30015,30015,30015,30016), JVI 02350258 ! 239: C***** 02360258 ! 240: 30016 CONTINUE 02370258 ! 241: C***** 02380258 ! 242: CBB** ********************** BBCSUM0 **********************************02390258 ! 243: C**** WRITE OUT TEST SUMMARY 02400258 ! 244: C**** 02410258 ! 245: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02420258 ! 246: WRITE (I02, 90004) 02430258 ! 247: WRITE (I02, 90014) 02440258 ! 248: WRITE (I02, 90004) 02450258 ! 249: WRITE (I02, 90020) IVPASS 02460258 ! 250: WRITE (I02, 90022) IVFAIL 02470258 ! 251: WRITE (I02, 90024) IVDELE 02480258 ! 252: WRITE (I02, 90026) IVINSP 02490258 ! 253: WRITE (I02, 90028) IVTOTN, IVTOTL 02500258 ! 254: CBE** ********************** BBCSUM0 **********************************02510258 ! 255: CBB** ********************** BBCFOOT0 **********************************02520258 ! 256: C**** WRITE OUT REPORT FOOTINGS 02530258 ! 257: C**** 02540258 ! 258: WRITE (I02,90016) ZPROG, ZPROG 02550258 ! 259: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02560258 ! 260: WRITE (I02,90019) 02570258 ! 261: CBE** ********************** BBCFOOT0 **********************************02580258 ! 262: CBB** ********************** BBCFMT0A **********************************02590258 ! 263: C**** FORMATS FOR TEST DETAIL LINES 02600258 ! 264: C**** 02610258 ! 265: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02620258 ! 266: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02630258 ! 267: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02640258 ! 268: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02650258 ! 269: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02660258 ! 270: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02670258 ! 271: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02680258 ! 272: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02690258 ! 273: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02700258 ! 274: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02710258 ! 275: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02720258 ! 276: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02730258 ! 277: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02740258 ! 278: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02750258 ! 279: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02760258 ! 280: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02770258 ! 281: 80050 FORMAT (1H ,48X,A31) 02780258 ! 282: CBE** ********************** BBCFMT0A **********************************02790258 ! 283: CBB** ********************** BBCFMT0B **********************************02800258 ! 284: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02810258 ! 285: C**** 02820258 ! 286: 90002 FORMAT (1H1) 02830258 ! 287: 90004 FORMAT (1H ) 02840258 ! 288: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02850258 ! 289: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02860258 ! 290: 90008 FORMAT (1H ,21X,A13,A17) 02870258 ! 291: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02880258 ! 292: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02890258 ! 293: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02900258 ! 294: 1 7X,7HREMARKS,24X) 02910258 ! 295: 90014 FORMAT (1H ,46H----------------------------------------------, 02920258 ! 296: 1 33H---------------------------------) 02930258 ! 297: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02940258 ! 298: C**** 02950258 ! 299: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02960258 ! 300: C**** 02970258 ! 301: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02980258 ! 302: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02990258 ! 303: 1 A13) 03000258 ! 304: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03010258 ! 305: C**** 03020258 ! 306: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03030258 ! 307: C**** 03040258 ! 308: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03050258 ! 309: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03060258 ! 310: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03070258 ! 311: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03080258 ! 312: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03090258 ! 313: CBE** ********************** BBCFMT0B **********************************03100258 ! 314: 30026 FORMAT (1H1, 26X,I1) 03110258 ! 315: 30018 FORMAT(1H ,26X,I10) 03120258 ! 316: 30025 FORMAT(/49X,30HTESTS 1-3 (2 COMPUTED RESULTS), 03130258 ! 317: 1 /49X,30HTESTS 4-7 (3 COMPUTED RESULTS), 03140258 ! 318: 2 /49X,30HTEST 8 (4 COMPUTED RESULTS), 03150258 ! 319: 3 /49X,26HALL ANSWERS SHOULD BE ZERO) 03160258 ! 320: C***** END OF TEST SEGMENT 300 03170258 ! 321: STOP 03180258 ! 322: END 03190258
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.