![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM918.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 FM918.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***********************************************************************00010918 ! 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 00020918 ! 6: C***** FM918 00030918 ! 7: C***** INQU5 - (434) 00040918 ! 8: C***** 00050918 ! 9: C***********************************************************************00060918 ! 10: C***** GENERAL PURPOSE ANS REF 00070918 ! 11: C***** TEST INQUIRE BY UNIT ON A UNIT THAT IS NOT 12.10.3 00080918 ! 12: C***** CONNECTED TO A FILE. 00090918 ! 13: C***** 00100918 ! 14: C***** THE TESTS IN THIS UNIT ARE ONLY BE PERFORMED ON A 00110918 ! 15: C***** UNIT THAT IS NOT CONNECTED TO A FILE. 00120918 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND THEN 00130918 ! 17: C***** PERFORMS A CLOSE WITH STATUS='DELETE' IN ORDER TO 00140918 ! 18: C***** ENSURE THAT THE UNIT IS NOT CONNECTED. (ANS REF 12.10.2) 00150918 ! 19: C***********************************************************************00160918 ! 20: CBB** ********************** BBCCOMNT **********************************00170918 ! 21: C**** 00180918 ! 22: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00190918 ! 23: C**** VERSION 2.0 00200918 ! 24: C**** 00210918 ! 25: C**** 00220918 ! 26: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00230918 ! 27: C**** GENERAL SERVICES ADMINISTRATION 00240918 ! 28: C**** FEDERAL SOFTWARE TESTING CENTER 00250918 ! 29: C**** 5203 LEESBURG PIKE, SUITE 1100 00260918 ! 30: C**** FALLS CHURCH, VA. 22041 00270918 ! 31: C**** 00280918 ! 32: C**** (703) 756-6153 00290918 ! 33: C**** 00300918 ! 34: CBE** ********************** BBCCOMNT **********************************00310918 ! 35: C***** 00320918 ! 36: LOGICAL AVB, BVB 00330918 ! 37: CHARACTER*10 C10VK, D10VK, F10VK, G10VK 00340918 ! 38: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00350918 ! 39: CBB** ********************** BBCINITA **********************************00360918 ! 40: C**** SPECIFICATION STATEMENTS 00370918 ! 41: C**** 00380918 ! 42: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00390918 ! 43: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00400918 ! 44: CBE** ********************** BBCINITA **********************************00410918 ! 45: CBB** ********************** BBCINITB **********************************00420918 ! 46: C**** INITIALIZE SECTION 00430918 ! 47: DATA ZVERS, ZVERSD, ZDATE 00440918 ! 48: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00450918 ! 49: DATA ZCOMPL, ZNAME, ZTAPE 00460918 ! 50: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00470918 ! 51: DATA ZPROJ, ZTAPED, ZPROG 00480918 ! 52: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00490918 ! 53: DATA REMRKS /' '/ 00500918 ! 54: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00510918 ! 55: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00520918 ! 56: C**** 00530918 ! 57: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00540918 ! 58: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00550918 ! 59: CZ03 ZPROG = 'PROGRAM NAME' 00560918 ! 60: ZDATE = '07-Nov-85 ' *RP ! 61: ZCOMPL = 'CCI 5.2 ' *RP ! 62: ZPROJ = 'TC-85- -410' *RP ! 63: ZNAME = ' ' *RP ! 64: ZTAPE = ' ' *RP ! 65: ZTAPED = '850703 ' *RP ! 66: C 00630918 ! 67: IVPASS = 0 00640918 ! 68: IVFAIL = 0 00650918 ! 69: IVDELE = 0 00660918 ! 70: IVINSP = 0 00670918 ! 71: IVTOTL = 0 00680918 ! 72: IVTOTN = 0 00690918 ! 73: ICZERO = 0 00700918 ! 74: C 00710918 ! 75: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00720918 ! 76: I01 = 05 00730918 ! 77: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00740918 ! 78: I02 = 06 00750918 ! 79: C 00760918 ! 80: I01 = 5 00770918 ! 81: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00780918 ! 82: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00790918 ! 83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00800918 ! 84: C 00810918 ! 85: I02 = 6 00820918 ! 86: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00830918 ! 87: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00840918 ! 88: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00850918 ! 89: C 00860918 ! 90: CBE** ********************** BBCINITB **********************************00870918 ! 91: C***** 00880918 ! 92: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00890918 ! 93: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00900918 ! 94: C***** SEQUENTIAL, FORMATTED FILE. 00910918 ! 95: C***** 00920918 ! 96: C I15 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00930918 ! 97: I15 = 14 00940918 ! 98: OPEN(UNIT=I15,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00950918 ! 99: C SPECIFYING I15 = NN OVERRIDES THE DEFAULT I15 = 14. 00960918 ! 100: C***** 00970918 ! 101: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 00980918 ! 102: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 00990918 ! 103: C***** FORMATTED FILE. 01000918 ! 104: C***** 01010918 ! 105: NUVI = I02 01020918 ! 106: IMVI = I15 01030918 ! 107: ZPROG = 'FM918' 01040918 ! 108: IVTOTL = 1 01050918 ! 109: CBB** ********************** BBCHED0A **********************************01060918 ! 110: C**** 01070918 ! 111: C**** WRITE REPORT TITLE 01080918 ! 112: C**** 01090918 ! 113: WRITE (I02, 90002) 01100918 ! 114: WRITE (I02, 90006) 01110918 ! 115: WRITE (I02, 90007) 01120918 ! 116: WRITE (I02, 90008) ZVERS, ZVERSD 01130918 ! 117: WRITE (I02, 90009) ZPROG, ZPROG 01140918 ! 118: WRITE (I02, 90010) ZDATE, ZCOMPL 01150918 ! 119: CBE** ********************** BBCHED0A **********************************01160918 ! 120: C***** 01170918 ! 121: WRITE(NUVI,43400) 01180918 ! 122: 43400 FORMAT(1H , / 30H INQU5 - (434) INQUIRE BY UNIT// 01190918 ! 123: 1 29H UNIT NOT CONNECTED TO A FILE// 01200918 ! 124: 2 19H ANS REF. - 12.10.3) 01210918 ! 125: CBB** ********************** BBCHED0B **********************************01220918 ! 126: C**** WRITE DETAIL REPORT HEADERS 01230918 ! 127: C**** 01240918 ! 128: WRITE (I02,90004) 01250918 ! 129: WRITE (I02,90004) 01260918 ! 130: WRITE (I02,90013) 01270918 ! 131: WRITE (I02,90014) 01280918 ! 132: WRITE (I02,90015) IVTOTL 01290918 ! 133: CBE** ********************** BBCHED0B **********************************01300918 ! 134: C***** 01310918 ! 135: C***** OPEN FILE 01320918 ! 136: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='FORMATTED') 01330918 ! 137: C***** DIS-CONNECT FILE 01340918 ! 138: CLOSE(UNIT=IMVI, STATUS='DELETE') 01350918 ! 139: C***** 01360918 ! 140: CT001* TEST 1 - INQUIRE ON UNIT NOT CONNECTED TO A FILE 01370918 ! 141: IVTNUM = 1 01380918 ! 142: INQUIRE(UNIT=IMVI, IOSTAT=IVI, EXIST=AVB, OPENED=BVB, 01390918 ! 143: 1 SEQUENTIAL=C10VK, DIRECT=D10VK, FORMATTED=F10VK, 01400918 ! 144: 2 UNFORMATTED=G10VK, ERR=20014) 01410918 ! 145: C***** 01420918 ! 146: IF (.NOT. AVB) GO TO 20010 01430918 ! 147: IF (BVB) GO TO 20010 01440918 ! 148: IF (IVI .NE. 0) GO TO 20010 01450918 ! 149: WRITE (NUVI, 80002) IVTNUM 01460918 ! 150: IVPASS = IVPASS + 1 01470918 ! 151: GO TO 0011 01480918 ! 152: 20014 CONTINUE 01490918 ! 153: WRITE (NUVI, 20015) IVTNUM 01500918 ! 154: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01510918 ! 155: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01520918 ! 156: GO TO 20016 01530918 ! 157: 20010 CONTINUE 01540918 ! 158: WRITE (NUVI, 20011) IVTNUM 01550918 ! 159: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01560918 ! 160: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01570918 ! 161: 20016 IVFAIL = IVFAIL + 1 01580918 ! 162: WRITE (NUVI, 20012) IVI,AVB,BVB 01590918 ! 163: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01600918 ! 164: 1 9H ,OPENED=,L1) 01610918 ! 165: WRITE (NUVI, 20013) 01620918 ! 166: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01630918 ! 167: 1 8HOPENED=F/) 01640*TI ! 168: WRITE (NUVI, 20018) 01640*TI ! 169: 20018 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 01640*TI ! 170: 0011 CONTINUE 01650918 ! 171: C***** 01660918 ! 172: CBB** ********************** BBCSUM0 **********************************01670918 ! 173: C**** WRITE OUT TEST SUMMARY 01680918 ! 174: C**** 01690918 ! 175: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01700918 ! 176: WRITE (I02, 90004) 01710918 ! 177: WRITE (I02, 90014) 01720918 ! 178: WRITE (I02, 90004) 01730918 ! 179: WRITE (I02, 90020) IVPASS 01740918 ! 180: WRITE (I02, 90022) IVFAIL 01750918 ! 181: WRITE (I02, 90024) IVDELE 01760918 ! 182: WRITE (I02, 90026) IVINSP 01770918 ! 183: WRITE (I02, 90028) IVTOTN, IVTOTL 01780918 ! 184: CBE** ********************** BBCSUM0 **********************************01790918 ! 185: CBB** ********************** BBCFOOT0 **********************************01800918 ! 186: C**** WRITE OUT REPORT FOOTINGS 01810918 ! 187: C**** 01820918 ! 188: WRITE (I02,90016) ZPROG, ZPROG 01830918 ! 189: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01840918 ! 190: WRITE (I02,90019) 01850918 ! 191: CBE** ********************** BBCFOOT0 **********************************01860918 ! 192: CBB** ********************** BBCFMT0A **********************************01870918 ! 193: C**** FORMATS FOR TEST DETAIL LINES 01880918 ! 194: C**** 01890918 ! 195: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01900918 ! 196: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01910918 ! 197: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01920918 ! 198: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01930918 ! 199: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01940918 ! 200: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01950918 ! 201: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01960918 ! 202: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01970918 ! 203: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01980918 ! 204: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01990918 ! 205: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02000918 ! 206: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02010918 ! 207: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02020918 ! 208: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02030918 ! 209: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02040918 ! 210: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02050918 ! 211: 80050 FORMAT (1H ,48X,A31) 02060918 ! 212: CBE** ********************** BBCFMT0A **********************************02070918 ! 213: CBB** ********************** BBCFMT0B **********************************02080918 ! 214: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02090918 ! 215: C**** 02100918 ! 216: 90002 FORMAT (1H1) 02110918 ! 217: 90004 FORMAT (1H ) 02120918 ! 218: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02130918 ! 219: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02140918 ! 220: 90008 FORMAT (1H ,21X,A13,A17) 02150918 ! 221: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02160918 ! 222: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02170918 ! 223: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02180918 ! 224: 1 7X,7HREMARKS,24X) 02190918 ! 225: 90014 FORMAT (1H ,46H----------------------------------------------, 02200918 ! 226: 1 33H---------------------------------) 02210918 ! 227: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02220918 ! 228: C**** 02230918 ! 229: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02240918 ! 230: C**** 02250918 ! 231: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02260918 ! 232: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02270918 ! 233: 1 A13) 02280918 ! 234: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02290918 ! 235: C**** 02300918 ! 236: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02310918 ! 237: C**** 02320918 ! 238: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02330918 ! 239: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02340918 ! 240: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02350918 ! 241: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02360918 ! 242: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02370918 ! 243: CBE** ********************** BBCFMT0B **********************************02380918 ! 244: C***** 02390918 ! 245: C***** END OF TEST SEGMENT 434 02400918 ! 246: STOP 02410918 ! 247: END 02420918
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.