![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM916.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 FM916.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***********************************************************************00010916 ! 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 00020916 ! 6: C***** FM916 00030916 ! 7: C***** INQU3 - (432) 00040916 ! 8: C***** 00050916 ! 9: C***********************************************************************00060916 ! 10: C***** GENERAL PURPOSE ANS REF 00070916 ! 11: C***** TEST INQUIRE BY UNIT ON DIRECT, FORMATTED FILE 12.10.3 00080916 ! 12: C***** 00090916 ! 13: C***** THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100916 ! 14: C***** UNIT THAT IS CONNECTED FOR FORMATTED, DIRECT ACCESS 00110916 ! 15: C***** (ANS REF. 12.2.4.2 AND 12.9.5.2) 00120916 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130916 ! 17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140916 ! 18: C***** 00150916 ! 19: CBB** ********************** BBCCOMNT **********************************00160916 ! 20: C**** 00170916 ! 21: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180916 ! 22: C**** VERSION 2.0 00190916 ! 23: C**** 00200916 ! 24: C**** 00210916 ! 25: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220916 ! 26: C**** GENERAL SERVICES ADMINISTRATION 00230916 ! 27: C**** FEDERAL SOFTWARE TESTING CENTER 00240916 ! 28: C**** 5203 LEESBURG PIKE, SUITE 1100 00250916 ! 29: C**** FALLS CHURCH, VA. 22041 00260916 ! 30: C**** 00270916 ! 31: C**** (703) 756-6153 00280916 ! 32: C**** 00290916 ! 33: CBE** ********************** BBCCOMNT **********************************00300916 ! 34: C***** 00310916 ! 35: LOGICAL AVB, BVB 00320916 ! 36: CHARACTER*10 B10VK, D10VK, E11VK*11, F10VK, H10VK 00330916 ! 37: CBB** ********************** BBCINITA **********************************00340916 ! 38: C**** SPECIFICATION STATEMENTS 00350916 ! 39: C**** 00360916 ! 40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370916 ! 41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380916 ! 42: CBE** ********************** BBCINITA **********************************00390916 ! 43: CBB** ********************** BBCINITB **********************************00400916 ! 44: C**** INITIALIZE SECTION 00410916 ! 45: DATA ZVERS, ZVERSD, ZDATE 00420916 ! 46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430916 ! 47: DATA ZCOMPL, ZNAME, ZTAPE 00440916 ! 48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450916 ! 49: DATA ZPROJ, ZTAPED, ZPROG 00460916 ! 50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470916 ! 51: DATA REMRKS /' '/ 00480916 ! 52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490916 ! 53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500916 ! 54: C**** 00510916 ! 55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520916 ! 56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530916 ! 57: CZ03 ZPROG = 'PROGRAM NAME' 00540916 ! 58: ZDATE = '07-Nov-85 ' *RP ! 59: ZCOMPL = 'CCI 5.2 ' *RP ! 60: ZPROJ = 'TC-85- -410' *RP ! 61: ZNAME = ' ' *RP ! 62: ZTAPE = ' ' *RP ! 63: ZTAPED = '850703 ' *RP ! 64: C 00610916 ! 65: IVPASS = 0 00620916 ! 66: IVFAIL = 0 00630916 ! 67: IVDELE = 0 00640916 ! 68: IVINSP = 0 00650916 ! 69: IVTOTL = 0 00660916 ! 70: IVTOTN = 0 00670916 ! 71: ICZERO = 0 00680916 ! 72: C 00690916 ! 73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700916 ! 74: I01 = 05 00710916 ! 75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720916 ! 76: I02 = 06 00730916 ! 77: C 00740916 ! 78: I01 = 5 00750916 ! 79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760916 ! 80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770916 ! 81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780916 ! 82: C 00790916 ! 83: I02 = 6 00800916 ! 84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810916 ! 85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820916 ! 86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830916 ! 87: C 00840916 ! 88: CBE** ********************** BBCINITB **********************************00850916 ! 89: C***** 00860916 ! 90: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00870916 ! 91: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00880916 ! 92: C***** DIRECT, FORMATTED FILE. 00890916 ! 93: C***** S C R A T C H D I R E C T A C C E S S U N I T 00900916 ! 94: I14 = 14 00910916 ! 95: OPEN(UNIT=I14,ACCESS='DIRECT',FORM='FORMATTED',RECL=40) 00920916 ! 96: C X-140 I14 = NN WILL OVERRIDE I14 = 14 00930916 ! 97: C***** 00940916 ! 98: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 00950916 ! 99: C***** NOT A VALID RECORD LENGTH. 00960916 ! 100: MVI = 40 00970916 ! 101: C***** 00980916 ! 102: NUVI = I02 00990916 ! 103: IOVI = I14 01000916 ! 104: ZPROG = 'FM916' 01010916 ! 105: IVTOTL = 1 01020916 ! 106: CBB** ********************** BBCHED0A **********************************01030916 ! 107: C**** 01040916 ! 108: C**** WRITE REPORT TITLE 01050916 ! 109: C**** 01060916 ! 110: WRITE (I02, 90002) 01070916 ! 111: WRITE (I02, 90006) 01080916 ! 112: WRITE (I02, 90007) 01090916 ! 113: WRITE (I02, 90008) ZVERS, ZVERSD 01100916 ! 114: WRITE (I02, 90009) ZPROG, ZPROG 01110916 ! 115: WRITE (I02, 90010) ZDATE, ZCOMPL 01120916 ! 116: CBE** ********************** BBCHED0A **********************************01130916 ! 117: C***** 01140916 ! 118: WRITE(NUVI,43200) 01150916 ! 119: 43200 FORMAT(1H , / 30H INQU3 - (432) INQUIRE BY UNIT// 01160916 ! 120: 1 29H DIRECT ACCESS FORMATTED FILE// 01170916 ! 121: 2 19H ANS REF. - 12.10.3) 01180916 ! 122: CBB** ********************** BBCHED0B **********************************01190916 ! 123: C**** WRITE DETAIL REPORT HEADERS 01200916 ! 124: C**** 01210916 ! 125: WRITE (I02,90004) 01220916 ! 126: WRITE (I02,90004) 01230916 ! 127: WRITE (I02,90013) 01240916 ! 128: WRITE (I02,90014) 01250916 ! 129: WRITE (I02,90015) IVTOTL 01260916 ! 130: CBE** ********************** BBCHED0B **********************************01270916 ! 131: C***** 01280916 ! 132: C***** OPEN FILE 01290916 ! 133: OPEN(UNIT=IOVI, ACCESS='DIRECT', RECL=MVI, FORM='FORMATTED', 01300916 ! 134: 1 BLANK='NULL') 01310916 ! 135: C***** 01320916 ! 136: C***** TEST 1 - FIRST INQUIRE (AFTER OPEN) 01330916 ! 137: IVTNUM = 1 01340916 ! 138: INQUIRE(UNIT=IOVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01350916 ! 139: 1 ACCESS=B10VK, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 01360916 ! 140: 2 FORM=E11VK, FORMATTED=F10VK, BLANK=H10VK, ERR=20014, 01370916 ! 141: 3 IOSTAT=NVI) 01380916 ! 142: C***** 01390916 ! 143: IF (NVI .NE. 0) GO TO 20010 01400916 ! 144: IF (.NOT. AVB) GO TO 20010 01410916 ! 145: IF (.NOT. BVB) GO TO 20010 01420916 ! 146: IF (JVI .NE. IOVI) GO TO 20010 01430916 ! 147: IF (B10VK .NE. 'DIRECT') GO TO 20010 01440916 ! 148: IF (D10VK .NE. 'YES') GO TO 20010 01450916 ! 149: IF (KVI .NE. MVI) GO TO 20010 01460916 ! 150: IF (LVI .NE. 1) GO TO 20010 01470916 ! 151: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01480916 ! 152: IF (F10VK .NE. 'YES' ) GO TO 20010 01490916 ! 153: IF (H10VK .NE. 'NULL') GO TO 20010 01500916 ! 154: WRITE (NUVI, 80002) IVTNUM 01510916 ! 155: IVPASS = IVPASS + 1 01520916 ! 156: GO TO 0011 01530916 ! 157: 20014 CONTINUE 01540916 ! 158: WRITE (NUVI, 20015) IVTNUM 01550916 ! 159: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01560916 ! 160: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01570916 ! 161: GO TO 20016 01580916 ! 162: 20010 CONTINUE 01590916 ! 163: WRITE (NUVI, 20011) IVTNUM 01600916 ! 164: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01610916 ! 165: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01620916 ! 166: 20016 IVFAIL = IVFAIL + 1 01630916 ! 167: WRITE (NUVI, 20012) NVI,AVB,BVB,JVI,B10VK,D10VK, 01640916 ! 168: 1 KVI,LVI,E11VK,F10VK,H10VK 01650916 ! 169: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01660916 ! 170: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01670916 ! 171: 2 1H ,26X,7HACCESS=,A10,9H, DIRECT=,A3,7H, RECL=, 01680916 ! 172: 3 I4,1H,/1H ,26X,8HNEXTREC=,I4,7H, FORM=, 01690916 ! 173: 4 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01700916 ! 174: WRITE (NUVI, 20013) IOVI,MVI 01710916 ! 175: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01720916 ! 176: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01730916 ! 177: 2 1H ,26X,32HACCESS=DIRECT, DIRECT=YES, RECL=, 01740916 ! 178: 3 I4,1H,/1H ,26X,26HNEXTREC=1, FORM=FORMATTED,/ 01750916 ! 179: 4 1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01760916 ! 180: 0011 CONTINUE 01770916 ! 181: C***** 01780916 ! 182: CLOSE(UNIT=IOVI, STATUS='DELETE') 01790916 ! 183: C***** 01800916 ! 184: CBB** ********************** BBCSUM0 **********************************01810916 ! 185: C**** WRITE OUT TEST SUMMARY 01820916 ! 186: C**** 01830916 ! 187: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01840916 ! 188: WRITE (I02, 90004) 01850916 ! 189: WRITE (I02, 90014) 01860916 ! 190: WRITE (I02, 90004) 01870916 ! 191: WRITE (I02, 90020) IVPASS 01880916 ! 192: WRITE (I02, 90022) IVFAIL 01890916 ! 193: WRITE (I02, 90024) IVDELE 01900916 ! 194: WRITE (I02, 90026) IVINSP 01910916 ! 195: WRITE (I02, 90028) IVTOTN, IVTOTL 01920916 ! 196: CBE** ********************** BBCSUM0 **********************************01930916 ! 197: CBB** ********************** BBCFOOT0 **********************************01940916 ! 198: C**** WRITE OUT REPORT FOOTINGS 01950916 ! 199: C**** 01960916 ! 200: WRITE (I02,90016) ZPROG, ZPROG 01970916 ! 201: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01980916 ! 202: WRITE (I02,90019) 01990916 ! 203: CBE** ********************** BBCFOOT0 **********************************02000916 ! 204: CBB** ********************** BBCFMT0A **********************************02010916 ! 205: C**** FORMATS FOR TEST DETAIL LINES 02020916 ! 206: C**** 02030916 ! 207: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02040916 ! 208: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02050916 ! 209: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02060916 ! 210: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02070916 ! 211: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02080916 ! 212: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02090916 ! 213: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02100916 ! 214: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02110916 ! 215: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02120916 ! 216: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02130916 ! 217: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02140916 ! 218: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02150916 ! 219: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02160916 ! 220: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02170916 ! 221: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02180916 ! 222: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02190916 ! 223: 80050 FORMAT (1H ,48X,A31) 02200916 ! 224: CBE** ********************** BBCFMT0A **********************************02210916 ! 225: CBB** ********************** BBCFMT0B **********************************02220916 ! 226: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02230916 ! 227: C**** 02240916 ! 228: 90002 FORMAT (1H1) 02250916 ! 229: 90004 FORMAT (1H ) 02260916 ! 230: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02270916 ! 231: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02280916 ! 232: 90008 FORMAT (1H ,21X,A13,A17) 02290916 ! 233: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02300916 ! 234: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02310916 ! 235: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02320916 ! 236: 1 7X,7HREMARKS,24X) 02330916 ! 237: 90014 FORMAT (1H ,46H----------------------------------------------, 02340916 ! 238: 1 33H---------------------------------) 02350916 ! 239: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02360916 ! 240: C**** 02370916 ! 241: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02380916 ! 242: C**** 02390916 ! 243: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02400916 ! 244: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02410916 ! 245: 1 A13) 02420916 ! 246: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02430916 ! 247: C**** 02440916 ! 248: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02450916 ! 249: C**** 02460916 ! 250: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02470916 ! 251: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02480916 ! 252: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02490916 ! 253: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02500916 ! 254: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02510916 ! 255: CBE** ********************** BBCFMT0B **********************************02520916 ! 256: C***** 02530916 ! 257: C***** END OF TEST SEGMENT 432 02540916 ! 258: STOP 02550916 ! 259: END 02560916
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.