![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM907.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 FM907.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***********************************************************************00010907 ! 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 00020907 ! 6: C***** FM907 00030907 ! 7: C***** LSTDO2 - (373) 00040907 ! 8: C***** 00050907 ! 9: C***********************************************************************00060907 ! 10: C***** GENERAL PURPOSE ANS REF 00070907 ! 11: C***** TEST LIST DIRECTED OUTPUT 13.6 00080907 ! 12: C***** DOUBLE PRECISION AND COMPLEX DATA TYPES INCLUDED 12.4 00090907 ! 13: C***** 00100907 ! 14: CBB** ********************** BBCCOMNT **********************************00110907 ! 15: C**** 00120907 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130907 ! 17: C**** VERSION 2.0 00140907 ! 18: C**** 00150907 ! 19: C**** 00160907 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170907 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180907 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190907 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200907 ! 24: C**** FALLS CHURCH, VA. 22041 00210907 ! 25: C**** 00220907 ! 26: C**** (703) 756-6153 00230907 ! 27: C**** 00240907 ! 28: CBE** ********************** BBCCOMNT **********************************00250907 ! 29: C***** 00260907 ! 30: C***** S P E C I F I C A T I O N S SEGMENT 373 00270907 ! 31: DOUBLE PRECISION AVD, BVD, CVD 00280907 ! 32: COMPLEX AVC, BVC, CVC, DVC 00290907 ! 33: CHARACTER A4VK*4 00300907 ! 34: C***** 00310907 ! 35: CBB** ********************** BBCINITA **********************************00320907 ! 36: C**** SPECIFICATION STATEMENTS 00330907 ! 37: C**** 00340907 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350907 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360907 ! 40: CBE** ********************** BBCINITA **********************************00370907 ! 41: CBB** ********************** BBCINITB **********************************00380907 ! 42: C**** INITIALIZE SECTION 00390907 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400907 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410907 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420907 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430907 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440907 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450907 ! 49: DATA REMRKS /' '/ 00460907 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470907 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480907 ! 52: C**** 00490907 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500907 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510907 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520907 ! 56: ZDATE = '07-Nov-85 ' *RP ! 57: ZCOMPL = 'CCI 5.2 ' *RP ! 58: ZPROJ = 'TC-85- -410' *RP ! 59: ZNAME = ' ' *RP ! 60: ZTAPE = ' ' *RP ! 61: ZTAPED = '850703 ' *RP ! 62: C 00590907 ! 63: IVPASS = 0 00600907 ! 64: IVFAIL = 0 00610907 ! 65: IVDELE = 0 00620907 ! 66: IVINSP = 0 00630907 ! 67: IVTOTL = 0 00640907 ! 68: IVTOTN = 0 00650907 ! 69: ICZERO = 0 00660907 ! 70: C 00670907 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680907 ! 72: I01 = 05 00690907 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700907 ! 74: I02 = 06 00710907 ! 75: C 00720907 ! 76: I01 = 5 00730907 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740907 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750907 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760907 ! 80: C 00770907 ! 81: I02 = 6 00780907 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790907 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800907 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810907 ! 85: C 00820907 ! 86: CBE** ********************** BBCINITB **********************************00830907 ! 87: NUVI = I02 00840907 ! 88: IVTOTL = 8 00850907 ! 89: ZPROG = 'FM907' 00860907 ! 90: CBB** ********************** BBCHED0A **********************************00870907 ! 91: C**** 00880907 ! 92: C**** WRITE REPORT TITLE 00890907 ! 93: C**** 00900907 ! 94: WRITE (I02, 90002) 00910907 ! 95: WRITE (I02, 90006) 00920907 ! 96: WRITE (I02, 90007) 00930907 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940907 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950907 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960907 ! 100: CBE** ********************** BBCHED0A **********************************00970907 ! 101: C***** 00980907 ! 102: C***** HEADING FOR SEGMENT 373 00990907 ! 103: WRITE(NUVI,37300) 01000907 ! 104: 37300 FORMAT(1H , /16H LSTDO2 - (373) , 01010907 ! 105: 1 21H LIST DIRECTED OUTPUT, 01020907 ! 106: 2 32H FOR D.P. AND COMPLEX DATA TYPES// 01030907 ! 107: 3 22H ANS REF. - 13.6 12.4) 01040907 ! 108: CBB** ********************** BBCHED0B **********************************01050907 ! 109: C**** WRITE DETAIL REPORT HEADERS 01060907 ! 110: C**** 01070907 ! 111: WRITE (I02,90004) 01080907 ! 112: WRITE (I02,90004) 01090907 ! 113: WRITE (I02,90013) 01100907 ! 114: WRITE (I02,90014) 01110907 ! 115: WRITE (I02,90015) IVTOTL 01120907 ! 116: CBE** ********************** BBCHED0B **********************************01130907 ! 117: WRITE (NUVI, 70000) 01140907 ! 118: 70000 FORMAT (1H ,48X,31HTHE CORRECT LINE OF EACH TEST / 01150907 ! 119: 1 1H ,48X,31HIS HOLLERITH INFORMATION. / 01160907 ! 120: 2 1H ,48X,31HCOLUMN SPACING, LINE BREAKS, / 01170907 ! 121: 3 1H ,48X,31HAND THE NUMBER OF DECIMAL / 01180907 ! 122: 4 1H ,48X,31HPLACES FOR DOUBLE PRECISION / 01190907 ! 123: 5 1H ,48X,31HOR COMPLEX NUMBERS ARE / 01200907 ! 124: 6 1H ,48X,31HPROCESSOR DEPENDENT. / 01210907 ! 125: 7 1H ,48X,31HEITHER E OR F FORMAT MAY BE / 01220907 ! 126: 8 1H ,48X,31HUSED FOR DOUBLE PRECISION OR / 01230907 ! 127: 9 1H ,48X,31HCOMPLEX NUMBERS. /) 01240907 ! 128: CT001* TEST 1 - DOUBLE PRECISION 01250907 ! 129: IVTNUM = 1 01260907 ! 130: WRITE (NUVI, 80004) IVTNUM 01270907 ! 131: WRITE (NUVI, 80020) 01280907 ! 132: AVD = 2.5D0 01290907 ! 133: WRITE(NUVI, *) AVD 01300907 ! 134: IVINSP = IVINSP + 1 01310907 ! 135: WRITE (NUVI, 80022) 01320907 ! 136: WRITE (NUVI, 70011) 01330907 ! 137: 70011 FORMAT (1H ,6X,3H2.5) 01340907 ! 138: CT002* TEST 2 - COMPLEX 01350907 ! 139: IVTNUM = 2 01360907 ! 140: WRITE (NUVI, 80004) IVTNUM 01370907 ! 141: WRITE (NUVI, 80020) 01380907 ! 142: AVC = (3.0, 4.0) 01390907 ! 143: WRITE(NUVI, *) AVC 01400907 ! 144: IVINSP = IVINSP + 1 01410907 ! 145: WRITE (NUVI, 80022) 01420907 ! 146: WRITE (NUVI, 70021) 01430907 ! 147: 70021 FORMAT(1H ,6X,10H (3.0,4.0)) 01440907 ! 148: CT003* TEST 3 - SEVERAL DOUBLE PRECISION 01450907 ! 149: IVTNUM = 3 01460907 ! 150: WRITE (NUVI, 80004) IVTNUM 01470907 ! 151: WRITE (NUVI, 80020) 01480907 ! 152: AVD = 2.5D0 01490907 ! 153: BVD = 2.5D-10 01500907 ! 154: CVD = 2.5D+10 01510907 ! 155: WRITE(NUVI, *) AVD, BVD, CVD 01520907 ! 156: IVINSP = IVINSP + 1 01530907 ! 157: WRITE (NUVI, 80022) 01540907 ! 158: WRITE (NUVI, 70031) 01550907 ! 159: 70031 FORMAT(1H ,6X,21H2.5 2.5D-10 2.5D+10) 01560907 ! 160: CT004* TEST 4 - SEVERAL COMPLEX 01570907 ! 161: IVTNUM = 4 01580907 ! 162: WRITE (NUVI, 80004) IVTNUM 01590907 ! 163: WRITE (NUVI, 80020) 01600907 ! 164: AVC = (0.0, 1.0) 01610907 ! 165: BVC = (8.0, 10.0) 01620907 ! 166: CVC = (-5.0, 0.0) 01630907 ! 167: DVC = (0.0, 0.0) 01640907 ! 168: WRITE(NUVI,*) AVC, BVC, CVC, DVC 01650907 ! 169: IVINSP = IVINSP + 1 01660907 ! 170: WRITE (NUVI, 80022) 01670907 ! 171: WRITE (NUVI, 70041) 01680907 ! 172: 70041 FORMAT(1H ,6X,48H (0.0,1.0) (8.0,10.0) (-5.0,0.0) (0.0,01690907 ! 173: 10.0)) 01700907 ! 174: CT005* TEST 5 - MIXED LIST 01710907 ! 175: IVTNUM = 5 01720907 ! 176: WRITE (NUVI, 80004) IVTNUM 01730907 ! 177: WRITE (NUVI, 80020) 01740907 ! 178: AVC = (3.0, 4.0) 01750907 ! 179: BVC = (-3.0, -4.0) 01760907 ! 180: AVD = 5.0D0 01770907 ! 181: BVD = -5.0D0 01780907 ! 182: WRITE(NUVI,*) AVC, AVD, BVD, BVC 01790907 ! 183: IVINSP = IVINSP + 1 01800907 ! 184: WRITE (NUVI, 80022) 01810907 ! 185: WRITE (NUVI, 70051) 01820907 ! 186: 70051 FORMAT(1H ,6X,35H (3.0,4.0) 5.0 -5.0 (-3.0,-4.0)) 01830907 ! 187: CT006* TEST 6 - MIXED MODE EXPRESSION 01840907 ! 188: IVTNUM = 6 01850907 ! 189: WRITE (NUVI, 80004) IVTNUM 01860907 ! 190: WRITE (NUVI, 80020) 01870907 ! 191: AVC = (2.0, 3.0) 01880907 ! 192: IVI = 3 01890907 ! 193: WRITE(NUVI, *) AVC * IVI 01900907 ! 194: IVINSP = IVINSP + 1 01910907 ! 195: WRITE (NUVI, 80022) 01920907 ! 196: WRITE (NUVI, 70061) 01930907 ! 197: 70061 FORMAT(1H ,6X,10H (6.0,9.0)) 01940907 ! 198: CT007* TEST 7 - MIXED MODE EXPRESSION 01950907 ! 199: IVTNUM = 7 01960907 ! 200: WRITE (NUVI, 80004) IVTNUM 01970907 ! 201: WRITE (NUVI, 80020) 01980907 ! 202: IVI = 2 01990907 ! 203: AVS = 6.5 02000907 ! 204: WRITE(NUVI, *) AVS / IVI 02010907 ! 205: IVINSP = IVINSP + 1 02020907 ! 206: WRITE (NUVI, 80022) 02030907 ! 207: WRITE (NUVI, 70071) 02040907 ! 208: 70071 FORMAT(1H ,6X,4H3.25) 02050907 ! 209: CT008* TEST 8 - MIXED LIST 02060907 ! 210: IVTNUM = 8 02070907 ! 211: WRITE (NUVI, 80004) IVTNUM 02080907 ! 212: WRITE (NUVI, 80020) 02090907 ! 213: A4VK = 'GOOD' 02100907 ! 214: AVS = 2.5 02110907 ! 215: AVC = (4, -6) 02120907 ! 216: WRITE(NUVI, *) AVC / 2, .TRUE., AVS ** 3, A4VK // 'BYE', 02130907 ! 217: 1 ' FOR NOW' 02140907 ! 218: IVINSP = IVINSP + 1 02150907 ! 219: WRITE (NUVI, 80022) 02160907 ! 220: WRITE (NUVI, 70081) 02170907 ! 221: 70081 FORMAT(1H ,6X,40H (2.0,-3.0) T 15.625 GOODBYE FOR NOW) 02180907 ! 222: CBB** ********************** BBCSUM0 **********************************02190907 ! 223: C**** WRITE OUT TEST SUMMARY 02200907 ! 224: C**** 02210907 ! 225: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02220907 ! 226: WRITE (I02, 90004) 02230907 ! 227: WRITE (I02, 90014) 02240907 ! 228: WRITE (I02, 90004) 02250907 ! 229: WRITE (I02, 90020) IVPASS 02260907 ! 230: WRITE (I02, 90022) IVFAIL 02270907 ! 231: WRITE (I02, 90024) IVDELE 02280907 ! 232: WRITE (I02, 90026) IVINSP 02290907 ! 233: WRITE (I02, 90028) IVTOTN, IVTOTL 02300907 ! 234: CBE** ********************** BBCSUM0 **********************************02310907 ! 235: CBB** ********************** BBCFOOT0 **********************************02320907 ! 236: C**** WRITE OUT REPORT FOOTINGS 02330907 ! 237: C**** 02340907 ! 238: WRITE (I02,90016) ZPROG, ZPROG 02350907 ! 239: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02360907 ! 240: WRITE (I02,90019) 02370907 ! 241: CBE** ********************** BBCFOOT0 **********************************02380907 ! 242: CBB** ********************** BBCFMT0A **********************************02390907 ! 243: C**** FORMATS FOR TEST DETAIL LINES 02400907 ! 244: C**** 02410907 ! 245: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02420907 ! 246: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02430907 ! 247: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02440907 ! 248: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02450907 ! 249: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02460907 ! 250: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02470907 ! 251: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02480907 ! 252: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02490907 ! 253: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02500907 ! 254: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02510907 ! 255: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02520907 ! 256: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02530907 ! 257: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02540907 ! 258: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02550907 ! 259: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02560907 ! 260: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02570907 ! 261: 80050 FORMAT (1H ,48X,A31) 02580907 ! 262: CBE** ********************** BBCFMT0A **********************************02590907 ! 263: CBB** ********************** BBCFMAT1 **********************************02600907 ! 264: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02610907 ! 265: C**** 02620907 ! 266: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02630907 ! 267: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02640907 ! 268: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02650907 ! 269: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02660907 ! 270: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02670907 ! 271: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02680907 ! 272: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02690907 ! 273: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02700907 ! 274: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02710907 ! 275: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02720907 ! 276: 21H(,F12.5,2H, ,F12.5,1H)) 02730907 ! 277: CBE** ********************** BBCFMAT1 **********************************02740907 ! 278: CBB** ********************** BBCFMT0B **********************************02750907 ! 279: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02760907 ! 280: C**** 02770907 ! 281: 90002 FORMAT (1H1) 02780907 ! 282: 90004 FORMAT (1H ) 02790907 ! 283: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02800907 ! 284: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02810907 ! 285: 90008 FORMAT (1H ,21X,A13,A17) 02820907 ! 286: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02830907 ! 287: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02840907 ! 288: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02850907 ! 289: 1 7X,7HREMARKS,24X) 02860907 ! 290: 90014 FORMAT (1H ,46H----------------------------------------------, 02870907 ! 291: 1 33H---------------------------------) 02880907 ! 292: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02890907 ! 293: C**** 02900907 ! 294: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02910907 ! 295: C**** 02920907 ! 296: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02930907 ! 297: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02940907 ! 298: 1 A13) 02950907 ! 299: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02960907 ! 300: C**** 02970907 ! 301: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02980907 ! 302: C**** 02990907 ! 303: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03000907 ! 304: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03010907 ! 305: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03020907 ! 306: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03030907 ! 307: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03040907 ! 308: CBE** ********************** BBCFMT0B **********************************03050907 ! 309: C***** 03060907 ! 310: C***** END OF TEST SEGMENT 373 03070907 ! 311: STOP 03080907 ! 312: END 03090907
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.