![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM919.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 FM919.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***********************************************************************00010919 ! 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 00020919 ! 6: C***** FM919 00030919 ! 7: C***** INQF1 - (438) 00040919 ! 8: C***** 00050919 ! 9: C***********************************************************************00060919 ! 10: C***** GENERAL PURPOSE ANS REF 00070919 ! 11: C***** TEST INQUIRE BY FILE ON SEQUENTIAL, FORMATTED FILES 12.10.3 00080919 ! 12: C***** 00090919 ! 13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100919 ! 14: C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00110919 ! 15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.2) 00120919 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130919 ! 17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140919 ! 18: C***********************************************************************00150919 ! 19: CBB** ********************** BBCCOMNT **********************************00160919 ! 20: C**** 00170919 ! 21: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180919 ! 22: C**** VERSION 2.0 00190919 ! 23: C**** 00200919 ! 24: C**** 00210919 ! 25: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220919 ! 26: C**** GENERAL SERVICES ADMINISTRATION 00230919 ! 27: C**** FEDERAL SOFTWARE TESTING CENTER 00240919 ! 28: C**** 5203 LEESBURG PIKE, SUITE 1100 00250919 ! 29: C**** FALLS CHURCH, VA. 22041 00260919 ! 30: C**** 00270919 ! 31: C**** (703) 756-6153 00280919 ! 32: C**** 00290919 ! 33: CBE** ********************** BBCCOMNT **********************************00300919 ! 34: C***** 00310919 ! 35: LOGICAL AVB, BVB 00320919 ! 36: CHARACTER*10 B10VK, C10VK, E11VK*11, F10VK, H10VK 00330919 ! 37: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00340919 ! 38: CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00350919 ! 39: CHARACTER*15 CSEQ 00360919 ! 40: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-090 00370919 ! 41: C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00380919 ! 42: CBB** ********************** BBCINITA **********************************00390919 ! 43: C**** SPECIFICATION STATEMENTS 00400919 ! 44: C**** 00410919 ! 45: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00420919 ! 46: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00430919 ! 47: CBE** ********************** BBCINITA **********************************00440919 ! 48: CBB** ********************** BBCINITB **********************************00450919 ! 49: C**** INITIALIZE SECTION 00460919 ! 50: DATA ZVERS, ZVERSD, ZDATE 00470919 ! 51: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00480919 ! 52: DATA ZCOMPL, ZNAME, ZTAPE 00490919 ! 53: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00500919 ! 54: DATA ZPROJ, ZTAPED, ZPROG 00510919 ! 55: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00520919 ! 56: DATA REMRKS /' '/ 00530919 ! 57: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00540919 ! 58: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00550919 ! 59: C**** 00560919 ! 60: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00570919 ! 61: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00580919 ! 62: CZ03 ZPROG = 'PROGRAM NAME' 00590919 ! 63: ZDATE = '07-Nov-85 ' *RP ! 64: ZCOMPL = 'CCI 5.2 ' *RP ! 65: ZPROJ = 'TC-85- -410' *RP ! 66: ZNAME = ' ' *RP ! 67: ZTAPE = ' ' *RP ! 68: ZTAPED = '850703 ' *RP ! 69: C 00660919 ! 70: IVPASS = 0 00670919 ! 71: IVFAIL = 0 00680919 ! 72: IVDELE = 0 00690919 ! 73: IVINSP = 0 00700919 ! 74: IVTOTL = 0 00710919 ! 75: IVTOTN = 0 00720919 ! 76: ICZERO = 0 00730919 ! 77: C 00740919 ! 78: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00750919 ! 79: I01 = 05 00760919 ! 80: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00770919 ! 81: I02 = 06 00780919 ! 82: C 00790919 ! 83: I01 = 5 00800919 ! 84: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00810919 ! 85: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00820919 ! 86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00830919 ! 87: C 00840919 ! 88: I02 = 6 00850919 ! 89: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00860919 ! 90: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00870919 ! 91: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00880919 ! 92: C 00890919 ! 93: CBE** ********************** BBCINITB **********************************00900919 ! 94: C***** 00910919 ! 95: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00920919 ! 96: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00930919 ! 97: C***** SEQUENTIAL, FORMATTED FILE. 00940919 ! 98: C***** 00950919 ! 99: I09 = 14 00960919 ! 100: OPEN(UNIT=I09,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00970919 ! 101: C X-090 I09 = NN WILL OVERRIDE I09 = 14 00980919 ! 102: C***** 00990919 ! 103: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01000919 ! 104: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01010919 ! 105: C***** FORMATTED FILE. 01020919 ! 106: C***** 01030919 ! 107: C***** 01040919 ! 108: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050919 ! 109: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060919 ! 110: C***** FORMATTED FILE. 01070919 ! 111: C***** 01080919 ! 112: C CSEQ CONTAINS THE FILE NAME FOR UNIT I09. 01090919 ! 113: CSEQ = ' SEQFILE' 01100919 ! 114: C 01110919 ! 115: CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120919 ! 116: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130919 ! 117: C X-090 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140919 ! 118: C***** 01150919 ! 119: NUVI = I02 01160919 ! 120: IMVI = I09 01170919 ! 121: ZPROG = 'FM919' 01180919 ! 122: IVTOTL = 1 01190919 ! 123: CBB** ********************** BBCHED0A **********************************01200919 ! 124: C**** 01210919 ! 125: C**** WRITE REPORT TITLE 01220919 ! 126: C**** 01230919 ! 127: WRITE (I02, 90002) 01240919 ! 128: WRITE (I02, 90006) 01250919 ! 129: WRITE (I02, 90007) 01260919 ! 130: WRITE (I02, 90008) ZVERS, ZVERSD 01270919 ! 131: WRITE (I02, 90009) ZPROG, ZPROG 01280919 ! 132: WRITE (I02, 90010) ZDATE, ZCOMPL 01290919 ! 133: CBE** ********************** BBCHED0A **********************************01300919 ! 134: C***** 01310919 ! 135: WRITE(NUVI,43800) 01320919 ! 136: 43800 FORMAT(1H , / 30H INQF1 - (438) INQUIRE BY FILE// 01330919 ! 137: 1 45H SEQUENTIAL FORMATTED FILE, CONNECTED BY OPEN// 01340919 ! 138: 2 19H ANS REF. - 12.10.3) 01350919 ! 139: CBB** ********************** BBCHED0B **********************************01360919 ! 140: C**** WRITE DETAIL REPORT HEADERS 01370919 ! 141: C**** 01380919 ! 142: WRITE (I02,90004) 01390919 ! 143: WRITE (I02,90004) 01400919 ! 144: WRITE (I02,90013) 01410919 ! 145: WRITE (I02,90014) 01420919 ! 146: WRITE (I02,90015) IVTOTL 01430919 ! 147: CBE** ********************** BBCHED0B **********************************01440919 ! 148: C***** 01450919 ! 149: C***** OPEN FILE 01460919 ! 150: OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470919 ! 151: 1 FORM='FORMATTED', BLANK='NULL') 01480919 ! 152: C***** 01490919 ! 153: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500919 ! 154: IVTNUM = 1 01510919 ! 155: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520919 ! 156: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530919 ! 157: 2 FORMATTED=F10VK, BLANK=H10VK, ERR=20014, IOSTAT=IVI) 01540919 ! 158: 01550919 ! 159: IF (IVI .NE. 0) GO TO 20010 01560919 ! 160: IF (.NOT. AVB) GO TO 20010 01570919 ! 161: IF (.NOT. BVB) GO TO 20010 01580919 ! 162: IF (JVI .NE. IMVI) GO TO 20010 01590919 ! 163: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600919 ! 164: IF (C10VK .NE. 'YES') GO TO 20010 01610919 ! 165: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01620919 ! 166: IF (F10VK .NE. 'YES' ) GO TO 20010 01630919 ! 167: IF (H10VK .NE. 'NULL') GO TO 20010 01640919 ! 168: WRITE (NUVI, 80002) IVTNUM 01650919 ! 169: IVPASS = IVPASS + 1 01660919 ! 170: GO TO 0011 01670919 ! 171: 20014 CONTINUE 01680919 ! 172: WRITE (NUVI, 20015) IVTNUM 01690919 ! 173: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01700919 ! 174: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01710919 ! 175: GO TO 20016 01720919 ! 176: 20010 CONTINUE 01730919 ! 177: WRITE (NUVI, 20011) IVTNUM 01740919 ! 178: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01750919 ! 179: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01760919 ! 180: 20016 IVFAIL = IVFAIL + 1 01770919 ! 181: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01780919 ! 182: 1 F10VK,H10VK 01790919 ! 183: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01800919 ! 184: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01810919 ! 185: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01820919 ! 186: 3 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01830919 ! 187: WRITE (NUVI, 20013) IMVI 01840919 ! 188: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01850919 ! 189: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01860919 ! 190: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01870919 ! 191: 3 10HFORMATTED,/1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01880919 ! 192: 0011 CONTINUE 01890919 ! 193: C***** 01900919 ! 194: 43803 CLOSE(UNIT=IMVI, STATUS='DELETE') 01910919 ! 195: C***** 01920919 ! 196: CBB** ********************** BBCSUM0 **********************************01930919 ! 197: C**** WRITE OUT TEST SUMMARY 01940919 ! 198: C**** 01950919 ! 199: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01960919 ! 200: WRITE (I02, 90004) 01970919 ! 201: WRITE (I02, 90014) 01980919 ! 202: WRITE (I02, 90004) 01990919 ! 203: WRITE (I02, 90020) IVPASS 02000919 ! 204: WRITE (I02, 90022) IVFAIL 02010919 ! 205: WRITE (I02, 90024) IVDELE 02020919 ! 206: WRITE (I02, 90026) IVINSP 02030919 ! 207: WRITE (I02, 90028) IVTOTN, IVTOTL 02040919 ! 208: CBE** ********************** BBCSUM0 **********************************02050919 ! 209: CBB** ********************** BBCFOOT0 **********************************02060919 ! 210: C**** WRITE OUT REPORT FOOTINGS 02070919 ! 211: C**** 02080919 ! 212: WRITE (I02,90016) ZPROG, ZPROG 02090919 ! 213: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02100919 ! 214: WRITE (I02,90019) 02110919 ! 215: CBE** ********************** BBCFOOT0 **********************************02120919 ! 216: CBB** ********************** BBCFMT0A **********************************02130919 ! 217: C**** FORMATS FOR TEST DETAIL LINES 02140919 ! 218: C**** 02150919 ! 219: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02160919 ! 220: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02170919 ! 221: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02180919 ! 222: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02190919 ! 223: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02200919 ! 224: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02210919 ! 225: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02220919 ! 226: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02230919 ! 227: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02240919 ! 228: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02250919 ! 229: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02260919 ! 230: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02270919 ! 231: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02280919 ! 232: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02290919 ! 233: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02300919 ! 234: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02310919 ! 235: 80050 FORMAT (1H ,48X,A31) 02320919 ! 236: CBE** ********************** BBCFMT0A **********************************02330919 ! 237: CBB** ********************** BBCFMT0B **********************************02340919 ! 238: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02350919 ! 239: C**** 02360919 ! 240: 90002 FORMAT (1H1) 02370919 ! 241: 90004 FORMAT (1H ) 02380919 ! 242: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02390919 ! 243: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02400919 ! 244: 90008 FORMAT (1H ,21X,A13,A17) 02410919 ! 245: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02420919 ! 246: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02430919 ! 247: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02440919 ! 248: 1 7X,7HREMARKS,24X) 02450919 ! 249: 90014 FORMAT (1H ,46H----------------------------------------------, 02460919 ! 250: 1 33H---------------------------------) 02470919 ! 251: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02480919 ! 252: C**** 02490919 ! 253: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02500919 ! 254: C**** 02510919 ! 255: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02520919 ! 256: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02530919 ! 257: 1 A13) 02540919 ! 258: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02550919 ! 259: C**** 02560919 ! 260: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02570919 ! 261: C**** 02580919 ! 262: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02590919 ! 263: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02600919 ! 264: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02610919 ! 265: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02620919 ! 266: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02630919 ! 267: CBE** ********************** BBCFMT0B **********************************02640919 ! 268: C***** 02650919 ! 269: C***** END OF TEST SEGMENT 438 02660919 ! 270: STOP 02670919 ! 271: END 02680919
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.