![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM259.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 FM259.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***********************************************************************00010259 ! 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 00020259 ! 6: C***** FM259 00030259 ! 7: C***** BLKIF2 - (301) 00040259 ! 8: C***** 00050259 ! 9: C***********************************************************************00060259 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070259 ! 11: C***** TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080259 ! 12: C***** WITH GOTO, COMPUTED GOTO, ASSIGN GOTO, DO 11.6 - 11.1000090259 ! 13: C**** 00100259 ! 14: CBB** ********************** BBCCOMNT **********************************00110259 ! 15: C**** 00120259 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130259 ! 17: C**** VERSION 2.0 00140259 ! 18: C**** 00150259 ! 19: C**** 00160259 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170259 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180259 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190259 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200259 ! 24: C**** FALLS CHURCH, VA. 22041 00210259 ! 25: C**** 00220259 ! 26: C**** (703) 756-6153 00230259 ! 27: C**** 00240259 ! 28: CBE** ********************** BBCCOMNT **********************************00250259 ! 29: CBB** ********************** BBCINITA **********************************00260259 ! 30: C**** SPECIFICATION STATEMENTS 00270259 ! 31: C**** 00280259 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290259 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300259 ! 34: CBE** ********************** BBCINITA **********************************00310259 ! 35: CBB** ********************** BBCINITB **********************************00320259 ! 36: C**** INITIALIZE SECTION 00330259 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340259 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350259 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360259 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370259 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380259 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390259 ! 43: DATA REMRKS /' '/ 00400259 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410259 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420259 ! 46: C**** 00430259 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440259 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450259 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460259 ! 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 00530259 ! 57: IVPASS = 0 00540259 ! 58: IVFAIL = 0 00550259 ! 59: IVDELE = 0 00560259 ! 60: IVINSP = 0 00570259 ! 61: IVTOTL = 0 00580259 ! 62: IVTOTN = 0 00590259 ! 63: ICZERO = 0 00600259 ! 64: C 00610259 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620259 ! 66: I01 = 05 00630259 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640259 ! 68: I02 = 06 00650259 ! 69: C 00660259 ! 70: I01 = 5 00670259 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680259 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690259 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700259 ! 74: C 00710259 ! 75: I02 = 6 00720259 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730259 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740259 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750259 ! 79: C 00760259 ! 80: CBE** ********************** BBCINITB **********************************00770259 ! 81: NUVI = I02 00780259 ! 82: IVTOTL = 3 00790259 ! 83: ZPROG = 'FM259' 00800259 ! 84: CBB** ********************** BBCHED0A **********************************00810259 ! 85: C**** 00820259 ! 86: C**** WRITE REPORT TITLE 00830259 ! 87: C**** 00840259 ! 88: WRITE (I02, 90002) 00850259 ! 89: WRITE (I02, 90006) 00860259 ! 90: WRITE (I02, 90007) 00870259 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880259 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890259 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900259 ! 94: CBE** ********************** BBCHED0A **********************************00910259 ! 95: C***** 00920259 ! 96: C***** HEADER FOR SEGMENT 301 00930259 ! 97: WRITE(NUVI,30100) 00940259 ! 98: 30100 FORMAT(1H , / 24H BLKIF2 - (301) BLOCK IF// 00950259 ! 99: 1 35H WITH OTHER CONTROL CONSTRUCTS (I)// 00960259 ! 100: 2 36H SUBSET REF. 11.1-11.3, 11.6-11.10) 00970259 ! 101: CBB** ********************** BBCHED0B **********************************00980259 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990259 ! 103: C**** 01000259 ! 104: WRITE (I02,90004) 01010259 ! 105: WRITE (I02,90004) 01020259 ! 106: WRITE (I02,90013) 01030259 ! 107: WRITE (I02,90014) 01040259 ! 108: WRITE (I02,90015) IVTOTL 01050259 ! 109: CBE** ********************** BBCHED0B **********************************01060259 ! 110: C***** 01070259 ! 111: WRITE (NUVI,70000) 01080259 ! 112: CT001* TEST 1 IF (E) THEN .*. ENDIF 01090259 ! 113: IVTNUM = 1 01100259 ! 114: IVINSP = IVINSP + 1 01110259 ! 115: WRITE (NUVI, 80004) IVTNUM 01120259 ! 116: KVI = 7 01130259 ! 117: IF (KVI .EQ. 7) THEN 01140259 ! 118: KVI = 8 01150259 ! 119: IF (KVI .GE. 8) GOTO 0012 01160259 ! 120: KVI = 9 01170259 ! 121: ENDIF 01180259 ! 122: 0012 LVI = 8 - KVI 01190259 ! 123: WRITE(NUVI,70010) LVI 01200259 ! 124: CT002* TEST 2 IF (E) THEN .*. ELSE .*. ENDIF 01210259 ! 125: IVTNUM = 2 01220259 ! 126: IVINSP = IVINSP + 1 01230259 ! 127: WRITE (NUVI, 80004) IVTNUM 01240259 ! 128: KVI = 0 01250259 ! 129: LVI = 1 01260259 ! 130: IF (LVI .EQ. 7) THEN 01270259 ! 131: KVI = 8 01280259 ! 132: IF (LVI .EQ. 1) GOTO 0026 01290259 ! 133: KVI = 9 01300259 ! 134: ELSE 01310259 ! 135: GOTO (0023, 0024, 0022), LVI 01320259 ! 136: 0022 KVI = 1 01330259 ! 137: GOTO 0025 01340259 ! 138: 0023 KVI = 2 01350259 ! 139: GOTO 0025 01360259 ! 140: 0024 KVI = 3 01370259 ! 141: 0025 CONTINUE 01380259 ! 142: ENDIF 01390259 ! 143: 0026 LVI = 2 - KVI 01400259 ! 144: WRITE(NUVI,70010) LVI 01410259 ! 145: CT003* TEST 3 DO .......... 01420259 ! 146: IVTNUM = 3 01430259 ! 147: IVINSP = IVINSP + 1 01440259 ! 148: WRITE (NUVI, 80004) IVTNUM 01450259 ! 149: MVI = 0 01460259 ! 150: ASSIGN 0034 TO NVI 01470259 ! 151: LVI = 0 01480259 ! 152: JVI = 1 01490259 ! 153: DO 0037 IVI = 1,4 01500259 ! 154: IF (IVI .EQ. 1) THEN 01510259 ! 155: DO 0032 KVI = 1,IVI 01520259 ! 156: LVI = LVI + 1 01530259 ! 157: 0032 CONTINUE 01540259 ! 158: ELSEIF (IVI .EQ. 2) THEN 01550259 ! 159: LVI = 6 01560259 ! 160: IF (.FALSE.) GOTO 0036 01570259 ! 161: LVI = 2 01580259 ! 162: ELSEIF (IVI .EQ. 3) THEN 01590259 ! 163: IF (MVI .NE. 0) THEN 01600259 ! 164: LVI = 7 01610259 ! 165: ELSE 01620259 ! 166: LVI = 3 01630259 ! 167: ENDIF 01640259 ! 168: ELSE 01650259 ! 169: GOTO NVI, (0033, 0034) 01660259 ! 170: 0033 LVI = 5 01670259 ! 171: GOTO 0035 01680259 ! 172: 0034 LVI = 4 01690259 ! 173: ASSIGN 0033 TO NVI 01700259 ! 174: 0035 CONTINUE 01710259 ! 175: ENDIF 01720259 ! 176: LVI = LVI - JVI 01730259 ! 177: 0036 WRITE(NUVI,70010) LVI 01740259 ! 178: JVI = JVI + 1 01750259 ! 179: 0037 CONTINUE 01760259 ! 180: C***** 01770259 ! 181: CBB** ********************** BBCSUM0 **********************************01780259 ! 182: C**** WRITE OUT TEST SUMMARY 01790259 ! 183: C**** 01800259 ! 184: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01810259 ! 185: WRITE (I02, 90004) 01820259 ! 186: WRITE (I02, 90014) 01830259 ! 187: WRITE (I02, 90004) 01840259 ! 188: WRITE (I02, 90020) IVPASS 01850259 ! 189: WRITE (I02, 90022) IVFAIL 01860259 ! 190: WRITE (I02, 90024) IVDELE 01870259 ! 191: WRITE (I02, 90026) IVINSP 01880259 ! 192: WRITE (I02, 90028) IVTOTN, IVTOTL 01890259 ! 193: CBE** ********************** BBCSUM0 **********************************01900259 ! 194: CBB** ********************** BBCFOOT0 **********************************01910259 ! 195: C**** WRITE OUT REPORT FOOTINGS 01920259 ! 196: C**** 01930259 ! 197: WRITE (I02,90016) ZPROG, ZPROG 01940259 ! 198: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01950259 ! 199: WRITE (I02,90019) 01960259 ! 200: CBE** ********************** BBCFOOT0 **********************************01970259 ! 201: CBB** ********************** BBCFMT0A **********************************01980259 ! 202: C**** FORMATS FOR TEST DETAIL LINES 01990259 ! 203: C**** 02000259 ! 204: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02010259 ! 205: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02020259 ! 206: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02030259 ! 207: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02040259 ! 208: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02050259 ! 209: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02060259 ! 210: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02070259 ! 211: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02080259 ! 212: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02090259 ! 213: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02100259 ! 214: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02110259 ! 215: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02120259 ! 216: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02130259 ! 217: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02140259 ! 218: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02150259 ! 219: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02160259 ! 220: 80050 FORMAT (1H ,48X,A31) 02170259 ! 221: CBE** ********************** BBCFMT0A **********************************02180259 ! 222: CBB** ********************** BBCFMT0B **********************************02190259 ! 223: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02200259 ! 224: C**** 02210259 ! 225: 90002 FORMAT (1H1) 02220259 ! 226: 90004 FORMAT (1H ) 02230259 ! 227: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02240259 ! 228: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02250259 ! 229: 90008 FORMAT (1H ,21X,A13,A17) 02260259 ! 230: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02270259 ! 231: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02280259 ! 232: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02290259 ! 233: 1 7X,7HREMARKS,24X) 02300259 ! 234: 90014 FORMAT (1H ,46H----------------------------------------------, 02310259 ! 235: 1 33H---------------------------------) 02320259 ! 236: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02330259 ! 237: C**** 02340259 ! 238: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02350259 ! 239: C**** 02360259 ! 240: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02370259 ! 241: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02380259 ! 242: 1 A13) 02390259 ! 243: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02400259 ! 244: C**** 02410259 ! 245: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02420259 ! 246: C**** 02430259 ! 247: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02440259 ! 248: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02450259 ! 249: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02460259 ! 250: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02470259 ! 251: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02480259 ! 252: CBE** ********************** BBCFMT0B **********************************02490259 ! 253: C***** 02500259 ! 254: 70000 FORMAT (/49X,'TEST 1 (1 COMPUTED RESULT)'/ 02510259 ! 255: 1 49X,'TEST 2 (1 COMPUTED RESULT)'/ 02520259 ! 256: 2 49X,'TEST 3 (4 COMPUTED RESULTS)'/ 02530259 ! 257: 3 49X,'ALL ANSWERS SHOULD BE ZERO') 02540259 ! 258: 70010 FORMAT (1H ,26X,I10) 02550259 ! 259: C***** END OF TEST SEGMENT 301 02560259 ! 260: STOP 02570259 ! 261: END 02580259 ! 262: 02590259
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.