![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM914.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 FM914.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***********************************************************************00010914 ! 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***** FM914 00020914 ! 6: C***** INQU1 - (430) 00030914 ! 7: C***** 00040914 ! 8: C***********************************************************************00050914 ! 9: C***** GENERAL PURPOSE ANS REF 00060914 ! 10: C***** TEST INQUIRE BY UNIT ON SEQUENTIAL, FORMATTED FILES 12.10.3 00070914 ! 11: C***** 00080914 ! 12: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00090914 ! 13: C***** UNIT THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00100914 ! 14: C***** (ANS REF. 12.2.4.1 AND 12.9.5.2) 00110914 ! 15: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00120914 ! 16: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00130914 ! 17: C***********************************************************************00140914 ! 18: CBB** ********************** BBCCOMNT **********************************00150914 ! 19: C**** 00160914 ! 20: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170914 ! 21: C**** VERSION 2.0 00180914 ! 22: C**** 00190914 ! 23: C**** 00200914 ! 24: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210914 ! 25: C**** GENERAL SERVICES ADMINISTRATION 00220914 ! 26: C**** FEDERAL SOFTWARE TESTING CENTER 00230914 ! 27: C**** 5203 LEESBURG PIKE, SUITE 1100 00240914 ! 28: C**** FALLS CHURCH, VA. 22041 00250914 ! 29: C**** 00260914 ! 30: C**** (703) 756-6153 00270914 ! 31: C**** 00280914 ! 32: CBE** ********************** BBCCOMNT **********************************00290914 ! 33: LOGICAL AVB, BVB 00300914 ! 34: CHARACTER*10 B10VK, C10VK, E11VK*11, F10VK, H10VK 00310914 ! 35: CBB** ********************** BBCINITA **********************************00320914 ! 36: C**** SPECIFICATION STATEMENTS 00330914 ! 37: C**** 00340914 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350914 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360914 ! 40: CBE** ********************** BBCINITA **********************************00370914 ! 41: CBB** ********************** BBCINITB **********************************00380914 ! 42: C**** INITIALIZE SECTION 00390914 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400914 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410914 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420914 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430914 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440914 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450914 ! 49: DATA REMRKS /' '/ 00460914 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470914 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480914 ! 52: C**** 00490914 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500914 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510914 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520914 ! 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 00590914 ! 63: IVPASS = 0 00600914 ! 64: IVFAIL = 0 00610914 ! 65: IVDELE = 0 00620914 ! 66: IVINSP = 0 00630914 ! 67: IVTOTL = 0 00640914 ! 68: IVTOTN = 0 00650914 ! 69: ICZERO = 0 00660914 ! 70: C 00670914 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680914 ! 72: I01 = 05 00690914 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700914 ! 74: I02 = 06 00710914 ! 75: C 00720914 ! 76: I01 = 5 00730914 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740914 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750914 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760914 ! 80: C 00770914 ! 81: I02 = 6 00780914 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790914 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800914 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810914 ! 85: C 00820914 ! 86: CBE** ********************** BBCINITB **********************************00830914 ! 87: C***** 00840914 ! 88: C I08 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00850914 ! 89: I08 = 14 00860914 ! 90: OPEN(UNIT=I08,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00870914 ! 91: C SPECIFYING I08 = NN OVERRIDES THE DEFAULT I08 = 14. 00880914 ! 92: C***** 00890914 ! 93: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900914 ! 94: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910914 ! 95: C***** SEQUENTIAL, FORMATTED FILE. 00920914 ! 96: C***** 00930914 ! 97: NUVI = I02 00940914 ! 98: IMVI = I08 00950914 ! 99: ZPROG = 'FM914' 00960914 ! 100: IVTOTL = 1 00970914 ! 101: CBB** ********************** BBCHED0A **********************************00980914 ! 102: C**** 00990914 ! 103: C**** WRITE REPORT TITLE 01000914 ! 104: C**** 01010914 ! 105: WRITE (I02, 90002) 01020914 ! 106: WRITE (I02, 90006) 01030914 ! 107: WRITE (I02, 90007) 01040914 ! 108: WRITE (I02, 90008) ZVERS, ZVERSD 01050914 ! 109: WRITE (I02, 90009) ZPROG, ZPROG 01060914 ! 110: WRITE (I02, 90010) ZDATE, ZCOMPL 01070914 ! 111: CBE** ********************** BBCHED0A **********************************01080914 ! 112: C***** 01090914 ! 113: WRITE(NUVI,43000) 01100914 ! 114: 43000 FORMAT(1H , / 30H INQU1 - (430) INQUIRE BY UNIT// 01110914 ! 115: 1 45H SEQUENTIAL FORMATTED FILE, CONNECTED BY OPEN// 01120914 ! 116: 2 19H ANS REF. - 12.10.3) 01130914 ! 117: CBB** ********************** BBCHED0B **********************************01140914 ! 118: C**** WRITE DETAIL REPORT HEADERS 01150914 ! 119: C**** 01160914 ! 120: WRITE (I02,90004) 01170914 ! 121: WRITE (I02,90004) 01180914 ! 122: WRITE (I02,90013) 01190914 ! 123: WRITE (I02,90014) 01200914 ! 124: WRITE (I02,90015) IVTOTL 01210914 ! 125: CBE** ********************** BBCHED0B **********************************01220914 ! 126: C***** 01230914 ! 127: C***** OPEN FILE 01240914 ! 128: C***** 01250914 ! 129: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='FORMATTED', 01260914 ! 130: 1 BLANK='NULL') 01270914 ! 131: C***** 01280914 ! 132: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01290914 ! 133: IVTNUM = 1 01300914 ! 134: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01310914 ! 135: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01320914 ! 136: 2 FORMATTED=F10VK, BLANK=H10VK, ERR=20011, IOSTAT=KVI) 01330914 ! 137: IF (KVI .NE. 0) GO TO 20010 01340914 ! 138: IF (.NOT. AVB) GO TO 20010 01350914 ! 139: IF (.NOT. BVB) GO TO 20010 01360914 ! 140: IF (JVI .NE. IMVI) GO TO 20010 01370914 ! 141: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01380914 ! 142: IF (C10VK .NE. 'YES') GO TO 20010 01390914 ! 143: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01400914 ! 144: IF (F10VK .NE. 'YES' ) GO TO 20010 01410914 ! 145: IF (H10VK .NE. 'NULL') GO TO 20010 01420914 ! 146: WRITE (NUVI, 80002) IVTNUM 01430914 ! 147: IVPASS = IVPASS + 1 01440914 ! 148: GO TO 0011 01450914 ! 149: 20011 CONTINUE 01460914 ! 150: WRITE (NUVI, 20021) IVTNUM 01470914 ! 151: 20021 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01480914 ! 152: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01490914 ! 153: GO TO 20012 01500914 ! 154: 20010 CONTINUE 01510914 ! 155: WRITE (NUVI, 20020) IVTNUM 01520914 ! 156: 20020 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01530914 ! 157: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01540914 ! 158: 20012 CONTINUE 01550914 ! 159: IVFAIL = IVFAIL + 1 01560914 ! 160: WRITE (NUVI, 20030) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01570914 ! 161: 1 F10VK,H10VK 01580914 ! 162: 20030 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01590914 ! 163: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01600914 ! 164: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01610914 ! 165: 3 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01620914 ! 166: WRITE (NUVI, 20040) IMVI 01630914 ! 167: 20040 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01640914 ! 168: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01650914 ! 169: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01660914 ! 170: 3 10HFORMATTED,/1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01670914 ! 171: 0011 CONTINUE 01680914 ! 172: C***** 01690914 ! 173: REWIND IMVI 01700914 ! 174: CLOSE(UNIT=IMVI, STATUS='DELETE') 01710914 ! 175: CBB** ********************** BBCSUM0 **********************************01720914 ! 176: C**** WRITE OUT TEST SUMMARY 01730914 ! 177: C**** 01740914 ! 178: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01750914 ! 179: WRITE (I02, 90004) 01760914 ! 180: WRITE (I02, 90014) 01770914 ! 181: WRITE (I02, 90004) 01780914 ! 182: WRITE (I02, 90020) IVPASS 01790914 ! 183: WRITE (I02, 90022) IVFAIL 01800914 ! 184: WRITE (I02, 90024) IVDELE 01810914 ! 185: WRITE (I02, 90026) IVINSP 01820914 ! 186: WRITE (I02, 90028) IVTOTN, IVTOTL 01830914 ! 187: CBE** ********************** BBCSUM0 **********************************01840914 ! 188: CBB** ********************** BBCFOOT0 **********************************01850914 ! 189: C**** WRITE OUT REPORT FOOTINGS 01860914 ! 190: C**** 01870914 ! 191: WRITE (I02,90016) ZPROG, ZPROG 01880914 ! 192: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01890914 ! 193: WRITE (I02,90019) 01900914 ! 194: CBE** ********************** BBCFOOT0 **********************************01910914 ! 195: CBB** ********************** BBCFMT0A **********************************01920914 ! 196: C**** FORMATS FOR TEST DETAIL LINES 01930914 ! 197: C**** 01940914 ! 198: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01950914 ! 199: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01960914 ! 200: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01970914 ! 201: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01980914 ! 202: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01990914 ! 203: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02000914 ! 204: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02010914 ! 205: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02020914 ! 206: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02030914 ! 207: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02040914 ! 208: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02050914 ! 209: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02060914 ! 210: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02070914 ! 211: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02080914 ! 212: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02090914 ! 213: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02100914 ! 214: 80050 FORMAT (1H ,48X,A31) 02110914 ! 215: CBE** ********************** BBCFMT0A **********************************02120914 ! 216: CBB** ********************** BBCFMAT1 **********************************02130914 ! 217: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02140914 ! 218: C**** 02150914 ! 219: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02160914 ! 220: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02170914 ! 221: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02180914 ! 222: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02190914 ! 223: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02200914 ! 224: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02210914 ! 225: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02220914 ! 226: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02230914 ! 227: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02240914 ! 228: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02250914 ! 229: 21H(,F12.5,2H, ,F12.5,1H)) 02260914 ! 230: CBE** ********************** BBCFMAT1 **********************************02270914 ! 231: CBB** ********************** BBCFMT0B **********************************02280914 ! 232: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02290914 ! 233: C**** 02300914 ! 234: 90002 FORMAT (1H1) 02310914 ! 235: 90004 FORMAT (1H ) 02320914 ! 236: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02330914 ! 237: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02340914 ! 238: 90008 FORMAT (1H ,21X,A13,A17) 02350914 ! 239: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02360914 ! 240: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02370914 ! 241: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02380914 ! 242: 1 7X,7HREMARKS,24X) 02390914 ! 243: 90014 FORMAT (1H ,46H----------------------------------------------, 02400914 ! 244: 1 33H---------------------------------) 02410914 ! 245: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02420914 ! 246: C**** 02430914 ! 247: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02440914 ! 248: C**** 02450914 ! 249: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02460914 ! 250: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02470914 ! 251: 1 A13) 02480914 ! 252: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02490914 ! 253: C**** 02500914 ! 254: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02510914 ! 255: C**** 02520914 ! 256: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02530914 ! 257: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02540914 ! 258: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02550914 ! 259: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02560914 ! 260: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02570914 ! 261: CBE** ********************** BBCFMT0B **********************************02580914 ! 262: C***** 02590914 ! 263: C***** END OF TEST SEGMENT 914 02600914 ! 264: STOP 02610914 ! 265: END 02620914
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.