C*********************************************************************** C***** FORTRAN 77 C***** FM403 FMTRW - (020) C***** C*********************************************************************** C***** GENERAL PURPOSE SUBSET REFS C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.2 C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 C***** PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL C***** DATA TYPES. C***** RESTRICTIONS OBSERVED 12.8.2 C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 C***** * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND C***** W IS EQUAL TO OR GREATER THAN D C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST C***** IN THE FORMAT SPECIFICATION C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 C***** * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.1 C***** INTEGER CONSTANTS C***** GENERAL COMMENTS C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 C***** RECORD DIVIDERS) 13.5.4 C***** CBB** ********************** BBCCOMNT ********************************** C**** C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM C**** VERSION 2.0 C**** C**** C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO C**** GENERAL SERVICES ADMINISTRATION C**** FEDERAL SOFTWARE TESTING CENTER C**** 5203 LEESBURG PIKE, SUITE 1100 C**** FALLS CHURCH, VA. 22041 C**** C**** (703) 756-6153 C**** CBE** ********************** BBCCOMNT ********************************** C INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 COL. 1----------------------------------------------------------61 CARD 1 999 CARD 2 555554444 CARD 3 666 777777 8 CARD 4 333333111112222222255555444444444444 CARD 5 7.7123456.7 CARD 6 8.889.9997.123456 CARD 7 5.44446.5555533.133.133.133.1444.1 CARD 8 5555.15555.1 66666.166666.1 44.22 CARD 9 2.12.12.12.12.1666.3334.3334.3334.333 CARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ COL. 62------------77 CARD 10 00+0.9876543E+12 COL. 1----------------------------------------------------------61 CARD 11 TABC CARD 12 FDEFFGHIT*+T1F/).TRUE..FALSE. CARD 13 -9.9-9.9-9.9-9.9 CARD 14 9999999999 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 CARD 16 TFTFTFTFTF CARD 17 99999999 CARD 18 9999999999999999TFFT9.99.99.99.99.9 CARD 19 T F T F CARD 20 3334444.555550 CARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 CARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 CARD 23 122333544888611222 CARD 24 455666233444966111 CARD 25 788999377555899777 CARD 26 11112 334 559 880 11 CARD 27 6 778 995 441 222 00 C***** C***** S P E C I F I C A T I O N S SEGMENT 020 C***** DIMENSION EP1S(33),CMA1S(5),IAC1I(5),IAC2I(2,7),MCA1I(5) REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3) LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB C***** CBB** ********************** BBCINITA ********************************** C**** SPECIFICATION STATEMENTS C**** CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 CBE** ********************** BBCINITA ********************************** CBB** ********************** BBCINITB ********************************** C**** INITIALIZE SECTION DATA ZVERS, ZVERSD, ZDATE 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ DATA ZCOMPL, ZNAME, ZTAPE 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ DATA ZPROJ, ZTAPED, ZPROG 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ DATA REMRKS /' '/ C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED C**** FOR IDENTIFYING THE TEST ENVIRONMENT C**** CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' CZ03 ZPROG = 'PROGRAM NAME' ZDATE = ' DEC. 1983 ' ZCOMPL = ' ICL VME FORTRAN77 ' ZPROJ = ' LANG. CENTRE' ZNAME = 'ICL ' ZTAPE = 'M999 ' ZTAPED = '831005 ' C IVPASS = 0 IVFAIL = 0 IVDELE = 0 IVINSP = 0 IVTOTL = 0 IVTOTN = 0 ICZERO = 0 C C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. I01 = 05 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. I02 = 06 C CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. C CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. C CBE** ********************** BBCINITB ********************************** C***** I N P U T - O U T P U T ASSIGNMENT STATEMENTS IRVI = I01 NUVI = I02 IVTOTL = 59 ZPROG = 'FM403' CBB** ********************** BBCHED0A ********************************** C**** C**** WRITE REPORT TITLE C**** WRITE (I02, 90002) WRITE (I02, 90006) WRITE (I02, 90007) WRITE (I02, 90008) ZVERS, ZVERSD WRITE (I02, 90009) ZPROG, ZPROG WRITE (I02, 90010) ZDATE, ZCOMPL CBE** ********************** BBCHED0A ********************************** C***** HEADER FORMAT STATEMENT 2000 FORMAT ( // 2X,37HFMTRW - (020) FORMATTED DATA TRANSFER//2X, 141HSUBSET REFS - 12.9.5.2 13.3 13.5.9 ) WRITE (NUVI,2000) CBB** ********************** BBCHED0B ********************************** C**** WRITE DETAIL REPORT HEADERS C**** WRITE (I02,90004) WRITE (I02,90004) WRITE (I02,90013) WRITE (I02,90014) WRITE (I02,90015) IVTOTL CBE** ********************** BBCHED0B ********************************** CT001* TEST 1 - FORMAT WITH DIGITS 0-9 IN H FIELDS IVTNUM = 1 REMRKS = '2 COMPUTED LINES EXPECTED' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70010) 70010 FORMAT (25X,22H 10101010101010101010,9H999999999,8H88888888/27X, 17H7777777,6H666666,5H55555,4H4444,3H333,2H22,1H1) IVINSP = IVINSP + 1 WRITE (I02,70011) 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,29HCORRESPONDING LINE MUST MATCH) WRITE (I02,70012) 70012 FORMAT (25X,' 1010101010101010101099999999988888888', 1 /25X,' 7777777666666555554444333221 ') CT002* TEST 2 - FORMAT CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND C***** A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS IVTNUM = 2 REMRKS = '9 COMPUTED LINES EXPECTED' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70020) 70020 FORMAT(27X,3HAAA,5X,5H ,3HBBB,10X,3HCCC/28X,3HDDD,9X,3HEEE 1,9H ,3HFFF/29X,3HGGG,8X,3HHHH,8H ,3HIII/27X,3H 2,3HJJJ,7H ,3HKKK,7X,3HLLL/31X,3HMMM,6X,3HNNN,6H ,3HOOO/ 3 32X,3HPPP,5H ,3HQQQ,5X,3HRRR/33X,3HSSS,4X,3HTTT,4H ,3HUUU/ 4 27X,1 53H VVV ,3HWWW,3X,3HXXX/37X,3HYYY,3X,3HZZZ) IVINSP = IVINSP + 1 WRITE (I02,70011) WRITE (I02,70021) 70021 FORMAT (27X,'AAA BBB CCC', 1 /27X,' DDD EEE FFF ', 2 /27X,' GGG HHH III ', 3 /27X,' JJJ KKK LLL ', 4 /27X,' MMM NNN OOO ', 5 /27X,' PPP QQQ RRR ', 6 /27X,' SSS TTT UUU ', 7 /27X,' VVV WWW XXX ', 8 /27X,' YYY ZZZ ') CT003* TEST 3 - FORMAT CONTAINING H FIELD WITH ALL POSSIBLE C***** SPECIAL CHARACTERS IVTNUM = 3 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70030) 70030 FORMAT (25X,21H = + - * / ( ) , . ') IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70031) 70031 FORMAT (25X, ' = + - * / ( ) , . ''') C***** FORMAT TO TEST VERTICAL SPACING C***** 12.9.5.2.3 CT004* TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR IVTNUM = 4 REMRKS = 'SLASH DESCRIPTOR' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,70040) 70040 FORMAT(15X, 30H FORMAT(14H SKIP 1 LINE 1 /) /) IVINSP = IVINSP + 1 WRITE (I02,70041) 70041 FORMAT(17X,34HONE BLANK LINE SHOULD APPEAR ABOVE) C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) CT005* TEST 5 - FORMAT STATEMENT ENDING WITH TWO SLASH DESCRIPTORS IVTNUM = 5 WRITE (I02,80004) IVTNUM WRITE (I02,70050) 70050 FORMAT(15X,32H FORMAT(15H SKIP 2 LINES //) //) IVINSP = IVINSP + 1 WRITE (I02,70051) 70051 FORMAT(17X,35HTWO BLANK LINES SHOULD APPEAR ABOVE) CT006* TEST 6 - FORMAT STATEMENT ENDING WITH THREE SLASH DESCRIPTORS IVTNUM = 6 WRITE (I02,80004) IVTNUM WRITE (I02,70060) 70060 FORMAT(15X,33H FORMAT(16H SKIP 3 LINES ///) ///) IVINSP = IVINSP + 1 WRITE (I02,70061) 70061 FORMAT(17X,37HTHREE BLANK LINES SHOULD APPEAR ABOVE) CT007* TEST 7 - FORMAT STATEMENT CONTAINING IMBEDDED SLASH DESCRIPTORS IVTNUM = 7 REMRKS = 'IMBEDDED SLASHES' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,70070) 70070 FORMAT( 17X,32H1 BLANK LINE SHOULD APPEAR BELOW // 1 17X,33H2 BLANK LINES SHOULD APPEAR BELOW/// 2 17X,33H3 BLANK LINES SHOULD APPEAR BELOW/ 3(/), 3 17X,33H0 BLANK LINES SHOULD APPEAR BELOW/ 4 17X,33HEND IMBEDDED SLASHES TEST ) IVINSP = IVINSP + 1 CT008* TEST 8 - FORMS CONTROL USING '0' FOR DOUBLE SPACING IVTNUM = 8 REMRKS = 'DOUBLE SPACE' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,70080) 70080 FORMAT( 17X,33H1 BLANK LINE SHOULD APPEAR BELOW / 1H0, 1 17X,33HEND DOUBLE SPACE TEST ) IVINSP = IVINSP + 1 CT009* TEST 9 - FORMS CONTROL USING '+' FOR OVERPRINTING IVTNUM = 9 REMRKS = 'OVERPRINT' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,70090) 70090 FORMAT(/17X,27H!FIRST PRINT LINE! OVER,/1H+, 1 17X,50H P R I N T !SECOND PRINT LINE!) IVINSP = IVINSP + 1 CT010* TEST 10 - FORMS CONTROL USING '1' FOR PAGE EJECTION IVTNUM = 10 REMRKS = 'PAGE ADVANCE' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,70100) 70100 FORMAT(/17X,41HTHIS SHOULD BE THE LAST LINE ON THIS PAGE/, 157H1 NEW PAGE: END OF VERTICAL SPACING TESTS) IVINSP = IVINSP + 1 C WRITE PAGE HEADERS WRITE (I02,90004) WRITE (I02,90013) WRITE (I02,90014) C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 C***** FORMAT STATEMENTS CONTAIN REPEATED FIELDS. C***** FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 C***** FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 C***** INPUT CARD 1 2009 FORMAT (2X,I3) READ (IRVI,2009) JACVI C***** INPUT CARD 2 2010 FORMAT (1X,I5,1X,I4) READ (IRVI,2010) KBCVI, IAC1I(1) C***** INPUT CARD 3 2011 FORMAT (2X,I3,2X,3I2,2X,I1) READ (IRVI,2011) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) C***** INPUT CARD 4 2012 FORMAT (2X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) READ (IRVI,2012) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1) 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) CT011* TEST 11 - I CONVERSION IVTNUM = 11 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70110) JACVI 70110 FORMAT (25X,I5) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70111) 70111 FORMAT (25X,5H 999) CT012* TEST 12 - I CONVERSION IVTNUM = 12 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70120) KBCVI, IAC1I(1) 70120 FORMAT (26X,I5,1X,I4) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70121) 70121 FORMAT (26X,10H 5555 4444) CT013* TEST 13 - I CONVERSION IVTNUM = 13 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70130) IAC2I(1,2),LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 70130 FORMAT (27X,I3,2X,3I2,2X,I1) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70131) 70131 FORMAT (27X,14H666 777777 8) CT014* TEST 14 - I CONVERSION IVTNUM = 14 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70140) WRITE (I02,70140) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1) 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 70140 FORMAT (27X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70141) 70141 FORMAT (27X,36H333333111112222222255555444444444444) C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 C***** EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 C***** STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 C***** FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. C***** FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF C***** DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE C***** REPEATED C***** INPUT CARD 5 2018 FORMAT (2X,F3.1,F8.1) READ (IRVI,2018) ACVS, CMAVS C***** INPUT CARD 6 2019 FORMAT(2X,F4.2,F5.3,F8.6) READ (IRVI,2019) A1S(2), BCVS, CMBVS C***** INPUT CARD 7 2020 FORMAT (2X,F6.4,F7.5,4F4.1,F5.1) READ (IRVI,2020) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25), 1 AC2S(4,1) C***** INPUT CARD 8 2021 FORMAT (2X,2(F6.1),2X,2F7.1 ,2X,F5.2) READ (IRVI,2021) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) C***** INPUT CARD 9 2022 FORMAT (2X,5(F3.1),F7.3,3F5.3 ) READ (IRVI,2022) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) CT015* TEST 15 - F CONVERSION IVTNUM = 15 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70150) ACVS, CMAVS 70150 FORMAT (27X,F3.1,F8.1) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70151) 70151 FORMAT (27X,11H7.7123456.7) CT016* TEST 16 - F CONVERSION IVTNUM = 16 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70160) A1S(2), BCVS, CMBVS 70160 FORMAT(27X,F4.2,F5.3,F8.6) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70161) 70161 FORMAT (27X,17H8.889.9997.123456) CT017* TEST 17 - F CONVERSION IVTNUM = 17 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70170) HHCVS,CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25) 1 ,AC2S(4,1) 70170 FORMAT (27X,F6.4,F7.5,4F4.1,F5.1) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70171) 70171 FORMAT (27X,34H5.44446.5555533.133.133.133.1444.1) CT018* TEST 18 - F CONVERSION IVTNUM = 18 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70180) AC1S(18),AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 70180 FORMAT (27X,2(F6.1),2X,2F7.1 ,2X,F5.2) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70181) 70181 FORMAT (27X,35H5555.15555.1 66666.166666.1 44.22 ) CT019* TEST 19 - F CONVERSION IVTNUM = 19 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70190) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 70190 FORMAT (27X,5(F3.1),F7.3,3F5.3 ) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70191) 70191 FORMAT (27X,37H2.12.12.12.12.1666.3334.3334.3334.333) C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 C***** E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 C***** STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 C***** (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS C***** TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 C***** PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 C***** BEFORE THE DECIMAL POINT) C***** THE NUMBER OF DECIMAL PLACES VARIES FROM 1 C***** TO 7 DIGITS. C***** INPUT CARD 10 2029 FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7) READ (IRVI,2029) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), 1 A3S(2,1,2) CT020* TEST 20 - E CONVERSION IVTNUM = 20 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70200) AVS, BVS 70200 FORMAT (27X,E8.1,2X,E9.2) IVINSP = IVINSP + 1 WRITE (I02,70201) 70201 FORMAT (1H ,16X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIBLE) WRITE (I02,70202) 70202 FORMAT (27X,19H-0.1E+01 +0.22E-01/ 1 27X,19H-0.1+001 +0.22-001) C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) CT021* TEST 21 - E CONVERSION IVTNUM = 21 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70210) EP1S(5), AC2S(1,5) 70210 FORMAT (27X,E10.3,2X,E11.4) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70211) 70211 FORMAT (27X,23H+0.333E+02 +0.4444E+03/ 1 27X,23H+0.333+002 +0.4444+003) CT022* TEST 22 - E CONVERSION IVTNUM = 22 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70220) CVS, AC2S(5,4) 70220 FORMAT (27X,E12.5,2X,E13.6) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70221) 70221 FORMAT (27X,27H-0.55555E-03 +0.666666E+00/ 1 27X,27H-0.55555-003 +0.666666+000) CT023* TEST 23 - E CONVERSION IVTNUM = 23 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70230) A3S(2,1,2) 70230 FORMAT (27X,E14.7) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70231) 70231 FORMAT (27X,14H+0.9876543E+12/ 1 27X,14H+0.9876543+012) C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 C***** SOME L EDIT DESCRIPTORS ARE REPEATED. C***** L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 C***** INPUT CARD 11 2033 FORMAT (L4) READ (IRVI,2033) A2B(2,1) C***** INPUT CARD 12 2034 FORMAT ( 2L4, L3, L2, L3, L6, L7) READ (IRVI,2034) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB, 1 DVB, A3B(1,2,1) CT024* TEST 24 - L CONVERSION IVTNUM = 24 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70240) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), 1 CVB, DVB, A3B(1,2,1) 70240 FORMAT (24X, 3(L4), L3, L2, L3, 1 2(L1)) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70241) 70241 FORMAT (27X,19HT F F T T FTF) C***** FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 C***** NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 C***** EDIT DESCRIPTORS ARE REPEATED. C***** OPTIONAL COMMA BEFORE AND AFTER A SLASH C***** INPUT CARDS 13, 14 2037 FORMAT(2X,4(F4.1)/5(I2)) READ (IRVI,2037) A2S, MCA1I C***** INPUT CARDS 15, 16 2038 FORMAT(27(F2.1)/5(L1),5L1) READ (IRVI,2038) A3S, A1B, A3B C***** INPUT CARDS 17, 18 2039 FORMAT (2X,2(I2,I2),/,2(2(I2,I2)),2(L1,L1),2(F3.1,F3.1),F3.1) READ (IRVI,2039) I2I, I3I, A2B, CMA1S CT025* TEST 25 THRU 28 - UNSUBSCRIPTED ARRAY NAME IN I/O LISTS WRITE (I02,70250) A2S, MCA1I, A3S, A1B 70250 FORMAT (17H 25 INSPECT/1H ,16X,10HCOMPUTED: /27X,4(F4.1)/ 11H ,16X,10HCORRECT: /27X,16H-9.9-9.9-9.9-9.9/17H 26 INSPECT 2/1H ,16X,10HCOMPUTED: /27X,5(I2)/1H ,16X,10HCORRECT: /27X, 310H9999999999/17H 27 INSPECT,32X,23HLEADING PLUS SIGN/ZERO , 48HOPTIONAL/1H ,16X,10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED 5/27X,3(3(F4.1))/27X,2(2(F4.1,F4.1)),F4.1/27X,9F4.1/1H ,16X, 610HCORRECT: ,22X,29HEACH RESULT LINE SHOULD EQUAL/ 7 27X,36H 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9/ 8 17H 28 INSPECT/1H ,16X,10HCOMPUTED: /27X,2L1/ 9 1H ,16X,10HCORRECT: /27X,2HTF) IVINSP = IVINSP + 4 C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) CT029* TEST 29 THRU 33 - UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS WRITE (I02,70290) A3B, I2I, I3I, A2B, CMA1S 70290 FORMAT (17H 29 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(L1)/1H , 116X,10HCORRECT: /27X,8HTFTFTFTF/17H 30 INSPECT/1H ,16X, 210HCOMPUTED: /27X,4(I2)/1H ,16X,10HCORRECT: /27X,8H99999999/ 317H 31 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(I2)/1H ,16X, 410HCORRECT: /27X,16H9999999999999999/17H 32 INSPECT/1H , 516X,10HCOMPUTED: /27X,4(L1)/1H ,16X,10HCORRECT: /27X,4HTFFT/ 617H 33 INSPECT/1H ,16X,10HCOMPUTED: /27X,5(F3.1)/ 7 1H ,16X,10HCORRECT: ,/, 8 27X,15H9.99.99.99.99.9) IVINSP = IVINSP + 5 CT034* TEST 34 - FORMATTED DATA TRANSFER STATEMENT TO TEST 13.5.10 C***** THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD C***** INPUT CARD 19 70340 FORMAT ( L6, L4, L10, L5) READ (IRVI,70340) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) IVTNUM = 34 REMRKS = 'LEADING BLANKS ARE REQUIRED' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70341) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 70341 FORMAT (27X,L6, L4, L10, L5) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70342) 70342 FORMAT (27X,25H T F T F) CT035* TEST 35 C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 C***** WHERE D IS EQUAL TO ZERO C***** INPUT CARD 20 70350 FORMAT (2X, F3.0, F5.0, F5.5, F1.0) READ (IRVI,70350) AVS, BVS, CVS, DVS IVTNUM = 35 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70351) AVS, BVS 70351 FORMAT (27X,F4.0,4X,F5.0) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70352) 70352 FORMAT (27X,4H333.,4X,5H4444.) CT036* TEST 36 C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 C***** WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 IVTNUM = 36 WRITE (I02,80004) IVTNUM WRITE (I02,80020) WRITE (I02,70360) CVS, DVS 70360 FORMAT (27X,F6.5,2X,F2.0) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70361) 70361 FORMAT (27X,10H.55555 0.) CT037* TEST 37 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** I EDIT DESCRIPTORS IVTNUM = 37 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70370) MCA3I(1,2,3) 70370 FORMAT (27X,I3) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70371) 70371 FORMAT (27X,3H 8) CT038* TEST 38 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** I EDIT DESCRIPTORS IVTNUM = 38 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70380) IAC1I(3) 70380 FORMAT (27X,I4) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70381) 70381 FORMAT (27X,4H 22) CT039* TEST 39 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** I EDIT DESCRIPTORS IVTNUM = 39 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70390) NECVI 70390 FORMAT (27X,I5) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70391) 70391 FORMAT (27X,5H 22) C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) CT040* TEST 40 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** I EDIT DESCRIPTORS IVTNUM = 40 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70400) IAC1I(3) 70400 FORMAT (27X,I6) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70401) 70401 FORMAT (27X,6H 22) CT041* TEST 41 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** I EDIT DESCRIPTORS IVTNUM = 41 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70410) IAC2I(2,3) 70410 FORMAT (27X,I7) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70411) 70411 FORMAT (27X,7H 22) CT042* TEST 42 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 42 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70420) ACVS 70420 FORMAT (27X,F5.1) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70421) 70421 FORMAT (27X,5H 7.7) CT043* TEST 43 CT043* TEST 43 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 43 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70430) A1S(2) 70430 FORMAT (27X,F7.2) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70431) 70431 FORMAT (27X,7H 8.88) CT044* TEST 44 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 44 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70440) BCVS 70440 FORMAT (27X,F9.3) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70441) 70441 FORMAT (27X,9H 9.999) CT045* TEST 45 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 45 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70450) HHCVS 70450 FORMAT (27X,F11.4) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70451) 70451 FORMAT (27X,11H 5.4444) CT046* TEST 46 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 46 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70460) CMCVS 70460 FORMAT (27X,F13.5) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70461) 70461 FORMAT (27X,13H 6.55555) CT047* TEST 47 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** F EDIT DESCRIPTORS IVTNUM = 47 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70470) CMBVS 70470 FORMAT (27X,F15.6) IVINSP = IVINSP + 1 WRITE (I02,80022) WRITE (I02,70471) 70471 FORMAT (27X,15H 7.123456) CT048* TEST 48 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 48 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70480) DCVS 70480 FORMAT (27X,E10.2) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70481) 70481 FORMAT (27X,10H 0.21E+01/ 1 27X,10H 0.21+001) CT049* TEST 49 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 49 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70490) AC1S(25) 70490 FORMAT (27X,E12.3) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70491) 70491 FORMAT (27X,12H 0.331E+02/ 1 27X,12H 0.331+002) C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) CT050* TEST 50 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 50 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70500) AC2S(4,1) 70500 FORMAT (27X,E14.4) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70501) 70501 FORMAT (27X,14H 0.4441E+03/ 1 27X,14H 0.4441+003) CT051* TEST 51 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 51 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70510) AC1S(7) 70510 FORMAT (27X,E16.5) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70511) 70511 FORMAT (27X,16H 0.55551E+04/ 1 27X,16H 0.55551+004) CT052* TEST 52 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 52 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70520) AC1S(8) 70520 FORMAT (27X,E18.6) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70521) 70521 FORMAT (27X,18H 0.666661E+05/ 1 27X,18H 0.666661+005) CT053* TEST 53 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE C***** E EDIT DESCRIPTORS IVTNUM = 53 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70530) CMAVS 70530 FORMAT (27X,E20.7) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70531) 70531 FORMAT (27X,20H 0.1234567E+06/ 1 27X,20H 0.1234567+006) CT054* TEST 54 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS C***** ON READ, BUT NOT ON WRITE C***** INPUT CARD 21 2050 FORMAT(2PF8.3,-2PE9.4,F9.4,0PF9.4,9X,-2PE9.4,F9.4) READ(IRVI,2050)EP1S(16),EP1S(17),EP1S(18), EP1S(19), 1 EP1S(20),EP1S(22) IVTNUM = 54 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70540) EP1S(16),EP1S(17),EP1S(18) 70540 FORMAT (27X,F12.4, E12.4, F12.2) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70541) 70541 FORMAT (27X,36H 98.7654 0.9877E+04 987654.00/ 1 27X,36H 0.9877+004 ) CT055* TEST 55 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS C***** ON READ, BUT NOT ON WRITE IVTNUM = 55 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70550) EP1S(19),EP1S(20),EP1S(22) 70550 FORMAT( 27X,F12.3, E12.4,F12.3 ) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70551) 70552 FORMAT (1H ,48X,5H OR) WRITE (I02,70552) 70553 FORMAT (27X,36H 987.654 0.8648E+04 8647.859/ 1 27X,36H 0.8648+004 ) WRITE (I02,70553) WRITE (I02,90004) 70551 FORMAT (27X,36H 987.654 0.8648E+04 8647.860/ 1 27X,36H 0.8648+004 ) CT056* TEST 56 C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS C***** ON WRITE, BUT, NOT ON READ C***** INPUT CARD 22 2053 FORMAT(F8.2,E9.4,F9.2,F9.3,9X,E9.4,F9.4) READ(IRVI,2053) AC1S(1),AC1S(2),AC1S(3),AC1S(4), 1 AC1S(20),AC1S(23) IVTNUM = 56 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70560) AC1S(1),AC1S(2),AC1S(3) 70560 FORMAT (27X,2PF12.2, -2PE12.4,F12.4) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70561) 70561 FORMAT (27X,36H 987.66 0.0099E+06 98.7654/ 1 27X,36H 0.0099+006 ) CT057* TEST 57 - SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS C***** ON WRITE, BUT, NOT ON READ IVTNUM = 57 WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE (I02,70570) AC1S(4), AC1S(20),AC1S(23) 70570 FORMAT (27X,1PE12.2, -2PE12.4, 2PF12.2 ) IVINSP = IVINSP + 1 WRITE (I02,70201) WRITE (I02,70571) 70571 FORMAT (27X,36H 9.88E+02 0.0086E+06 8647.86/ 1 27X,36H 9.88+002 0.0086+006 ) CT058* TEST 58 - I/O FORMAT RESCAN C***** INPUT CARDS 23, 24, 25 2055 FORMAT( I1,I2,I3) READ(IRVI,2055) I2I,IAC1I IVTNUM = 58 REMRKS = '3 COMPUTED LINES EXPECTED' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE(I02,70580) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I 70580 FORMAT (27X,I4,I5,I6) IVINSP = IVINSP + 1 WRITE (I02,70011) WRITE (I02,70581) 70581 FORMAT (27X,15H 1 22 333/ 1 27X,15H 4 55 666/ 2 27X,15H 7 88 999) C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS WRITE (I02,90002) WRITE (I02,90013) WRITE (I02,90014) C***** INPUT CARDS 26, 27 2058 FORMAT(I4, 2(I1,1X,I2)) READ( IRVI,2058) I2I, IAC1I CT059* TEST 59 - I/O FORMAT RESCAN IVTNUM = 59 REMRKS = '2 COMPUTED LINES EXPECTED' WRITE (I02,80004) IVTNUM, REMRKS WRITE (I02,80020) WRITE( I02,70590) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4) 70590 FORMAT (27X,I4,3H **,1(27X,I4,3H '',(I4,3H (())) IVINSP = IVINSP + 1 WRITE (I02,70011) WRITE (I02,70591) 70591 FORMAT(27X,7H 2 **,30X,11H4 '' 6 ((,/ 1 27X,7H 8 '') CBB** ********************** BBCSUM0 ********************************** C**** WRITE OUT TEST SUMMARY C**** IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP WRITE (I02, 90004) WRITE (I02, 90014) WRITE (I02, 90004) WRITE (I02, 90020) IVPASS WRITE (I02, 90022) IVFAIL WRITE (I02, 90024) IVDELE WRITE (I02, 90026) IVINSP WRITE (I02, 90028) IVTOTN, IVTOTL CBE** ********************** BBCSUM0 ********************************** CBB** ********************** BBCFOOT0 ********************************** C**** WRITE OUT REPORT FOOTINGS C**** WRITE (I02,90016) ZPROG, ZPROG WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED WRITE (I02,90019) CBE** ********************** BBCFOOT0 ********************************** CBB** ********************** BBCFMT0A ********************************** C**** FORMATS FOR TEST DETAIL LINES C**** 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 1I6,/,1H ,15X,10HCORRECT= ,I6) 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 1A21,/,1H ,16X,10HCORRECT= ,A21) 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 80050 FORMAT (1H ,48X,A31) CBE** ********************** BBCFMT0A ********************************** CBB** ********************** BBCFMT0B ********************************** C**** FORMAT STATEMENTS FOR PAGE HEADERS C**** 90002 FORMAT (1H1) 90004 FORMAT (1H ) 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 90008 FORMAT (1H ,21X,A13,A17) 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 1 7X,7HREMARKS,24X) 90014 FORMAT (1H ,46H----------------------------------------------, 1 33H---------------------------------) 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) C**** C**** FORMAT STATEMENTS FOR REPORT FOOTINGS C**** 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 1 A13) 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) C**** C**** FORMAT STATEMENTS FOR RUN SUMMARY C**** 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) CBE** ********************** BBCFMT0B ********************************** C***** C***** END OF TEST SEGMENT 020 STOP END