PROGRAM FM403 C***********************************************************************00010403 C***** FORTRAN 77 00020403 C***** FM403 FMTRW - (020) 00030403 C***** 00040403 C***********************************************************************00050403 C***** GENERAL PURPOSE SUBSET REFS00060403 C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070403 C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080403 C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090403 C***** PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL 00100403 C***** DATA TYPES. 00110403 C***** RESTRICTIONS OBSERVED 12.8.2 00120403 C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130403 C***** * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 00140403 C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150403 C***** W IS EQUAL TO OR GREATER THAN D 00160403 C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170403 C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180403 C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190403 C***** IN THE FORMAT SPECIFICATION 00200403 C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210403 C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220403 C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230403 C***** * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.100240403 C***** INTEGER CONSTANTS 00250403 C***** GENERAL COMMENTS 00260403 C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270403 C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00280403 C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00290403 C***** RECORD DIVIDERS) 13.5.4 00300403 C***** 00310403 CBB** ********************** BBCCOMNT **********************************00320403 C**** 00330403 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00340403 C**** VERSION 2.1 00350403 C**** 00360403 C**** 00370403 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00380403 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00390403 C**** SOFTWARE STANDARDS VALIDATION GROUP 00400403 C**** BUILDING 225 RM A266 00410403 C**** GAITHERSBURG, MD 20899 00420403 C**** 00430403 C**** 00440403 C**** 00450403 CBE** ********************** BBCCOMNT **********************************00460403 C INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403 COL. 1----------------------------------------------------------61 00480403 CARD 1 999 00490403 CARD 2 555554444 00500403 CARD 3 666 777777 8 00510403 CARD 4 333333111112222222255555444444444444 00520403 CARD 5 7.7123456.7 00530403 CARD 6 8.889.9997.123456 00540403 CARD 7 5.44446.5555533.133.133.133.1444.1 00550403 CARD 8 5555.15555.1 66666.166666.1 44.22 00560403 CARD 9 2.12.12.12.12.1666.3334.3334.3334.333 00570403 CARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403 COL. 62------------77 00590403 CARD 10 00+0.9876543E+12 00600403 COL. 1----------------------------------------------------------61 00610403 CARD 11 TABC 00620403 CARD 12 FDEFFGHIT*+T1F/).TRUE..FALSE. 00630403 CARD 13 -9.9-9.9-9.9-9.9 00640403 CARD 14 9999999999 00650403 CARD 15 .9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9 00660403 CARD 16 TFTFTFTFTF 00670403 CARD 17 99999999 00680403 CARD 18 9999999999999999TFFT9.99.99.99.99.9 00690403 CARD 19 T F T F 00700403 CARD 20 3334444.555550 00710403 CARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 00720403 CARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 00730403 CARD 23 122333544888611222 00740403 CARD 24 455666233444966111 00750403 CARD 25 788999377555899777 00760403 CARD 26 11112 334 559 880 11 00770403 CARD 27 6 778 995 441 222 00 00780403 C***** 00790403 C***** S P E C I F I C A T I O N S SEGMENT 020 00800403 C***** 00810403 DIMENSION EP1S(33),CMA1S(5),IAC1I(5),IAC2I(2,7),MCA1I(5) 00820403 REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) 00830403 INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3) 00840403 LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB 00850403 C***** 00860403 CBB** ********************** BBCINITA **********************************00870403 C**** SPECIFICATION STATEMENTS 00880403 C**** 00890403 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00900403 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00910403 CBE** ********************** BBCINITA **********************************00920403 CBB** ********************** BBCINITB **********************************00930403 C**** INITIALIZE SECTION 00940403 DATA ZVERS, ZVERSD, ZDATE 00950403 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00960403 DATA ZCOMPL, ZNAME, ZTAPE 00970403 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00980403 DATA ZPROJ, ZTAPED, ZPROG 00990403 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01000403 DATA REMRKS /' '/ 01010403 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01020403 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01030403 C**** 01040403 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01050403 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01060403 CZ03 ZPROG = 'PROGRAM NAME' 01070403 CZ04 ZDATE = 'DATE OF TEST' 01080403 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 01090403 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01100403 CZ07 ZNAME = 'NAME OF USER' 01110403 CZ08 ZTAPE = 'TAPE OWNER/ID' 01120403 CZ09 ZTAPED = 'DATE TAPE COPIED' 01130403 C 01140403 IVPASS = 0 01150403 IVFAIL = 0 01160403 IVDELE = 0 01170403 IVINSP = 0 01180403 IVTOTL = 0 01190403 IVTOTN = 0 01200403 ICZERO = 0 01210403 C 01220403 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01230403 I01 = 05 01240403 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01250403 I02 = 06 01260403 C 01270403 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 01280403 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01290403 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01300403 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01310403 C 01320403 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 01330403 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01340403 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01350403 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01360403 C 01370403 CBE** ********************** BBCINITB **********************************01380403 C***** I N P U T - O U T P U T ASSIGNMENT STATEMENTS 01390403 IRVI = I01 01400403 NUVI = I02 01410403 IVTOTL = 59 01420403 ZPROG = 'FM403' 01430403 CBB** ********************** BBCHED0A **********************************01440403 C**** 01450403 C**** WRITE REPORT TITLE 01460403 C**** 01470403 WRITE (I02, 90002) 01480403 WRITE (I02, 90006) 01490403 WRITE (I02, 90007) 01500403 WRITE (I02, 90008) ZVERS, ZVERSD 01510403 WRITE (I02, 90009) ZPROG, ZPROG 01520403 WRITE (I02, 90010) ZDATE, ZCOMPL 01530403 CBE** ********************** BBCHED0A **********************************01540403 C***** HEADER FORMAT STATEMENT 01550403 2000 FORMAT ( // 2X,"FMTRW - (020) FORMATTED DATA TRANSFER" //2X, 01560403 1"SUBSET REFS - 12.9.5.2 13.3 13.5.9 " ) 01570403 WRITE (NUVI,2000) 01580403 CBB** ********************** BBCHED0B **********************************01590403 C**** WRITE DETAIL REPORT HEADERS 01600403 C**** 01610403 WRITE (I02,90004) 01620403 WRITE (I02,90004) 01630403 WRITE (I02,90013) 01640403 WRITE (I02,90014) 01650403 WRITE (I02,90015) IVTOTL 01660403 CBE** ********************** BBCHED0B **********************************01670403 CT001* TEST 1 - FORMAT WITH DIGITS 0-9 IN H FIELDS 01680403 IVTNUM = 1 01690403 REMRKS = '2 COMPUTED LINES EXPECTED' 01700403 WRITE (I02,80004) IVTNUM, REMRKS 01710403 WRITE (I02,80020) 01720403 WRITE (I02,70010) 01730403 70010 FORMAT (25X," 10101010101010101010" ,"999999999","88888888"/27X, 01740403 1"7777777","666666","55555","4444","333","22","1") 01750403 IVINSP = IVINSP + 1 01760403 WRITE (I02,70011) 01770403 70011 FORMAT(" ",16X,"CORRECT: " ,22X,"CORRESPONDING LINE MUST MATCH" )01780403 WRITE (I02,70012) 01790403 70012 FORMAT (25X,' 1010101010101010101099999999988888888', 01800403 1 /25X,' 7777777666666555554444333221 ') 01810403 CT002* TEST 2 - FORMAT CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND 01820403 C***** A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS 01830403 IVTNUM = 2 01840403 REMRKS = '9 COMPUTED LINES EXPECTED' 01850403 WRITE (I02,80004) IVTNUM, REMRKS 01860403 WRITE (I02,80020) 01870403 WRITE (I02,70020) 01880403 70020 FORMAT(27X,"AAA",5X," ","BBB",10X,"CCC"/28X,"DDD",9X,"EEE" 01890403 1," ","FFF"/29X,"GGG",8X,"HHH"," ","III"/27X," " 01900403 2,"JJJ"," ","KKK",7X,"LLL"/31X,"MMM",6X,"NNN"," ","OOO"/01910403 3 32X,"PPP"," ","QQQ",5X,"RRR"/33X,"SSS",4X,"TTT"," ","UUU"/01920403 4 27X, 01930403 5 " VVV ","WWW",3X,"XXX"/37X,"YYY",3X,"ZZZ") 01940403 IVINSP = IVINSP + 1 01950403 WRITE (I02,70011) 01960403 WRITE (I02,70021) 01970403 70021 FORMAT (27X,'AAA BBB CCC', 01980403 1 /27X,' DDD EEE FFF ', 01990403 2 /27X,' GGG HHH III ', 02000403 3 /27X,' JJJ KKK LLL ', 02010403 4 /27X,' MMM NNN OOO ', 02020403 5 /27X,' PPP QQQ RRR ', 02030403 6 /27X,' SSS TTT UUU ', 02040403 7 /27X,' VVV WWW XXX ', 02050403 8 /27X,' YYY ZZZ ') 02060403 CT003* TEST 3 - FORMAT CONTAINING H FIELD WITH ALL POSSIBLE 02070403 C***** SPECIAL CHARACTERS 02080403 IVTNUM = 3 02090403 WRITE (I02,80004) IVTNUM 02100403 WRITE (I02,80020) 02110403 WRITE (I02,70030) 02120403 70030 FORMAT (25X," = + - * / ( ) , . '" ) 02130403 IVINSP = IVINSP + 1 02140403 WRITE (I02,80022) 02150403 WRITE (I02,70031) 02160403 70031 FORMAT (25X, ' = + - * / ( ) , . ''') 02170403 C***** FORMAT TO TEST VERTICAL SPACING 02180403 C***** 12.9.5.2.3 02190403 CT004* TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR 02200403 IVTNUM = 4 02210403 REMRKS = 'SLASH DESCRIPTOR' 02220403 WRITE (I02,80004) IVTNUM, REMRKS 02230403 WRITE (I02,70040) 02240403 70040 FORMAT(15X, " FORMAT( ' SKIP 1 LINE'02250403 1 /)" /) 02260403 IVINSP = IVINSP + 1 02270403 WRITE (I02,70041) 02280403 70041 FORMAT(17X,"ONE BLANK LINE SHOULD APPEAR ABOVE" ) 02290403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02300403 WRITE (I02,90002) 02310403 WRITE (I02,90013) 02320403 WRITE (I02,90014) 02330403 CT005* TEST 5 - FORMAT STATEMENT ENDING WITH TWO SLASH DESCRIPTORS 02340403 IVTNUM = 5 02350403 WRITE (I02,80004) IVTNUM 02360403 WRITE (I02,70050) 02370403 70050 FORMAT(15X," FORMAT(' SKIP 2 LINES' //)" //) 02380403 IVINSP = IVINSP + 1 02390403 WRITE (I02,70051) 02400403 70051 FORMAT(17X,"TWO BLANK LINES SHOULD APPEAR ABOVE" ) 02410403 CT006* TEST 6 - FORMAT STATEMENT ENDING WITH THREE SLASH DESCRIPTORS 02420403 IVTNUM = 6 02430403 WRITE (I02,80004) IVTNUM 02440403 WRITE (I02,70060) 02450403 70060 FORMAT(15X," FORMAT(' SKIP 3 LINES ' ///)" ///) 02460403 IVINSP = IVINSP + 1 02470403 WRITE (I02,70061) 02480403 70061 FORMAT(17X,"THREE BLANK LINES SHOULD APPEAR ABOVE" ) 02490403 CT007* TEST 7 - FORMAT STATEMENT CONTAINING IMBEDDED SLASH DESCRIPTORS 02500403 IVTNUM = 7 02510403 REMRKS = 'IMBEDDED SLASHES' 02520403 WRITE (I02,80004) IVTNUM, REMRKS 02530403 WRITE (I02,70070) 02540403 70070 FORMAT( 17X,"1 BLANK LINE SHOULD APPEAR BELOW" // 02550403 1 17X,"2 BLANK LINES SHOULD APPEAR BELOW" /// 02560403 2 17X,"3 BLANK LINES SHOULD APPEAR BELOW" / 3(/), 02570403 3 17X,"0 BLANK LINES SHOULD APPEAR BELOW" / 02580403 4 17X,"END IMBEDDED SLASHES TEST " ) 02590403 IVINSP = IVINSP + 1 02600403 CT008* TEST 8 - FORMS CONTROL USING '0' FOR DOUBLE SPACING 02610403 IVTNUM = 8 02620403 REMRKS = 'DOUBLE SPACE' 02630403 WRITE (I02,80004) IVTNUM, REMRKS 02640403 WRITE (I02,70080) 02650403 70080 FORMAT( 17X,"1 BLANK LINE SHOULD APPEAR BELOW " / "0", 02660403 1 17X,"END DOUBLE SPACE TEST " ) 02670403 IVINSP = IVINSP + 1 02680403 CT009* TEST 9 - FORMS CONTROL USING '+' FOR OVERPRINTING 02690403 IVTNUM = 9 02700403 REMRKS = 'OVERPRINT' 02710403 WRITE (I02,80004) IVTNUM, REMRKS 02720403 WRITE (I02,70090) 02730403 70090 FORMAT(/17X,"!FIRST PRINT LINE! OVER" ,/"+", 02740403 1 17X," P R I N T !SECOND PRINT LINE!" )02750403 IVINSP = IVINSP + 1 02760403 CT010* TEST 10 - FORMS CONTROL USING '1' FOR PAGE EJECTION 02770403 IVTNUM = 10 02780403 REMRKS = 'PAGE ADVANCE' 02790403 WRITE (I02,80004) IVTNUM, REMRKS 02800403 WRITE (I02,70100) 02810403 70100 FORMAT(/17X,"THIS SHOULD BE THE LAST LINE ON THIS PAGE" /, 02820403 1"1 NEW PAGE: END OF VERTICAL SPACING TESTS" ) 02830403 IVINSP = IVINSP + 1 02840403 C WRITE PAGE HEADERS 02850403 WRITE (I02,90004) 02860403 WRITE (I02,90013) 02870403 WRITE (I02,90014) 02880403 C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 02890403 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 02900403 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 02910403 C***** FORMAT STATEMENTS CONTAIN REPEATED FIELDS. 02920403 C***** FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 02930403 C***** FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 02940403 C***** INPUT CARD 1 02950403 2009 FORMAT (2X,I3) 02960403 READ (IRVI,2009) JACVI 02970403 C***** INPUT CARD 2 02980403 2010 FORMAT (1X,I5,1X,I4) 02990403 READ (IRVI,2010) KBCVI, IAC1I(1) 03000403 C***** INPUT CARD 3 03010403 2011 FORMAT (2X,I3,2X,3I2,2X,I1) 03020403 READ (IRVI,2011) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03030403 C***** INPUT CARD 4 03040403 2012 FORMAT (2X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03050403 READ (IRVI,2012) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03060403 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03070403 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03080403 CT011* TEST 11 - I CONVERSION 03090403 IVTNUM = 11 03100403 WRITE (I02,80004) IVTNUM 03110403 WRITE (I02,80020) 03120403 WRITE (I02,70110) JACVI 03130403 70110 FORMAT (25X,I5) 03140403 IVINSP = IVINSP + 1 03150403 WRITE (I02,80022) 03160403 WRITE (I02,70111) 03170403 70111 FORMAT (25X," 999") 03180403 CT012* TEST 12 - I CONVERSION 03190403 IVTNUM = 12 03200403 WRITE (I02,80004) IVTNUM 03210403 WRITE (I02,80020) 03220403 WRITE (I02,70120) KBCVI, IAC1I(1) 03230403 70120 FORMAT (26X,I5,1X,I4) 03240403 IVINSP = IVINSP + 1 03250403 WRITE (I02,80022) 03260403 WRITE (I02,70121) 03270403 70121 FORMAT (26X," 5555 4444" ) 03280403 CT013* TEST 13 - I CONVERSION 03290403 IVTNUM = 13 03300403 WRITE (I02,80004) IVTNUM 03310403 WRITE (I02,80020) 03320403 WRITE (I02,70130) IAC2I(1,2),LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03330403 70130 FORMAT (27X,I3,2X,3I2,2X,I1) 03340403 IVINSP = IVINSP + 1 03350403 WRITE (I02,80022) 03360403 WRITE (I02,70131) 03370403 70131 FORMAT (27X,"666 777777 8" ) 03380403 CT014* TEST 14 - I CONVERSION 03390403 IVTNUM = 14 03400403 WRITE (I02,80004) IVTNUM 03410403 WRITE (I02,80020) 03420403 WRITE (I02,70140) 03430403 WRITE (I02,70140) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03440403 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03450403 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03460403 70140 FORMAT (27X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03470403 IVINSP = IVINSP + 1 03480403 WRITE (I02,80022) 03490403 WRITE (I02,70141) 03500403 70141 FORMAT (27X,"333333111112222222255555444444444444" ) 03510403 C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 03520403 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 03530403 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 03540403 C***** EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 03550403 C***** STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 03560403 C***** FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. 03570403 C***** FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 03580403 C***** DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE 03590403 C***** REPEATED 03600403 C***** INPUT CARD 5 03610403 2018 FORMAT (2X,F3.1,F8.1) 03620403 READ (IRVI,2018) ACVS, CMAVS 03630403 C***** INPUT CARD 6 03640403 2019 FORMAT(2X,F4.2,F5.3,F8.6) 03650403 READ (IRVI,2019) A1S(2), BCVS, CMBVS 03660403 C***** INPUT CARD 7 03670403 2020 FORMAT (2X,F6.4,F7.5,4F4.1,F5.1) 03680403 READ (IRVI,2020) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25), 03690403 1 AC2S(4,1) 03700403 C***** INPUT CARD 8 03710403 2021 FORMAT (2X,2(F6.1),2X,2F7.1 ,2X,F5.2) 03720403 READ (IRVI,2021) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 03730403 C***** INPUT CARD 9 03740403 2022 FORMAT (2X,5(F3.1),F7.3,3F5.3 ) 03750403 READ (IRVI,2022) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 03760403 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 03770403 CT015* TEST 15 - F CONVERSION 03780403 IVTNUM = 15 03790403 WRITE (I02,80004) IVTNUM 03800403 WRITE (I02,80020) 03810403 WRITE (I02,70150) ACVS, CMAVS 03820403 70150 FORMAT (27X,F3.1,F8.1) 03830403 IVINSP = IVINSP + 1 03840403 WRITE (I02,80022) 03850403 WRITE (I02,70151) 03860403 70151 FORMAT (27X,"7.7123456.7" ) 03870403 CT016* TEST 16 - F CONVERSION 03880403 IVTNUM = 16 03890403 WRITE (I02,80004) IVTNUM 03900403 WRITE (I02,80020) 03910403 WRITE (I02,70160) A1S(2), BCVS, CMBVS 03920403 70160 FORMAT(27X,F4.2,F5.3,F8.6) 03930403 IVINSP = IVINSP + 1 03940403 WRITE (I02,80022) 03950403 WRITE (I02,70161) 03960403 70161 FORMAT (27X,"8.889.9997.123456" ) 03970403 CT017* TEST 17 - F CONVERSION 03980403 IVTNUM = 17 03990403 WRITE (I02,80004) IVTNUM 04000403 WRITE (I02,80020) 04010403 WRITE (I02,70170) HHCVS,CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25) 04020403 1 ,AC2S(4,1) 04030403 70170 FORMAT (27X,F6.4,F7.5,4F4.1,F5.1) 04040403 IVINSP = IVINSP + 1 04050403 WRITE (I02,80022) 04060403 WRITE (I02,70171) 04070403 70171 FORMAT (27X,"5.44446.5555533.133.133.133.1444.1" ) 04080403 CT018* TEST 18 - F CONVERSION 04090403 IVTNUM = 18 04100403 WRITE (I02,80004) IVTNUM 04110403 WRITE (I02,80020) 04120403 WRITE (I02,70180) AC1S(18),AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 04130403 70180 FORMAT (27X,2(F6.1),2X,2F7.1 ,2X,F5.2) 04140403 IVINSP = IVINSP + 1 04150403 WRITE (I02,80022) 04160403 WRITE (I02,70181) 04170403 70181 FORMAT (27X,"5555.15555.1 66666.166666.1 44.22" ) 04180403 CT019* TEST 19 - F CONVERSION 04190403 IVTNUM = 19 04200403 WRITE (I02,80004) IVTNUM 04210403 WRITE (I02,80020) 04220403 WRITE (I02,70190) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 04230403 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 04240403 70190 FORMAT (27X,5(F3.1),F7.3,3F5.3 ) 04250403 IVINSP = IVINSP + 1 04260403 WRITE (I02,80022) 04270403 WRITE (I02,70191) 04280403 70191 FORMAT (27X,"2.12.12.12.12.1666.3334.3334.3334.333" ) 04290403 C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 04300403 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 04310403 C***** E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 04320403 C***** STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 04330403 C***** (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 04340403 C***** TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 04350403 C***** PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 04360403 C***** BEFORE THE DECIMAL POINT) 04370403 C***** THE NUMBER OF DECIMAL PLACES VARIES FROM 1 04380403 C***** TO 7 DIGITS. 04390403 C***** INPUT CARD 10 04400403 2029 FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7) 04410403 READ (IRVI,2029) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), 04420403 1 A3S(2,1,2) 04430403 CT020* TEST 20 - E CONVERSION 04440403 IVTNUM = 20 04450403 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04460403 WRITE (I02,80004) IVTNUM, REMRKS 04470403 WRITE (I02,80020) 04480403 WRITE (I02,70200) AVS, BVS 04490403 70200 FORMAT (27X,E8.1,2X,E9.2) 04500403 IVINSP = IVINSP + 1 04510403 WRITE (I02,70201) 04520403 70201 FORMAT (" ",16X,"CORRECT: " ,22X,"2 CORRECT ANSWERS POSSIBLE" ) 04530403 WRITE (I02,70202) 04540403 70202 FORMAT (27X,"-0.1E+01 +0.22E-01" / 04550403 1 27X,"-0.1+001 +0.22-001" ) 04560403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 04570403 WRITE (I02,90002) 04580403 WRITE (I02,90013) 04590403 WRITE (I02,90014) 04600403 CT021* TEST 21 - E CONVERSION 04610403 IVTNUM = 21 04620403 WRITE (I02,80004) IVTNUM, REMRKS 04630403 WRITE (I02,80020) 04640403 WRITE (I02,70210) EP1S(5), AC2S(1,5) 04650403 70210 FORMAT (27X,E10.3,2X,E11.4) 04660403 IVINSP = IVINSP + 1 04670403 WRITE (I02,70201) 04680403 WRITE (I02,70211) 04690403 70211 FORMAT (27X,"+0.333E+02 +0.4444E+03" / 04700403 1 27X,"+0.333+002 +0.4444+003" ) 04710403 CT022* TEST 22 - E CONVERSION 04720403 IVTNUM = 22 04730403 WRITE (I02,80004) IVTNUM, REMRKS 04740403 WRITE (I02,80020) 04750403 WRITE (I02,70220) CVS, AC2S(5,4) 04760403 70220 FORMAT (27X,E12.5,2X,E13.6) 04770403 IVINSP = IVINSP + 1 04780403 WRITE (I02,70201) 04790403 WRITE (I02,70221) 04800403 70221 FORMAT (27X,"-0.55555E-03 +0.666666E+00" / 04810403 1 27X,"-0.55555-003 +0.666666+000" ) 04820403 CT023* TEST 23 - E CONVERSION 04830403 IVTNUM = 23 04840403 WRITE (I02,80004) IVTNUM, REMRKS 04850403 WRITE (I02,80020) 04860403 WRITE (I02,70230) A3S(2,1,2) 04870403 70230 FORMAT (27X,E14.7) 04880403 IVINSP = IVINSP + 1 04890403 WRITE (I02,70201) 04900403 WRITE (I02,70231) 04910403 70231 FORMAT (27X,"+0.9876543E+12" / 04920403 1 27X,"+0.9876543+012" ) 04930403 C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 04940403 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 04950403 C***** SOME L EDIT DESCRIPTORS ARE REPEATED. 04960403 C***** L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 04970403 C***** INPUT CARD 11 04980403 2033 FORMAT (L4) 04990403 READ (IRVI,2033) A2B(2,1) 05000403 C***** INPUT CARD 12 05010403 2034 FORMAT ( 2L4, L3, L2, L3, L6, L7) 05020403 READ (IRVI,2034) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB, 05030403 1 DVB, A3B(1,2,1) 05040403 CT024* TEST 24 - L CONVERSION 05050403 IVTNUM = 24 05060403 WRITE (I02,80004) IVTNUM 05070403 WRITE (I02,80020) 05080403 WRITE (I02,70240) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1),05090403 1 CVB, DVB, A3B(1,2,1) 05100403 70240 FORMAT (24X, 3(L4), L3, L2, L3, 05110403 1 2(L1)) 05120403 IVINSP = IVINSP + 1 05130403 WRITE (I02,80022) 05140403 WRITE (I02,70241) 05150403 70241 FORMAT (27X,"T F F T T FTF" ) 05160403 C***** FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 05170403 C***** NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 05180403 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 05190403 C***** EDIT DESCRIPTORS ARE REPEATED. 05200403 C***** OPTIONAL COMMA BEFORE AND AFTER A SLASH 05210403 C***** INPUT CARDS 13, 14 05220403 2037 FORMAT(2X,4(F4.1)/5(I2)) 05230403 READ (IRVI,2037) A2S, MCA1I 05240403 C***** INPUT CARDS 15, 16 05250403 2038 FORMAT(27(F2.1)/5(L1),5L1) 05260403 READ (IRVI,2038) A3S, A1B, A3B 05270403 C***** INPUT CARDS 17, 18 05280403 2039 FORMAT (2X,2(I2,I2),/,2(2(I2,I2)),2(L1,L1),2(F3.1,F3.1),F3.1) 05290403 READ (IRVI,2039) I2I, I3I, A2B, CMA1S 05300403 CT025* TEST 25 THRU 28 - UNSUBSCRIPTED ARRAY NAME IN I/O LISTS 05310403 WRITE (I02,70250) A2S, MCA1I, A3S, A1B 05320403 70250 FORMAT (" 25 INSPECT" /" ",16X,"COMPUTED: " /27X,4(F4.1)/ 05330403 1" ",16X,"CORRECT: " /27X,"-9.9-9.9-9.9-9.9" / " 26 INSPECT"05340403 2/" ",16X,"COMPUTED: " /27X,5(I2)/" ",16X,"CORRECT: " /27X, 05350403 3"9999999999" /" 27 INSPECT" ,32X,"LEADING PLUS SIGN/ZERO " ,05360403 4"OPTIONAL"/" ",16X,"COMPUTED: " ,22X,"3 COMPUTED LINES EXPECTED" 05370403 5/27X,3(3(F4.1))/27X,2(2(F4.1,F4.1)),F4.1/27X,9F4.1/" ",16X, 05380403 6"CORRECT: " ,22X,"EACH RESULT LINE SHOULD EQUAL" / 05390403 7 27X," 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9" / 05400403 8 " 28 INSPECT" /" ",16X,"COMPUTED: " /27X,2L1/ 05410403 9 " ",16X,"CORRECT: " /27X,"TF") 05420403 IVINSP = IVINSP + 4 05430403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 05440403 WRITE (I02,90002) 05450403 WRITE (I02,90013) 05460403 WRITE (I02,90014) 05470403 CT029* TEST 29 THRU 33 - UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS 05480403 WRITE (I02,70290) A3B, I2I, I3I, A2B, CMA1S 05490403 70290 FORMAT (" 29 INSPECT" /" ",16X,"COMPUTED: " /27X,8(L1)/" ", 05500403 116X,"CORRECT: " /27X,"TFTFTFTF"/" 30 INSPECT" /" ",16X, 05510403 2"COMPUTED: " /27X,4(I2)/" ",16X,"CORRECT: " /27X,"99999999"/ 05520403 3 " 31 INSPECT"/" ",16X,"COMPUTED: " /27X,8(I2)/" ",16X, 05530403 4"CORRECT: " /27X,"9999999999999999" /" 32 INSPECT" /" ", 05540403 516X,"COMPUTED: " /27X,4(L1)/" ",16X,"CORRECT: " /27X,"TFFT"/ 05550403 6 " 33 INSPECT"/" ",16X,"COMPUTED: " /27X,5(F3.1)/ 05560403 7 " ",16X,"CORRECT: " ,/, 05570403 8 27X,"9.99.99.99.99.9" ) 05580403 IVINSP = IVINSP + 5 05590403 CT034* TEST 34 - FORMATTED DATA TRANSFER STATEMENT TO TEST 13.5.10 05600403 C***** THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403 C***** INPUT CARD 19 05620403 70340 FORMAT ( L6, L4, L10, L5) 05630403 READ (IRVI,70340) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05640403 IVTNUM = 34 05650403 REMRKS = 'LEADING BLANKS ARE REQUIRED' 05660403 WRITE (I02,80004) IVTNUM, REMRKS 05670403 WRITE (I02,80020) 05680403 WRITE (I02,70341) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05690403 70341 FORMAT (27X,L6, L4, L10, L5) 05700403 IVINSP = IVINSP + 1 05710403 WRITE (I02,80022) 05720403 WRITE (I02,70342) 05730403 70342 FORMAT (27X," T F T F" ) 05740403 CT035* TEST 35 05750403 C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403 C***** WHERE D IS EQUAL TO ZERO 05770403 C***** INPUT CARD 20 05780403 70350 FORMAT (2X, F3.0, F5.0, F5.5, F1.0) 05790403 READ (IRVI,70350) AVS, BVS, CVS, DVS 05800403 IVTNUM = 35 05810403 WRITE (I02,80004) IVTNUM 05820403 WRITE (I02,80020) 05830403 WRITE (I02,70351) AVS, BVS 05840403 70351 FORMAT (27X,F4.0,4X,F5.0) 05850403 IVINSP = IVINSP + 1 05860403 WRITE (I02,80022) 05870403 WRITE (I02,70352) 05880403 70352 FORMAT (27X,"333.",4X,"4444.") 05890403 CT036* TEST 36 05900403 C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403 C***** WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 05920403 IVTNUM = 36 05930403 WRITE (I02,80004) IVTNUM 05940403 WRITE (I02,80020) 05950403 WRITE (I02,70360) CVS, DVS 05960403 70360 FORMAT (27X,F6.5,2X,F2.0) 05970403 IVINSP = IVINSP + 1 05980403 WRITE (I02,80022) 05990403 WRITE (I02,70361) 06000403 70361 FORMAT (27X,".55555 0." ) 06010403 CT037* TEST 37 06020403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06030403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06040403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06050403 C***** I EDIT DESCRIPTORS 06060403 IVTNUM = 37 06070403 WRITE (I02,80004) IVTNUM, REMRKS 06080403 WRITE (I02,80020) 06090403 WRITE (I02,70370) MCA3I(1,2,3) 06100403 70370 FORMAT (27X,I3) 06110403 IVINSP = IVINSP + 1 06120403 WRITE (I02,80022) 06130403 WRITE (I02,70371) 06140403 70371 FORMAT (27X," 8") 06150403 CT038* TEST 38 06160403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06170403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06180403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06190403 C***** I EDIT DESCRIPTORS 06200403 IVTNUM = 38 06210403 WRITE (I02,80004) IVTNUM, REMRKS 06220403 WRITE (I02,80020) 06230403 WRITE (I02,70380) IAC1I(3) 06240403 70380 FORMAT (27X,I4) 06250403 IVINSP = IVINSP + 1 06260403 WRITE (I02,80022) 06270403 WRITE (I02,70381) 06280403 70381 FORMAT (27X," 22") 06290403 CT039* TEST 39 06300403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06310403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06320403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06330403 C***** I EDIT DESCRIPTORS 06340403 IVTNUM = 39 06350403 WRITE (I02,80004) IVTNUM, REMRKS 06360403 WRITE (I02,80020) 06370403 WRITE (I02,70390) NECVI 06380403 70390 FORMAT (27X,I5) 06390403 IVINSP = IVINSP + 1 06400403 WRITE (I02,80022) 06410403 WRITE (I02,70391) 06420403 70391 FORMAT (27X," 22") 06430403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 06440403 WRITE (I02,90002) 06450403 WRITE (I02,90013) 06460403 WRITE (I02,90014) 06470403 CT040* TEST 40 06480403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06490403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06500403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06510403 C***** I EDIT DESCRIPTORS 06520403 IVTNUM = 40 06530403 WRITE (I02,80004) IVTNUM, REMRKS 06540403 WRITE (I02,80020) 06550403 WRITE (I02,70400) IAC1I(3) 06560403 70400 FORMAT (27X,I6) 06570403 IVINSP = IVINSP + 1 06580403 WRITE (I02,80022) 06590403 WRITE (I02,70401) 06600403 70401 FORMAT (27X," 22") 06610403 CT041* TEST 41 06620403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06630403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06640403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06650403 C***** I EDIT DESCRIPTORS 06660403 IVTNUM = 41 06670403 WRITE (I02,80004) IVTNUM, REMRKS 06680403 WRITE (I02,80020) 06690403 WRITE (I02,70410) IAC2I(2,3) 06700403 70410 FORMAT (27X,I7) 06710403 IVINSP = IVINSP + 1 06720403 WRITE (I02,80022) 06730403 WRITE (I02,70411) 06740403 70411 FORMAT (27X," 22") 06750403 CT042* TEST 42 06760403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06770403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06780403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06790403 C***** F EDIT DESCRIPTORS 06800403 IVTNUM = 42 06810403 WRITE (I02,80004) IVTNUM, REMRKS 06820403 WRITE (I02,80020) 06830403 WRITE (I02,70420) ACVS 06840403 70420 FORMAT (27X,F5.1) 06850403 IVINSP = IVINSP + 1 06860403 WRITE (I02,80022) 06870403 WRITE (I02,70421) 06880403 70421 FORMAT (27X," 7.7") 06890403 CT043* TEST 43 06900403 CT043* TEST 43 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06910403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06920403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06930403 C***** F EDIT DESCRIPTORS 06940403 IVTNUM = 43 06950403 WRITE (I02,80004) IVTNUM, REMRKS 06960403 WRITE (I02,80020) 06970403 WRITE (I02,70430) A1S(2) 06980403 70430 FORMAT (27X,F7.2) 06990403 IVINSP = IVINSP + 1 07000403 WRITE (I02,80022) 07010403 WRITE (I02,70431) 07020403 70431 FORMAT (27X," 8.88") 07030403 CT044* TEST 44 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07040403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07050403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07060403 C***** F EDIT DESCRIPTORS 07070403 IVTNUM = 44 07080403 WRITE (I02,80004) IVTNUM, REMRKS 07090403 WRITE (I02,80020) 07100403 WRITE (I02,70440) BCVS 07110403 70440 FORMAT (27X,F9.3) 07120403 IVINSP = IVINSP + 1 07130403 WRITE (I02,80022) 07140403 WRITE (I02,70441) 07150403 70441 FORMAT (27X," 9.999") 07160403 CT045* TEST 45 07170403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07180403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07190403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07200403 C***** F EDIT DESCRIPTORS 07210403 IVTNUM = 45 07220403 WRITE (I02,80004) IVTNUM, REMRKS 07230403 WRITE (I02,80020) 07240403 WRITE (I02,70450) HHCVS 07250403 70450 FORMAT (27X,F11.4) 07260403 IVINSP = IVINSP + 1 07270403 WRITE (I02,80022) 07280403 WRITE (I02,70451) 07290403 70451 FORMAT (27X," 5.4444" ) 07300403 CT046* TEST 46 07310403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07320403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07330403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07340403 C***** F EDIT DESCRIPTORS 07350403 IVTNUM = 46 07360403 WRITE (I02,80004) IVTNUM, REMRKS 07370403 WRITE (I02,80020) 07380403 WRITE (I02,70460) CMCVS 07390403 70460 FORMAT (27X,F13.5) 07400403 IVINSP = IVINSP + 1 07410403 WRITE (I02,80022) 07420403 WRITE (I02,70461) 07430403 70461 FORMAT (27X," 6.55555" ) 07440403 CT047* TEST 47 07450403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07460403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07470403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07480403 C***** F EDIT DESCRIPTORS 07490403 IVTNUM = 47 07500403 WRITE (I02,80004) IVTNUM, REMRKS 07510403 WRITE (I02,80020) 07520403 WRITE (I02,70470) CMBVS 07530403 70470 FORMAT (27X,F15.6) 07540403 IVINSP = IVINSP + 1 07550403 WRITE (I02,80022) 07560403 WRITE (I02,70471) 07570403 70471 FORMAT (27X," 7.123456" ) 07580403 CT048* TEST 48 07590403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07600403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07610403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07620403 C***** E EDIT DESCRIPTORS 07630403 IVTNUM = 48 07640403 WRITE (I02,80004) IVTNUM, REMRKS 07650403 WRITE (I02,80020) 07660403 WRITE (I02,70480) DCVS 07670403 70480 FORMAT (27X,E10.2) 07680403 IVINSP = IVINSP + 1 07690403 WRITE (I02,70201) 07700403 WRITE (I02,70481) 07710403 70481 FORMAT (27X," 0.21E+01" / 07720403 1 27X," 0.21+001" ) 07730403 CT049* TEST 49 07740403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07750403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07760403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07770403 C***** E EDIT DESCRIPTORS 07780403 IVTNUM = 49 07790403 WRITE (I02,80004) IVTNUM, REMRKS 07800403 WRITE (I02,80020) 07810403 WRITE (I02,70490) AC1S(25) 07820403 70490 FORMAT (27X,E12.3) 07830403 IVINSP = IVINSP + 1 07840403 WRITE (I02,70201) 07850403 WRITE (I02,70491) 07860403 70491 FORMAT (27X," 0.331E+02" / 07870403 1 27X," 0.331+002" ) 07880403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 07890403 WRITE (I02,90002) 07900403 WRITE (I02,90013) 07910403 WRITE (I02,90014) 07920403 CT050* TEST 50 07930403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07940403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07950403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07960403 C***** E EDIT DESCRIPTORS 07970403 IVTNUM = 50 07980403 WRITE (I02,80004) IVTNUM, REMRKS 07990403 WRITE (I02,80020) 08000403 WRITE (I02,70500) AC2S(4,1) 08010403 70500 FORMAT (27X,E14.4) 08020403 IVINSP = IVINSP + 1 08030403 WRITE (I02,70201) 08040403 WRITE (I02,70501) 08050403 70501 FORMAT (27X," 0.4441E+03" / 08060403 1 27X," 0.4441+003" ) 08070403 CT051* TEST 51 08080403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08090403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08100403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08110403 C***** E EDIT DESCRIPTORS 08120403 IVTNUM = 51 08130403 WRITE (I02,80004) IVTNUM, REMRKS 08140403 WRITE (I02,80020) 08150403 WRITE (I02,70510) AC1S(7) 08160403 70510 FORMAT (27X,E16.5) 08170403 IVINSP = IVINSP + 1 08180403 WRITE (I02,70201) 08190403 WRITE (I02,70511) 08200403 70511 FORMAT (27X," 0.55551E+04" / 08210403 1 27X," 0.55551+004" ) 08220403 CT052* TEST 52 08230403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08240403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08250403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08260403 C***** E EDIT DESCRIPTORS 08270403 IVTNUM = 52 08280403 WRITE (I02,80004) IVTNUM, REMRKS 08290403 WRITE (I02,80020) 08300403 WRITE (I02,70520) AC1S(8) 08310403 70520 FORMAT (27X,E18.6) 08320403 IVINSP = IVINSP + 1 08330403 WRITE (I02,70201) 08340403 WRITE (I02,70521) 08350403 70521 FORMAT (27X," 0.666661E+05" / 08360403 1 27X," 0.666661+005" ) 08370403 CT053* TEST 53 08380403 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08390403 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08400403 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08410403 C***** E EDIT DESCRIPTORS 08420403 IVTNUM = 53 08430403 WRITE (I02,80004) IVTNUM, REMRKS 08440403 WRITE (I02,80020) 08450403 WRITE (I02,70530) CMAVS 08460403 70530 FORMAT (27X,E20.7) 08470403 IVINSP = IVINSP + 1 08480403 WRITE (I02,70201) 08490403 WRITE (I02,70531) 08500403 70531 FORMAT (27X," 0.1234567E+06" / 08510403 1 27X," 0.1234567+006" ) 08520403 CT054* TEST 54 08530403 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08540403 C***** ON READ, BUT NOT ON WRITE 08550403 C***** INPUT CARD 21 08560403 2050 FORMAT(2PF8.3,-2PE9.4,F9.4,0PF9.4,9X,-2PE9.4,F9.4) 08570403 READ(IRVI,2050)EP1S(16),EP1S(17),EP1S(18), EP1S(19), 08580403 1 EP1S(20),EP1S(22) 08590403 IVTNUM = 54 08600403 WRITE (I02,80004) IVTNUM, REMRKS 08610403 WRITE (I02,80020) 08620403 WRITE (I02,70540) EP1S(16),EP1S(17),EP1S(18) 08630403 70540 FORMAT (27X,F12.4, E12.4, F12.2) 08640403 IVINSP = IVINSP + 1 08650403 WRITE (I02,70201) 08660403 WRITE (I02,70541) 08670403 70541 FORMAT (27X," 98.7654 0.9877E+04 987654.00" / 08680403 1 27X," 0.9877+004 " ) 08690403 CT055* TEST 55 08700403 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08710403 C***** ON READ, BUT NOT ON WRITE 08720403 IVTNUM = 55 08730403 WRITE (I02,80004) IVTNUM, REMRKS 08740403 WRITE (I02,80020) 08750403 WRITE (I02,70550) EP1S(19),EP1S(20),EP1S(22) 08760403 70550 FORMAT( 27X,F12.3, E12.4,F12.3 ) 08770403 IVINSP = IVINSP + 1 08780403 WRITE (I02,70201) 08790403 WRITE (I02,70551) 08800403 70552 FORMAT (" ",48X," OR") 08800403 WRITE (I02,70552) 08800403 70553 FORMAT (27X," 987.654 0.8648E+04 8647.859" / 08800403 1 27X," 0.8648+004 " ) 08800403 WRITE (I02,70553) 08800403 WRITE (I02,90004) 08800403 70551 FORMAT (27X," 987.654 0.8648E+04 8647.860" / 08810403 1 27X," 0.8648+004 " ) 08820403 CT056* TEST 56 08830403 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08840403 C***** ON WRITE, BUT, NOT ON READ 08850403 C***** INPUT CARD 22 08860403 2053 FORMAT(F8.2,E9.4,F9.2,F9.3,9X,E9.4,F9.4) 08870403 READ(IRVI,2053) AC1S(1),AC1S(2),AC1S(3),AC1S(4), 08880403 1 AC1S(20),AC1S(23) 08890403 IVTNUM = 56 08900403 WRITE (I02,80004) IVTNUM, REMRKS 08910403 WRITE (I02,80020) 08920403 WRITE (I02,70560) AC1S(1),AC1S(2),AC1S(3) 08930403 70560 FORMAT (27X,2PF12.2, -2PE12.4,F12.4) 08940403 IVINSP = IVINSP + 1 08950403 WRITE (I02,70201) 08960403 WRITE (I02,70561) 08970403 70561 FORMAT (27X," 987.66 0.0099E+06 98.7654" / 08980403 1 27X," 0.0099+006 " ) 08990403 CT057* TEST 57 - SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 09000403 C***** ON WRITE, BUT, NOT ON READ 09010403 IVTNUM = 57 09020403 WRITE (I02,80004) IVTNUM, REMRKS 09030403 WRITE (I02,80020) 09040403 WRITE (I02,70570) AC1S(4), AC1S(20),AC1S(23) 09050403 70570 FORMAT (27X,1PE12.2, -2PE12.4, 2PF12.2 ) 09060403 IVINSP = IVINSP + 1 09070403 WRITE (I02,70201) 09080403 WRITE (I02,70571) 09090403 70571 FORMAT (27X," 9.88E+02 0.0086E+06 8647.86" / 09100403 1 27X," 9.88+002 0.0086+006 " ) 09110403 CT058* TEST 58 - I/O FORMAT RESCAN 09120403 C***** INPUT CARDS 23, 24, 25 09130403 2055 FORMAT( I1,I2,I3) 09140403 READ(IRVI,2055) I2I,IAC1I 09150403 IVTNUM = 58 09160403 REMRKS = '3 COMPUTED LINES EXPECTED' 09170403 WRITE (I02,80004) IVTNUM, REMRKS 09180403 WRITE (I02,80020) 09190403 WRITE(I02,70580) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I 09200403 70580 FORMAT (27X,I4,I5,I6) 09210403 IVINSP = IVINSP + 1 09220403 WRITE (I02,70011) 09230403 WRITE (I02,70581) 09240403 70581 FORMAT (27X," 1 22 333" / 09250403 1 27X," 4 55 666" / 09260403 2 27X," 7 88 999" ) 09270403 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 09280403 WRITE (I02,90002) 09290403 WRITE (I02,90013) 09300403 WRITE (I02,90014) 09310403 C***** INPUT CARDS 26, 27 09320403 2058 FORMAT(I4, 2(I1,1X,I2)) 09330403 READ( IRVI,2058) I2I, IAC1I 09340403 CT059* TEST 59 - I/O FORMAT RESCAN 09350403 IVTNUM = 59 09360403 REMRKS = '2 COMPUTED LINES EXPECTED' 09370403 WRITE (I02,80004) IVTNUM, REMRKS 09380403 WRITE (I02,80020) 09390403 WRITE( I02,70590) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4) 09400403 70590 FORMAT (27X,I4," **",1(27X,I4," ''",(I4," (("))) 09410403 IVINSP = IVINSP + 1 09420403 WRITE (I02,70011) 09430403 WRITE (I02,70591) 09440403 70591 FORMAT(27X," 2 **",30X,"4 '' 6 ((" ,/ 09450403 1 27X," 8 ''") 09460403 CBB** ********************** BBCSUM0 **********************************09470403 C**** WRITE OUT TEST SUMMARY 09480403 C**** 09490403 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 09500403 WRITE (I02, 90004) 09510403 WRITE (I02, 90014) 09520403 WRITE (I02, 90004) 09530403 WRITE (I02, 90020) IVPASS 09540403 WRITE (I02, 90022) IVFAIL 09550403 WRITE (I02, 90024) IVDELE 09560403 WRITE (I02, 90026) IVINSP 09570403 WRITE (I02, 90028) IVTOTN, IVTOTL 09580403 CBE** ********************** BBCSUM0 **********************************09590403 CBB** ********************** BBCFOOT0 **********************************09600403 C**** WRITE OUT REPORT FOOTINGS 09610403 C**** 09620403 WRITE (I02,90016) ZPROG, ZPROG 09630403 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 09640403 WRITE (I02,90019) 09650403 CBE** ********************** BBCFOOT0 **********************************09660403 CBB** ********************** BBCFMT0A **********************************09670403 C**** FORMATS FOR TEST DETAIL LINES 09680403 C**** 09690403 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 09700403 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 09710403 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 09720403 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 09730403 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 09740403 1I6,/," ",15X,"CORRECT= " ,I6) 09750403 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 09760403 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 09770403 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 09780403 1A21,/," ",16X,"CORRECT= " ,A21) 09790403 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 09800403 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 09810403 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 09820403 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 09830403 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 09840403 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 09850403 80050 FORMAT (" ",48X,A31) 09860403 CBE** ********************** BBCFMT0A **********************************09870403 CBB** ********************** BBCFMT0B **********************************09880403 C**** FORMAT STATEMENTS FOR PAGE HEADERS 09890403 C**** 09900403 90002 FORMAT ("1") 09910403 90004 FORMAT (" ") 09920403 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )09930403 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09940403 90008 FORMAT (" ",21X,A13,A17) 09950403 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 09960403 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 09970403 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 09980403 1 7X,"REMARKS",24X) 09990403 90014 FORMAT (" ","----------------------------------------------" , 10000403 1 "---------------------------------" ) 10010403 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 10020403 C**** 10030403 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 10040403 C**** 10050403 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 10060403 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 10070403 1 A13) 10080403 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 10090403 C**** 10100403 C**** FORMAT STATEMENTS FOR RUN SUMMARY 10110403 C**** 10120403 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 10130403 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 10140403 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 10150403 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 10160403 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 10170403 CBE** ********************** BBCFMT0B **********************************10180403 C***** 10190403 C***** END OF TEST SEGMENT 020 10200403 STOP 10210403 END 10220403 10230403 10240403