![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM260.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 FM260.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***********************************************************************00010260 ! 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 00020260 ! 6: C***** FM260 00030260 ! 7: C***** BLKIF3 - (302) 00040260 ! 8: C***** 00050260 ! 9: C***********************************************************************00060260 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070260 ! 11: C***** TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080260 ! 12: C***** WITH DO, ARITHMETIC IF, LOGICAL IF, 11.6 - 11.1000090260 ! 13: C***** COMPUTED GOTO, ASSIGN GOTO 00100260 ! 14: C***** 00110260 ! 15: CBB** ********************** BBCCOMNT **********************************00120260 ! 16: C**** 00130260 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140260 ! 18: C**** VERSION 2.0 00150260 ! 19: C**** 00160260 ! 20: C**** 00170260 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180260 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190260 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200260 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210260 ! 25: C**** FALLS CHURCH, VA. 22041 00220260 ! 26: C**** 00230260 ! 27: C**** (703) 756-6153 00240260 ! 28: C**** 00250260 ! 29: CBE** ********************** BBCCOMNT **********************************00260260 ! 30: CBB** ********************** BBCINITA **********************************00270260 ! 31: C**** SPECIFICATION STATEMENTS 00280260 ! 32: C**** 00290260 ! 33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300260 ! 34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310260 ! 35: CBE** ********************** BBCINITA **********************************00320260 ! 36: CBB** ********************** BBCINITB **********************************00330260 ! 37: C**** INITIALIZE SECTION 00340260 ! 38: DATA ZVERS, ZVERSD, ZDATE 00350260 ! 39: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00360260 ! 40: DATA ZCOMPL, ZNAME, ZTAPE 00370260 ! 41: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00380260 ! 42: DATA ZPROJ, ZTAPED, ZPROG 00390260 ! 43: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00400260 ! 44: DATA REMRKS /' '/ 00410260 ! 45: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420260 ! 46: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00430260 ! 47: C**** 00440260 ! 48: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450260 ! 49: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460260 ! 50: CZ03 ZPROG = 'PROGRAM NAME' 00470260 ! 51: ZDATE = '07-Nov-85 ' *RP ! 52: ZCOMPL = 'CCI 5.2 ' *RP ! 53: ZPROJ = 'TC-85- -410' *RP ! 54: ZNAME = ' ' *RP ! 55: ZTAPE = ' ' *RP ! 56: ZTAPED = '850703 ' *RP ! 57: C 00540260 ! 58: IVPASS = 0 00550260 ! 59: IVFAIL = 0 00560260 ! 60: IVDELE = 0 00570260 ! 61: IVINSP = 0 00580260 ! 62: IVTOTL = 0 00590260 ! 63: IVTOTN = 0 00600260 ! 64: ICZERO = 0 00610260 ! 65: C 00620260 ! 66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630260 ! 67: I01 = 05 00640260 ! 68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650260 ! 69: I02 = 06 00660260 ! 70: C 00670260 ! 71: I01 = 5 00680260 ! 72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690260 ! 73: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00700260 ! 74: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00710260 ! 75: C 00720260 ! 76: I02 = 6 00730260 ! 77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00740260 ! 78: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00750260 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00760260 ! 80: C 00770260 ! 81: CBE** ********************** BBCINITB **********************************00780260 ! 82: NUVI = I02 00790260 ! 83: ZPROG = 'FM260' 00800260 ! 84: IVTOTL = 2 00810260 ! 85: CBB** ********************** BBCHED0A **********************************00820260 ! 86: C**** 00830260 ! 87: C**** WRITE REPORT TITLE 00840260 ! 88: C**** 00850260 ! 89: WRITE (I02, 90002) 00860260 ! 90: WRITE (I02, 90006) 00870260 ! 91: WRITE (I02, 90007) 00880260 ! 92: WRITE (I02, 90008) ZVERS, ZVERSD 00890260 ! 93: WRITE (I02, 90009) ZPROG, ZPROG 00900260 ! 94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910260 ! 95: CBE** ********************** BBCHED0A **********************************00920260 ! 96: C***** TOTAL NUMBER OF EXPECTED TESTS 00930260 ! 97: C***** 00940260 ! 98: C***** HEADER FOR SEGMENT 302 00950260 ! 99: WRITE(NUVI,30200) 00960260 ! 100: 30200 FORMAT(1H ,24H BLKIF3 - (302) BLOCK IF// 00970260 ! 101: 1 36H WITH OTHER CONTROL CONSTRUCTS (II)// 00980260 ! 102: 2 40H SUBSET REF. 11.1 - 11.3, 11.6 - 11.10) 00990260 ! 103: CBB** ********************** BBCHED0B **********************************01000260 ! 104: C**** WRITE DETAIL REPORT HEADERS 01010260 ! 105: C**** 01020260 ! 106: WRITE (I02,90004) 01030260 ! 107: WRITE (I02,90004) 01040260 ! 108: WRITE (I02,90013) 01050260 ! 109: WRITE (I02,90014) 01060260 ! 110: WRITE (I02,90015) IVTOTL 01070260 ! 111: CBE** ********************** BBCHED0B **********************************01080260 ! 112: C***** 01090260 ! 113: WRITE (NUVI, 30225) 01100260 ! 114: CT001* TEST 1 BLOCK IF WITH DO, ARITHMETIC IF, COMPUTED GOTO, 01110260 ! 115: C***** ASSIGNED GOTO 01120260 ! 116: IVTNUM = 1 01130260 ! 117: IVINSP = IVINSP + 1 01140260 ! 118: WRITE (NUVI, 80004) IVTNUM 01150260 ! 119: JVI = 1 01160260 ! 120: KVI = 1 01170260 ! 121: ASSIGN 0017 TO MVI 01180260 ! 122: DO 0011 IVI = 1, 9 01190260 ! 123: IF (IVI - 6) 0010, 0013, 0016 01200260 ! 124: 0010 IF (IVI .LE. 3) THEN 01210260 ! 125: GOTO (0019, 0012, 0012) IVI 01220260 ! 126: 0012 KVI = KVI + 1 01230260 ! 127: ELSE 01240260 ! 128: KVI = 5 01250260 ! 129: IF (IVI .NE. 5) KVI = 4 01260260 ! 130: ENDIF 01270260 ! 131: GOTO 0019 01280260 ! 132: 0013 DO 0015 NVI = 1,3 01290260 ! 133: KVI = 8 01300260 ! 134: IF ((IVI + NVI) .EQ. 7) THEN 01310260 ! 135: KVI = 6 01320260 ! 136: GOTO 0014 01330260 ! 137: ELSEIF (NVI .EQ. 2) THEN 01340260 ! 138: KVI = 7 01350260 ! 139: C***** LABEL ON A ENDIF IS PERMITTED 01360260 ! 140: 0014 ENDIF 01370260 ! 141: LVI = KVI - JVI 01380260 ! 142: WRITE(NUVI,30215) LVI 01390260 ! 143: JVI = JVI + 1 01400260 ! 144: 0015 CONTINUE 01410260 ! 145: GOTO 0011 01420260 ! 146: 0016 LVI = 10 01430260 ! 147: GOTO MVI, (0017, 0018) 01440260 ! 148: 0017 ASSIGN 0018 TO MVI 01450260 ! 149: LVI = 9 01460260 ! 150: 0018 IF (IVI .LE. 8) THEN 01470260 ! 151: KVI = LVI 01480260 ! 152: ELSE 01490260 ! 153: KVI = 11 01500260 ! 154: ENDIF 01510260 ! 155: 0019 LVI = KVI - JVI 01520260 ! 156: WRITE (NUVI, 30215) LVI 01530260 ! 157: JVI = JVI + 1 01540260 ! 158: 0011 CONTINUE 01550260 ! 159: CT002* TEST 2 DO WITH NESTED BLOCK IFS 01560260 ! 160: IVTNUM = 2 01570260 ! 161: IVINSP = IVINSP + 1 01580260 ! 162: WRITE (NUVI, 80004) IVTNUM 01590260 ! 163: JVI = 1 01600260 ! 164: DO 0021 IVI = 1, 8 01610260 ! 165: KVI = 0 01620260 ! 166: IF (IVI .LT. 5) THEN 01630260 ! 167: IF (IVI .LE. 2) THEN 01640260 ! 168: IF (IVI - 1 .EQ. 0) THEN 01650260 ! 169: KVI = KVI + 1 01660260 ! 170: ELSE 01670260 ! 171: KVI = KVI + 2 01680260 ! 172: ENDIF 01690260 ! 173: KVI = KVI * 2 01700260 ! 174: ELSE 01710260 ! 175: IF (IVI .EQ. 3) THEN 01720260 ! 176: DO 0020 NVI = 1,IVI 01730260 ! 177: 0020 KVI = KVI + 10 01740260 ! 178: ELSE 01750260 ! 179: DO 0022 NVI = 1, IVI 01760260 ! 180: 0022 KVI = KVI + 10 01770260 ! 181: ENDIF 01780260 ! 182: KVI = KVI / 10 * 2 01790260 ! 183: ENDIF 01800260 ! 184: KVI = KVI * 3 01810260 ! 185: ELSE 01820260 ! 186: IF (IVI .LE. 6) THEN 01830260 ! 187: IF (IVI - 5 .EQ. 0) THEN 01840260 ! 188: KVI = KVI + 105 01850260 ! 189: ELSE 01860260 ! 190: KVI = KVI + 106 01870260 ! 191: ENDIF 01880260 ! 192: KVI = (KVI - 100) * 3 01890260 ! 193: ELSE 01900260 ! 194: IF (IVI .LE. 7) THEN 01910260 ! 195: KVI = KVI - 7 01920260 ! 196: ELSE 01930260 ! 197: KVI = KVI - 8 01940260 ! 198: ENDIF 01950260 ! 199: KVI = KVI + IVI * 4 01960260 ! 200: ENDIF 01970260 ! 201: KVI = KVI * 2 01980260 ! 202: ENDIF 01990260 ! 203: LVI = KVI / 6 - JVI 02000260 ! 204: WRITE (NUVI,30215) LVI 02010260 ! 205: JVI = JVI + 1 02020260 ! 206: 0021 CONTINUE 02030260 ! 207: C***** 02040260 ! 208: 30215 FORMAT(1H ,26X,I10) 02050260 ! 209: 30225 FORMAT (/49X,'TEST 1 (11 COMPUTED RESULTS)'/ 02060260 ! 210: 1 49X,'TEST 2 (8 COMPUTED RESULTS)'/ 02070260 ! 211: 2 49X,'ALL ANSWERS SHOULD BE ZERO') 02080260 ! 212: C***** 02090260 ! 213: CBB** ********************** BBCSUM0 **********************************02100260 ! 214: C**** WRITE OUT TEST SUMMARY 02110260 ! 215: C**** 02120260 ! 216: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02130260 ! 217: WRITE (I02, 90004) 02140260 ! 218: WRITE (I02, 90014) 02150260 ! 219: WRITE (I02, 90004) 02160260 ! 220: WRITE (I02, 90020) IVPASS 02170260 ! 221: WRITE (I02, 90022) IVFAIL 02180260 ! 222: WRITE (I02, 90024) IVDELE 02190260 ! 223: WRITE (I02, 90026) IVINSP 02200260 ! 224: WRITE (I02, 90028) IVTOTN, IVTOTL 02210260 ! 225: CBE** ********************** BBCSUM0 **********************************02220260 ! 226: CBB** ********************** BBCFOOT0 **********************************02230260 ! 227: C**** WRITE OUT REPORT FOOTINGS 02240260 ! 228: C**** 02250260 ! 229: WRITE (I02,90016) ZPROG, ZPROG 02260260 ! 230: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02270260 ! 231: WRITE (I02,90019) 02280260 ! 232: CBE** ********************** BBCFOOT0 **********************************02290260 ! 233: CBB** ********************** BBCFMT0A **********************************02300260 ! 234: C**** FORMATS FOR TEST DETAIL LINES 02310260 ! 235: C**** 02320260 ! 236: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02330260 ! 237: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02340260 ! 238: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02350260 ! 239: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02360260 ! 240: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02370260 ! 241: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02380260 ! 242: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02390260 ! 243: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02400260 ! 244: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02410260 ! 245: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02420260 ! 246: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02430260 ! 247: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02440260 ! 248: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02450260 ! 249: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02460260 ! 250: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02470260 ! 251: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02480260 ! 252: 80050 FORMAT (1H ,48X,A31) 02490260 ! 253: CBE** ********************** BBCFMT0A **********************************02500260 ! 254: CBB** ********************** BBCFMT0B **********************************02510260 ! 255: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02520260 ! 256: C**** 02530260 ! 257: 90002 FORMAT (1H1) 02540260 ! 258: 90004 FORMAT (1H ) 02550260 ! 259: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02560260 ! 260: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02570260 ! 261: 90008 FORMAT (1H ,21X,A13,A17) 02580260 ! 262: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02590260 ! 263: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02600260 ! 264: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02610260 ! 265: 1 7X,7HREMARKS,24X) 02620260 ! 266: 90014 FORMAT (1H ,46H----------------------------------------------, 02630260 ! 267: 1 33H---------------------------------) 02640260 ! 268: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02650260 ! 269: C**** 02660260 ! 270: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02670260 ! 271: C**** 02680260 ! 272: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02690260 ! 273: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02700260 ! 274: 1 A13) 02710260 ! 275: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02720260 ! 276: C**** 02730260 ! 277: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02740260 ! 278: C**** 02750260 ! 279: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02760260 ! 280: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02770260 ! 281: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02780260 ! 282: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02790260 ! 283: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02800260 ! 284: CBE** ********************** BBCFMT0B **********************************02810260 ! 285: C***** END OF TEST SEGMENT 302 02820260 ! 286: STOP 02830260 ! 287: END 02840260
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.