![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM261.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 FM261.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***********************************************************************00010261 ! 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 00020261 ! 6: C***** FM261 00030261 ! 7: C***** BLKIF4 - (303) 00040261 ! 8: C***** THIS PROGRAM CALLS SUBROUTINES SN262, SN263 AND INTEGER 00050261 ! 9: C FUNCTION IF264 00060261 ! 10: C***********************************************************************00070261 ! 11: C***** GENERAL PURPOSE SUBSET REF 00080261 ! 12: C***** TEST BLOCK IF STATEMENTS 11.6 - 11.900090261 ! 13: C***** WITH SUBROUTINE CALLS 15.6 00100261 ! 14: C***** USES SUBROUTINES SN262 (750), SN263 (751) 00110261 ! 15: C***** AND FUNCTION IF264 (752) 00120261 ! 16: CBB** ********************** BBCCOMNT **********************************00130261 ! 17: C**** 00140261 ! 18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150261 ! 19: C**** VERSION 2.0 00160261 ! 20: C**** 00170261 ! 21: C**** 00180261 ! 22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190261 ! 23: C**** GENERAL SERVICES ADMINISTRATION 00200261 ! 24: C**** FEDERAL SOFTWARE TESTING CENTER 00210261 ! 25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220261 ! 26: C**** FALLS CHURCH, VA. 22041 00230261 ! 27: C**** 00240261 ! 28: C**** (703) 756-6153 00250261 ! 29: C**** 00260261 ! 30: CBE** ********************** BBCCOMNT **********************************00270261 ! 31: CBB** ********************** BBCINITA **********************************00280261 ! 32: C**** SPECIFICATION STATEMENTS 00290261 ! 33: C**** 00300261 ! 34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310261 ! 35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320261 ! 36: CBE** ********************** BBCINITA **********************************00330261 ! 37: CBB** ********************** BBCINITB **********************************00340261 ! 38: C**** INITIALIZE SECTION 00350261 ! 39: DATA ZVERS, ZVERSD, ZDATE 00360261 ! 40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370261 ! 41: DATA ZCOMPL, ZNAME, ZTAPE 00380261 ! 42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390261 ! 43: DATA ZPROJ, ZTAPED, ZPROG 00400261 ! 44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410261 ! 45: DATA REMRKS /' '/ 00420261 ! 46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430261 ! 47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440261 ! 48: C**** 00450261 ! 49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460261 ! 50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470261 ! 51: CZ03 ZPROG = 'PROGRAM NAME' 00480261 ! 52: ZDATE = '07-Nov-85 ' *RP ! 53: ZCOMPL = 'CCI 5.2 ' *RP ! 54: ZPROJ = 'TC-85- -410' *RP ! 55: ZNAME = ' ' *RP ! 56: ZTAPE = ' ' *RP ! 57: ZTAPED = '850703 ' *RP ! 58: C 00550261 ! 59: IVPASS = 0 00560261 ! 60: IVFAIL = 0 00570261 ! 61: IVDELE = 0 00580261 ! 62: IVINSP = 0 00590261 ! 63: IVTOTL = 0 00600261 ! 64: IVTOTN = 0 00610261 ! 65: ICZERO = 0 00620261 ! 66: C 00630261 ! 67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640261 ! 68: I01 = 05 00650261 ! 69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660261 ! 70: I02 = 06 00670261 ! 71: C 00680261 ! 72: I01 = 5 00690261 ! 73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700261 ! 74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710261 ! 75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720261 ! 76: C 00730261 ! 77: I02 = 6 00740261 ! 78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750261 ! 79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760261 ! 80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770261 ! 81: C 00780261 ! 82: CBE** ********************** BBCINITB **********************************00790261 ! 83: NUVI = I02 00800261 ! 84: ZPROG = 'FM261' 00810261 ! 85: CBB** ********************** BBCHED0A **********************************00820261 ! 86: C**** 00830261 ! 87: C**** WRITE REPORT TITLE 00840261 ! 88: C**** 00850261 ! 89: WRITE (I02, 90002) 00860261 ! 90: WRITE (I02, 90006) 00870261 ! 91: WRITE (I02, 90007) 00880261 ! 92: WRITE (I02, 90008) ZVERS, ZVERSD 00890261 ! 93: WRITE (I02, 90009) ZPROG, ZPROG 00900261 ! 94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910261 ! 95: CBE** ********************** BBCHED0A **********************************00920261 ! 96: C***** TOTAL NUMBER OF EXPECTED TESTS 00930261 ! 97: IVTOTL = 2 00940261 ! 98: C***** HEADER FOR SEGMENT 303 00950261 ! 99: WRITE(NUVI,30300) 00960261 ! 100: 30300 FORMAT(1H ,/24H BLKIF4 - (303) BLOCK IF// 00970261 ! 101: 1 31H BLOCK IF WITH SUBPROGRAM CALL// 00980261 ! 102: 2 31H SUBSET REF. 11.6 - 11.9, 15.6) 00990261 ! 103: CBB** ********************** BBCHED0B **********************************01000261 ! 104: C**** WRITE DETAIL REPORT HEADERS 01010261 ! 105: C**** 01020261 ! 106: WRITE (I02,90004) 01030261 ! 107: WRITE (I02,90004) 01040261 ! 108: WRITE (I02,90013) 01050261 ! 109: WRITE (I02,90014) 01060261 ! 110: WRITE (I02,90015) IVTOTL 01070261 ! 111: CBE** ********************** BBCHED0B **********************************01080261 ! 112: C***** 01090261 ! 113: WRITE (NUVI, 30325) 01100261 ! 114: CT001* TEST 1 BLOCK IF WITH SUBROUTINE CALLS 01110261 ! 115: IVTNUM = 1 01120261 ! 116: IVINSP = IVINSP + 1 01130261 ! 117: WRITE (NUVI, 80004) IVTNUM 01140261 ! 118: IVI = 3 01150261 ! 119: CALL SN262 (IVI) 01160261 ! 120: IF (IVI .GT. 0) THEN 01170261 ! 121: CALL SN262 (IVI) 01180261 ! 122: ELSE 01190261 ! 123: CALL SN263 (IVI) 01200261 ! 124: ENDIF 01210261 ! 125: LVI = 7 - IVI 01220261 ! 126: WRITE (NUVI, 30301) LVI 01230261 ! 127: C***** CONTINUE 01240261 ! 128: CT002* TEST 2 CALL OF FUNCTION CONTAINING BLOCK IF 01250261 ! 129: IVTNUM = 2 01260261 ! 130: IVINSP = IVINSP + 1 01270261 ! 131: WRITE (NUVI, 80004) IVTNUM 01280261 ! 132: IVI = 7 01290261 ! 133: IVI = IF264 (IVI .GT. 0) 01300261 ! 134: LVI = 8 - IVI 01310261 ! 135: WRITE (NUVI, 30301) LVI 01320261 ! 136: IVI = IF264 (LVI .NE. 0) 01330261 ! 137: LVI = 6 - IVI 01340261 ! 138: WRITE (NUVI, 30301) LVI 01350261 ! 139: C***** 01360261 ! 140: 30325 FORMAT (/49X,'TEST 1 (1 COMPUTED RESULT)'/ 01370261 ! 141: 1 49X,'TEST 2 (2 COMPUTED RESULTS)'/ 01380261 ! 142: 2 49X,'ALL ANSWERS SHOULD BE ZERO') 01390261 ! 143: 30301 FORMAT (1H ,26X,I10) 01400261 ! 144: C***** 01410261 ! 145: CBB** ********************** BBCSUM0 **********************************01420261 ! 146: C**** WRITE OUT TEST SUMMARY 01430261 ! 147: C**** 01440261 ! 148: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01450261 ! 149: WRITE (I02, 90004) 01460261 ! 150: WRITE (I02, 90014) 01470261 ! 151: WRITE (I02, 90004) 01480261 ! 152: WRITE (I02, 90020) IVPASS 01490261 ! 153: WRITE (I02, 90022) IVFAIL 01500261 ! 154: WRITE (I02, 90024) IVDELE 01510261 ! 155: WRITE (I02, 90026) IVINSP 01520261 ! 156: WRITE (I02, 90028) IVTOTN, IVTOTL 01530261 ! 157: CBE** ********************** BBCSUM0 **********************************01540261 ! 158: CBB** ********************** BBCFOOT0 **********************************01550261 ! 159: C**** WRITE OUT REPORT FOOTINGS 01560261 ! 160: C**** 01570261 ! 161: WRITE (I02,90016) ZPROG, ZPROG 01580261 ! 162: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01590261 ! 163: WRITE (I02,90019) 01600261 ! 164: CBE** ********************** BBCFOOT0 **********************************01610261 ! 165: CBB** ********************** BBCFMT0A **********************************01620261 ! 166: C**** FORMATS FOR TEST DETAIL LINES 01630261 ! 167: C**** 01640261 ! 168: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01650261 ! 169: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01660261 ! 170: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01670261 ! 171: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01680261 ! 172: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01690261 ! 173: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01700261 ! 174: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01710261 ! 175: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01720261 ! 176: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01730261 ! 177: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01740261 ! 178: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 01750261 ! 179: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 01760261 ! 180: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 01770261 ! 181: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 01780261 ! 182: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 01790261 ! 183: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 01800261 ! 184: 80050 FORMAT (1H ,48X,A31) 01810261 ! 185: CBE** ********************** BBCFMT0A **********************************01820261 ! 186: CBB** ********************** BBCFMT0B **********************************01830261 ! 187: C**** FORMAT STATEMENTS FOR PAGE HEADERS 01840261 ! 188: C**** 01850261 ! 189: 90002 FORMAT (1H1) 01860261 ! 190: 90004 FORMAT (1H ) 01870261 ! 191: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 01880261 ! 192: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 01890261 ! 193: 90008 FORMAT (1H ,21X,A13,A17) 01900261 ! 194: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 01910261 ! 195: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 01920261 ! 196: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 01930261 ! 197: 1 7X,7HREMARKS,24X) 01940261 ! 198: 90014 FORMAT (1H ,46H----------------------------------------------, 01950261 ! 199: 1 33H---------------------------------) 01960261 ! 200: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 01970261 ! 201: C**** 01980261 ! 202: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 01990261 ! 203: C**** 02000261 ! 204: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02010261 ! 205: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02020261 ! 206: 1 A13) 02030261 ! 207: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02040261 ! 208: C**** 02050261 ! 209: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02060261 ! 210: C**** 02070261 ! 211: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02080261 ! 212: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02090261 ! 213: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02100261 ! 214: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02110261 ! 215: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02120261 ! 216: CBE** ********************** BBCFMT0B **********************************02130261 ! 217: C***** END OF TEST SEGMENT 303 02140261 ! 218: STOP 02150261 ! 219: END 02160261 ! 220: C***********************************************************************00010262 ! 221: C DATE***82/08/02*18.33.46 ! 222: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 223: C AUDIT FCVS78 V2.0 ! 224: C***** FORTRAN 77 00020262 ! 225: C***** FM262 00030262 ! 226: C***** SN262 SN262 - (750) 00040262 ! 227: C***** SUBROUTINE CALLED BY FM261 00050262 ! 228: C***********************************************************************00060262 ! 229: C***** 00070262 ! 230: SUBROUTINE SN262 (IWVI) 00080262 ! 231: C***** 00090262 ! 232: IWVI = IWVI + 2 00100262 ! 233: C***** 00110262 ! 234: RETURN 00120262 ! 235: END 00130262 ! 236: C***********************************************************************00010263 ! 237: C DATE***82/08/02*18.33.46 ! 238: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 239: C AUDIT FCVS78 V2.0 ! 240: C***** FORTRAN 77 00020263 ! 241: C***** FM263 00030263 ! 242: C***** SN263 SN263 - (751) 00040263 ! 243: C***** SUBROUTINE CALLED BY FM261 00050263 ! 244: C***********************************************************************00060263 ! 245: C***** 00070263 ! 246: SUBROUTINE SN263 (IWVI) 00080263 ! 247: C***** 00090263 ! 248: IWVI = IWVI * (-10) 00100263 ! 249: C***** 00110263 ! 250: RETURN 00120263 ! 251: END 00130263 ! 252: C***********************************************************************00010264 ! 253: C DATE***82/08/02*18.33.46 ! 254: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 255: C AUDIT FCVS78 V2.0 ! 256: C***** FORTRAN 77 00020264 ! 257: C***** FM264 00030264 ! 258: C***** IF264 IF264 - (752) 00040264 ! 259: C***** INTEGER FUNCTION CALLED BY FM261 00050264 ! 260: C***********************************************************************00060264 ! 261: C***** 00070264 ! 262: INTEGER FUNCTION IF264 (AWVB) 00080264 ! 263: LOGICAL AWVB 00090264 ! 264: C***** 00100264 ! 265: IF (AWVB) THEN 00110264 ! 266: IF264 = 8 00120264 ! 267: RETURN 00130264 ! 268: ELSE 00140264 ! 269: IF264 = 6 00150264 ! 270: ENDIF 00160264 ! 271: C***** 00170264 ! 272: RETURN 00180264 ! 273: END 00190264
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.