![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM915.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 FM915.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***********************************************************************00010915 ! 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 00020915 ! 6: C***** FM915 00030915 ! 7: C***** INQU2 - (431) 00040915 ! 8: C***** 00050915 ! 9: C***********************************************************************00060915 ! 10: C***** GENERAL PURPOSE ANS REF 00070915 ! 11: C***** TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080915 ! 12: C***** 00090915 ! 13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100915 ! 14: C***** UNIT THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110915 ! 15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120915 ! 16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130915 ! 17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140915 ! 18: C***** THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150915 ! 19: C***** BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160915 ! 20: C***** AND AFTER READING FROM A FILE. 00170915 ! 21: C***********************************************************************00180915 ! 22: CBB** ********************** BBCCOMNT **********************************00190915 ! 23: C**** 00200915 ! 24: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00210915 ! 25: C**** VERSION 2.0 00220915 ! 26: C**** 00230915 ! 27: C**** 00240915 ! 28: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00250915 ! 29: C**** GENERAL SERVICES ADMINISTRATION 00260915 ! 30: C**** FEDERAL SOFTWARE TESTING CENTER 00270915 ! 31: C**** 5203 LEESBURG PIKE, SUITE 1100 00280915 ! 32: C**** FALLS CHURCH, VA. 22041 00290915 ! 33: C**** 00300915 ! 34: C**** (703) 756-6153 00310915 ! 35: C**** 00320915 ! 36: CBE** ********************** BBCCOMNT **********************************00330915 ! 37: LOGICAL AVB, BVB 00340915 ! 38: CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK 00350915 ! 39: C***** 00360915 ! 40: CBB** ********************** BBCINITA **********************************00370915 ! 41: C**** SPECIFICATION STATEMENTS 00380915 ! 42: C**** 00390915 ! 43: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00400915 ! 44: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00410915 ! 45: CBE** ********************** BBCINITA **********************************00420915 ! 46: CBB** ********************** BBCINITB **********************************00430915 ! 47: C**** INITIALIZE SECTION 00440915 ! 48: DATA ZVERS, ZVERSD, ZDATE 00450915 ! 49: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00460915 ! 50: DATA ZCOMPL, ZNAME, ZTAPE 00470915 ! 51: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00480915 ! 52: DATA ZPROJ, ZTAPED, ZPROG 00490915 ! 53: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00500915 ! 54: DATA REMRKS /' '/ 00510915 ! 55: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00520915 ! 56: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00530915 ! 57: C**** 00540915 ! 58: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00550915 ! 59: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00560915 ! 60: CZ03 ZPROG = 'PROGRAM NAME' 00570915 ! 61: ZDATE = '07-Nov-85 ' *RP ! 62: ZCOMPL = 'CCI 5.2 ' *RP ! 63: ZPROJ = 'TC-85- -410' *RP ! 64: ZNAME = ' ' *RP ! 65: ZTAPE = ' ' *RP ! 66: ZTAPED = '850703 ' *RP ! 67: C 00640915 ! 68: IVPASS = 0 00650915 ! 69: IVFAIL = 0 00660915 ! 70: IVDELE = 0 00670915 ! 71: IVINSP = 0 00680915 ! 72: IVTOTL = 0 00690915 ! 73: IVTOTN = 0 00700915 ! 74: ICZERO = 0 00710915 ! 75: C 00720915 ! 76: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00730915 ! 77: I01 = 05 00740915 ! 78: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00750915 ! 79: I02 = 06 00760915 ! 80: C 00770915 ! 81: I01 = 5 00780915 ! 82: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00790915 ! 83: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00800915 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00810915 ! 85: C 00820915 ! 86: I02 = 6 00830915 ! 87: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00840915 ! 88: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00850915 ! 89: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00860915 ! 90: C 00870915 ! 91: CBE** ********************** BBCINITB **********************************00880915 ! 92: C***** 00890915 ! 93: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900915 ! 94: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910915 ! 95: C***** SEQUENTIAL, UNFORMATTED FILE. 00920915 ! 96: C I05 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL UNFORMATTED FILE. 00930915 ! 97: I05 = 14 00940915 ! 98: OPEN(UNIT=I05,ACCESS='SEQUENTIAL',FORM='UNFORMATTED') 00950915 ! 99: C SPECIFYING I05 = NN OVERRIDES THE DEFAULT I05 = 14. 00960915 ! 100: C***** 00970915 ! 101: NUVI = I02 00980915 ! 102: IMVI = I05 00990915 ! 103: ZPROG = 'FM915' 01000915 ! 104: IVTOTL = 3 01010915 ! 105: CBB** ********************** BBCHED0A **********************************01020915 ! 106: C**** 01030915 ! 107: C**** WRITE REPORT TITLE 01040915 ! 108: C**** 01050915 ! 109: WRITE (I02, 90002) 01060915 ! 110: WRITE (I02, 90006) 01070915 ! 111: WRITE (I02, 90007) 01080915 ! 112: WRITE (I02, 90008) ZVERS, ZVERSD 01090915 ! 113: WRITE (I02, 90009) ZPROG, ZPROG 01100915 ! 114: WRITE (I02, 90010) ZDATE, ZCOMPL 01110915 ! 115: CBE** ********************** BBCHED0A **********************************01120915 ! 116: C***** 01130915 ! 117: WRITE(NUVI,43100) 01140915 ! 118: 43100 FORMAT(1H , / 30H INQU2 - (431) INQUIRE BY UNIT// 01150915 ! 119: 1 47H SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN// 01160915 ! 120: 2 19H ANS REF. - 12.10.3) 01170915 ! 121: CBB** ********************** BBCHED0B **********************************01180915 ! 122: C**** WRITE DETAIL REPORT HEADERS 01190915 ! 123: C**** 01200915 ! 124: WRITE (I02,90004) 01210915 ! 125: WRITE (I02,90004) 01220915 ! 126: WRITE (I02,90013) 01230915 ! 127: WRITE (I02,90014) 01240915 ! 128: WRITE (I02,90015) IVTOTL 01250915 ! 129: CBE** ********************** BBCHED0B **********************************01260915 ! 130: C***** 01270915 ! 131: C***** OPEN FILE 01280915 ! 132: C***** 01290915 ! 133: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='UNFORMATTED') 01300915 ! 134: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01310915 ! 135: IVTNUM = 1 01320915 ! 136: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01330915 ! 137: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01340915 ! 138: 2 UNFORMATTED=G10VK, ERR=20014, IOSTAT=KVI) 01350915 ! 139: C***** 01360915 ! 140: IF (KVI .NE. 0) GO TO 20010 01370915 ! 141: IF (.NOT. AVB) GO TO 20010 01380915 ! 142: IF (.NOT. BVB) GO TO 20010 01390915 ! 143: IF (JVI .NE. IMVI) GO TO 20010 01400915 ! 144: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01410915 ! 145: IF (C10VK. NE. 'YES') GO TO 20010 01420915 ! 146: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01430915 ! 147: IF (G10VK .NE. 'YES' ) GO TO 20010 01440915 ! 148: WRITE (NUVI, 80002) IVTNUM 01450915 ! 149: IVPASS = IVPASS + 1 01460915 ! 150: GO TO 0011 01470915 ! 151: 20014 CONTINUE 01480915 ! 152: WRITE (NUVI, 20015) IVTNUM 01490915 ! 153: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01500915 ! 154: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01510915 ! 155: GO TO 20016 01520915 ! 156: 20010 CONTINUE 01530915 ! 157: WRITE (NUVI, 20011) IVTNUM 01540915 ! 158: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01550915 ! 159: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01560915 ! 160: 20016 IVFAIL = IVFAIL + 1 01570915 ! 161: WRITE (NUVI, 20012) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01580915 ! 162: 1 G10VK 01590915 ! 163: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01600915 ! 164: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01610915 ! 165: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01620915 ! 166: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01630915 ! 167: WRITE (NUVI, 20013) IMVI 01640915 ! 168: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01650915 ! 169: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01660915 ! 170: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01670915 ! 171: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 01680915 ! 172: 0011 CONTINUE 01690915 ! 173: C***** 01700915 ! 174: C***** WRITE TO FILE 01710915 ! 175: C***** 01720915 ! 176: WRITE(IMVI) JVI 01730915 ! 177: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 01740915 ! 178: IVTNUM = 2 01750915 ! 179: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01760915 ! 180: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01770915 ! 181: 2 UNFORMATTED=G10VK, ERR=20024, IOSTAT=KVI) 01780915 ! 182: C***** 01790915 ! 183: IF (KVI .NE. 0) GO TO 20020 01800915 ! 184: IF (.NOT. AVB) GO TO 20020 01810915 ! 185: IF (.NOT. BVB) GO TO 20020 01820915 ! 186: IF (JVI .NE. IMVI) GO TO 20020 01830915 ! 187: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020 01840915 ! 188: IF (C10VK.NE. 'YES') GO TO 20020 01850915 ! 189: IF (E11VK .NE. 'UNFORMATTED') GO TO 20020 01860915 ! 190: IF (G10VK .NE. 'YES' ) GO TO 20020 01870915 ! 191: WRITE (NUVI, 80002) IVTNUM 01880915 ! 192: IVPASS = IVPASS + 1 01890915 ! 193: GO TO 0021 01900915 ! 194: 20024 CONTINUE 01910915 ! 195: WRITE (NUVI, 20025) IVTNUM 01920915 ! 196: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01930915 ! 197: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01940915 ! 198: GO TO 20026 01950915 ! 199: 20020 CONTINUE 01960915 ! 200: WRITE (NUVI, 20021) IVTNUM 01970915 ! 201: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01980915 ! 202: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01990915 ! 203: 20026 IVFAIL = IVFAIL + 1 02000915 ! 204: WRITE (NUVI, 20022) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02010915 ! 205: 1 G10VK 02020915 ! 206: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02030915 ! 207: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02040915 ! 208: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02050915 ! 209: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02060915 ! 210: WRITE (NUVI, 20023) IMVI 02070915 ! 211: 20023 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02080915 ! 212: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02090915 ! 213: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02100915 ! 214: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02110915 ! 215: 0021 CONTINUE 02120915 ! 216: C***** 02130915 ! 217: C***** REWIND AND READ FILE 02140915 ! 218: REWIND IMVI 02150915 ! 219: READ(IMVI) JVI 02160915 ! 220: REWIND IMVI 02170915 ! 221: C***** 02180915 ! 222: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02190915 ! 223: IVTNUM = 3 02200915 ! 224: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 02210915 ! 225: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 02220915 ! 226: 2 UNFORMATTED=G10VK, ERR=20034,IOSTAT=KVI) 02230915 ! 227: C***** 02240915 ! 228: IF (KVI .NE. 0) GO TO 20030 02250915 ! 229: IF (.NOT. AVB) GO TO 20030 02260915 ! 230: IF (.NOT. BVB) GO TO 20030 02270915 ! 231: IF (JVI .NE. IMVI) GO TO 20030 02280915 ! 232: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030 02290915 ! 233: IF (C10VK .NE. 'YES') GO TO 20030 02300915 ! 234: IF (E11VK .NE. 'UNFORMATTED') GO TO 20030 02310915 ! 235: IF (G10VK .NE. 'YES' ) GO TO 20030 02320915 ! 236: WRITE (NUVI, 80002) IVTNUM 02330915 ! 237: IVPASS = IVPASS + 1 02340915 ! 238: GO TO 0031 02350915 ! 239: 20034 CONTINUE 02360915 ! 240: WRITE (NUVI, 20035) IVTNUM 02370915 ! 241: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02380915 ! 242: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02390915 ! 243: GO TO 20036 02400915 ! 244: 20030 CONTINUE 02410915 ! 245: WRITE (NUVI, 20031) IVTNUM 02420915 ! 246: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02430915 ! 247: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02440915 ! 248: 20036 IVFAIL = IVFAIL + 1 02450915 ! 249: WRITE (NUVI, 20032) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02460915 ! 250: 1 G10VK 02470915 ! 251: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02480915 ! 252: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02490915 ! 253: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02500915 ! 254: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02510915 ! 255: WRITE (NUVI, 20033) IMVI 02520915 ! 256: 20033 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02530915 ! 257: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02540915 ! 258: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02550915 ! 259: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02560915 ! 260: 0031 CONTINUE 02570915 ! 261: CLOSE(UNIT=IMVI, STATUS='DELETE') 02580915 ! 262: C***** 02590915 ! 263: CBB** ********************** BBCSUM0 **********************************02600915 ! 264: C**** WRITE OUT TEST SUMMARY 02610915 ! 265: C**** 02620915 ! 266: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02630915 ! 267: WRITE (I02, 90004) 02640915 ! 268: WRITE (I02, 90014) 02650915 ! 269: WRITE (I02, 90004) 02660915 ! 270: WRITE (I02, 90020) IVPASS 02670915 ! 271: WRITE (I02, 90022) IVFAIL 02680915 ! 272: WRITE (I02, 90024) IVDELE 02690915 ! 273: WRITE (I02, 90026) IVINSP 02700915 ! 274: WRITE (I02, 90028) IVTOTN, IVTOTL 02710915 ! 275: CBE** ********************** BBCSUM0 **********************************02720915 ! 276: CBB** ********************** BBCFOOT0 **********************************02730915 ! 277: C**** WRITE OUT REPORT FOOTINGS 02740915 ! 278: C**** 02750915 ! 279: WRITE (I02,90016) ZPROG, ZPROG 02760915 ! 280: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02770915 ! 281: WRITE (I02,90019) 02780915 ! 282: CBE** ********************** BBCFOOT0 **********************************02790915 ! 283: CBB** ********************** BBCFMT0A **********************************02800915 ! 284: C**** FORMATS FOR TEST DETAIL LINES 02810915 ! 285: C**** 02820915 ! 286: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02830915 ! 287: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02840915 ! 288: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02850915 ! 289: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02860915 ! 290: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02870915 ! 291: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02880915 ! 292: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02890915 ! 293: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02900915 ! 294: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02910915 ! 295: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02920915 ! 296: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02930915 ! 297: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02940915 ! 298: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02950915 ! 299: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02960915 ! 300: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02970915 ! 301: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02980915 ! 302: 80050 FORMAT (1H ,48X,A31) 02990915 ! 303: CBE** ********************** BBCFMT0A **********************************03000915 ! 304: CBB** ********************** BBCFMAT1 **********************************03010915 ! 305: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03020915 ! 306: C**** 03030915 ! 307: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03040915 ! 308: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03050915 ! 309: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03060915 ! 310: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03070915 ! 311: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03080915 ! 312: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03090915 ! 313: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03100915 ! 314: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03110915 ! 315: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03120915 ! 316: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03130915 ! 317: 21H(,F12.5,2H, ,F12.5,1H)) 03140915 ! 318: CBE** ********************** BBCFMAT1 **********************************03150915 ! 319: CBB** ********************** BBCFMT0B **********************************03160915 ! 320: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03170915 ! 321: C**** 03180915 ! 322: 90002 FORMAT (1H1) 03190915 ! 323: 90004 FORMAT (1H ) 03200915 ! 324: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03210915 ! 325: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03220915 ! 326: 90008 FORMAT (1H ,21X,A13,A17) 03230915 ! 327: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03240915 ! 328: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03250915 ! 329: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03260915 ! 330: 1 7X,7HREMARKS,24X) 03270915 ! 331: 90014 FORMAT (1H ,46H----------------------------------------------, 03280915 ! 332: 1 33H---------------------------------) 03290915 ! 333: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03300915 ! 334: C**** 03310915 ! 335: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03320915 ! 336: C**** 03330915 ! 337: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03340915 ! 338: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03350915 ! 339: 1 A13) 03360915 ! 340: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03370915 ! 341: C**** 03380915 ! 342: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03390915 ! 343: C**** 03400915 ! 344: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03410915 ! 345: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03420915 ! 346: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03430915 ! 347: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03440915 ! 348: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03450915 ! 349: CBE** ********************** BBCFMT0B **********************************03460915 ! 350: C***** 03470915 ! 351: C***** END OF TEST SEGMENT 431 03480915 ! 352: STOP 03490915 ! 353: END 03500915
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.