PROGRAM FM110 C***********************************************************************00010110 C***** FORTRAN 77 00020110 C***** FM110 IOFMT - (350) 00030110 C***** 00040110 C***********************************************************************00050110 C***** GENERAL PURPOSE SUBSET REFS00060110 C***** TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070110 C***** STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080110 C***** FOR INTEGER AND REAL DATA TYPES 00090110 C***** RESTRICTIONS OBSERVED 00100110 C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00110110 C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120110 C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130110 C***** W IS EQUAL TO OR GREATER THAN D 00140110 C***** * FIELD WIDTH IS NEVER ZERO 00150110 C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160110 C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170110 C***** IN THE FORMAT SPECIFICATION 00180110 C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190110 C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200110 C***** * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210110 C***** * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220110 C***** THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230110 C***** INTEGER CONSTANT 00240110 CBB** ********************** BBCCOMNT **********************************00250110 C**** 00260110 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00270110 C**** VERSION 2.1 00280110 C**** 00290110 C**** 00300110 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00310110 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00320110 C**** SOFTWARE STANDARDS VALIDATION GROUP 00330110 C**** BUILDING 225 RM A266 00340110 C**** GAITHERSBURG, MD 20899 00350110 C**** 00360110 C**** 00370110 C**** 00380110 CBE** ********************** BBCCOMNT **********************************00390110 C INPUT DATA TO THIS SEGMENT CONSISTS OF 40 CARD IMAGES IN COL. 1 - 80 00400110 C COLS. 22 25 31 34-35 40-43 55 67 69 74-76 00410110 CARD 1 . . . 0. E+00 + + . E00 00420110 C COLS. 16 31 33 42-45 50 59-60 00430110 CARD 2 + + . D+00 . D0 00440110 C COLS. 1-----------14 18-----26 28-------38 00450110 CARD 3 1.23456987654. +1.234E-0 -98.7654E+0 00460110 C COLS 1---5 00470110 CARDS 4,5,6,7,8 12345 00480110 C COLS. 1-3 00490110 CARDS 9,10,11,12 1.1 00500110 C COLS. 1------------------------------------------------------58 00510110 CARD 13 +0.339567E+02 00520110 CARD 14 + .339567+2 00530110 CARD 15 + 3.395670E1 00540110 CARD 16 0.96295134244D+04 00550110 CARD 17 .96295134244D04 00560110 CARD 18 0.96295134244+4 00570110 CARD 19 +.96295134244D4 00580110 CARD 20 31.23+0.14E+04+0.2D+02 00590110 CARD 21 31.23 .14D+4 +.2+2 00600110 CARD 22 -0.13579E+054444 00610110 CARD 23 4444 00620110 CARD 24 4444 00630110 CARD 25 4444 00640110 CARD 26 4444 00650110 CARD 27 -333 5.555+0.4545E-04 00660110 CARD 28 -6.666 .9989E+12 00670110 CARD 29 7.77-0.747E-02 +0.549E022 00680110 CARD 30 +0.662E-00 0.468-1011 00690110 CARD 31 0.59542D+04-44.6666-0.1234560000D-03 00700110 CARD 32 54.9327-0.1395624534D+00 00710110 CARD 33 65432.1 00720110 CARD 34 +0.848E+03 .848E3 + .1290D7+0.129D+07 0.412D21 00730110 CARD 35 22222222222222222222222222222222222222222222222222 00740110 CARD 36 -.987E0-0.987E+00 -.987D0 00750110 CARD 37 5 5 00760110 CARD 38 987654 8647.86 987.654 00770110 CARD 39 1.2345E0 1.2345 1234.5 00780110 CARD 40 12345. 00790110 CARD COLS. NOT MENTIONED ARE BLANK 00800110 C***** 00810110 C***** S P E C I F I C A T I O N S SEGMENT 350 00820110 C***** 00830110 REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) 00840110 DIMENSION IAC1I(5),IAC2I(2,7),EP1S(33) 00850110 INTEGER MCA3I(2,3,3) 00860110 REAL MVS 00870110 C CHARACTER*80 IDATA 00880110 C***** IDATA USED BY TEST 3 TO BYPASS CARDS 4-21 TO DELETE TEST 00890110 C***** 00900110 CBB** ********************** BBCINITA **********************************00910110 C**** SPECIFICATION STATEMENTS 00920110 C**** 00930110 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00940110 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00950110 CBE** ********************** BBCINITA **********************************00960110 CBB** ********************** BBCINITB **********************************00970110 C**** INITIALIZE SECTION 00980110 DATA ZVERS, ZVERSD, ZDATE 00990110 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 01000110 DATA ZCOMPL, ZNAME, ZTAPE 01010110 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 01020110 DATA ZPROJ, ZTAPED, ZPROG 01030110 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01040110 DATA REMRKS /' '/ 01050110 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01060110 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01070110 C**** 01080110 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01090110 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01100110 CZ03 ZPROG = 'PROGRAM NAME' 01110110 CZ04 ZDATE = 'DATE OF TEST' 01120110 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 01130110 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01140110 CZ07 ZNAME = 'NAME OF USER' 01150110 CZ08 ZTAPE = 'TAPE OWNER/ID' 01160110 CZ09 ZTAPED = 'DATE TAPE COPIED' 01170110 C 01180110 IVPASS = 0 01190110 IVFAIL = 0 01200110 IVDELE = 0 01210110 IVINSP = 0 01220110 IVTOTL = 0 01230110 IVTOTN = 0 01240110 ICZERO = 0 01250110 C 01260110 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01270110 I01 = 05 01280110 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01290110 I02 = 06 01300110 C 01310110 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 01320110 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01330110 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01340110 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01350110 C 01360110 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 01370110 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01380110 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01390110 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01400110 C 01410110 CBE** ********************** BBCINITB **********************************01420110 IRVI = I01 01430110 NUVI = I02 01440110 IVTOTL = 11 01450110 ZPROG='FM110' 01460110 CBB** ********************** BBCHED0A **********************************01470110 C**** 01480110 C**** WRITE REPORT TITLE 01490110 C**** 01500110 WRITE (I02, 90002) 01510110 WRITE (I02, 90006) 01520110 WRITE (I02, 90007) 01530110 WRITE (I02, 90008) ZVERS, ZVERSD 01540110 WRITE (I02, 90009) ZPROG, ZPROG 01550110 WRITE (I02, 90010) ZDATE, ZCOMPL 01560110 CBE** ********************** BBCHED0A **********************************01570110 C***** ALL VARIABLES AND ARRAY ELEMENTS USED IN THIS SEGMENT 01580110 C***** ARE FIRST SET TO A NON-ZERO VALUE 01590110 C***** 01600110 C***** HEADER FOR SEGMENT 350 WRITTEN 01610110 35000 FORMAT (//2X,"IOFMT - (350) ADDITIONAL FORMATTED I/O" //16X, 01620110 1 "DATA TRANSFERS" ,//2X, "SUBSET REFS - 12.8 13." ) 01630110 WRITE (NUVI,35000) 01640110 C***** 01650110 CBB** ********************** BBCHED0B **********************************01660110 C**** WRITE DETAIL REPORT HEADERS 01670110 C**** 01680110 WRITE (I02,90004) 01690110 WRITE (I02,90004) 01700110 WRITE (I02,90013) 01710110 WRITE (I02,90014) 01720110 WRITE (I02,90015) IVTOTL 01730110 CBE** ********************** BBCHED0B **********************************01740110 JACVI = 11111 01750110 IAC1I(1) = -2345 01760110 IAC2I(1,1) = 9999 01770110 MCA3I(1,1,1) = 2 01780110 ACVS = 1.2 01790110 BCVS = -.34E-3 01800110 A1S(1) = 34.56 01810110 A1S(2) = 456.789E+02 01820110 A2S(1,1) = -7899.3 01830110 A2S(2,1) = +9876.543E-01 01840110 A3S(1,1,1) = .543 01850110 A3S(2,1,1) = 4.33E+1 01860110 MVS = +2.22E+01 01870110 A1S(3) = -.33456E-01 01880110 A2S(1,2) = 9987.76E+2 01890110 A3S(3,1,1) = 44.E-2 01900110 C**** 01910110 C 01920110 CT001* TEST 1 01930110 IVTNUM = 1 01940110 C****** 01950110 C***** TEST THAT BLANK INPUT FIELDS ARE TREATED AS ZERO 13.5.9 01960110 C***** I, E, and F EDIT DESCRIPTORS ARE TESTED 01970110 C***** CARDS 1 AND 2 01980110 C***** 01990110 35001 FORMAT (4(I5), 4(F3.1), 4(F11.4)/ 4(E15.8)) 02000110 READ (IRVI,35001) JACVI, IAC1I(1), IAC2I(1,1), MCA3I(1,1,1), ACVS,02010110 1 A1S(1), A2S(1,1), A3S(1,1,1), BCVS, A1S(2), A2S(2,1), 02020110 2 A3S(2,1,1), MVS, A1S(3), A2S(1,2), A3S(3,1,1) 02030110 C**** TO DELETE TEST INSERT THE FOLLOWING CODE: 02040110 C**** IVDELE=IVDELE+1 02050110 C**** WRITE (NUVI,80000) IVTNUM 02060110 C**** COMMENT OUT FOLLOWING CODE UNTIL NEXT TEST 02070110 IVINSP=IVINSP+1 02080110 WRITE (NUVI,80004) IVTNUM 02090110 70010 FORMAT (/49X,"THIS TEST CONTAINS 4 GROUPS" , 02100110 1 /49X,"ALL ANSWERS SHOULD BE ZERO" ) 02110110 C************************** 02120110 WRITE (NUVI,70010) 02130110 35002 FORMAT (" ",16X,"COMPUTED: " ,22X, 02140110 1 "4 COMPUTED LINES EXPECTED" ,4(/23X,I6), 02150110 2 /17X,"COMPUTED: " ,22X,"4 COMPUTED LINES EXPECTED" , 02160110 3 4(/23X,F8.1),/17X,"COMPUTED: " ,22X, 02170110 4 "4 COMPUTED LINES EXPECTED" ,4(/23X,F12.5), 02180110 5 /17X,"COMPUTED: " ,22X,"4 COMPUTED LINES EXPECTED" , 02190110 6 4(/23X,E12.1)) 02200110 WRITE (NUVI,35002) JACVI, IAC1I(1), IAC2I(1,1), MCA3I(1,1,1),ACVS,02210110 1 A1S(1), A2S(1,1), A3S(1,1,1), BCVS, A1S(2), A2S(2,1), 02220110 2 A3S(2,1,1), MVS, A1S(3), A2S(1,2), A3S(3,1,1) 02230110 C***** 02240110 CT002* TEST 2 02250110 IVTNUM = 2 02260110 C***** TEST THAT DECIMAL POINTS APPEARING IN INPUT FIELDS 13.5.9.2.102270110 C***** OVERRIDE THE SPECIFICATIONS SUPPLIED BY E AND F 02280110 C***** EDIT DESCRIPTORS 02290110 70020 FORMAT (" ",48X,"THIS TEST CONTAINS 4 GROUPS" ) 02300110 CMAVS = 1.23456 02310110 CMBVS = 987654. 02320110 CMEVS = 0.1234E+01 02330110 CMFVS = -0.987654E+02 02340110 C***** CARD 3 02350110 35004 FORMAT (2(F7.3), 2(E12.5)) 02360110 READ (IRVI,35004) ACVS, BCVS, FFCVS, GGCVS 02370110 35005 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 02380110 1 2(/23X,F12.5),/17X,"CORRECT: " ," 1.23456", 02390110 2 //17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 02400110 3 2(/23X,F13.1),/17X,"CORRECT: " ," 987654.0", 02410110 4 //17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 02420110 5 2(/23X,E15.4),/17X,"CORRECT: " ," 0.1234E+01" ," OR ", 02430110 6 " .1234+001" ,//17X,"COMPUTED: " ,22X, 02440110 7 "2 COMPUTED LINES EXPECTED" ,2(/23X,E17.6), 02450110 8 /17X,"CORRECT: " ,"-0.987654E+02" ," OR ","-.987654+002" ) 02460110 C**** SEE TEST 1 TO DELETE TEST (ENTER CODE HERE) 02470110 IVINSP=IVINSP+1 02480110 WRITE (NUVI,80004) IVTNUM 02490110 WRITE (NUVI,70020) 02500110 WRITE (NUVI,35005) CMAVS, ACVS, CMBVS, BCVS, CMEVS, FFCVS, 02510110 1 CMFVS, GGCVS 02520110 C***** 02530110 CT003* TEST 3 02540110 IVTNUM=3 02550110 C***** TEST COMPLETE FORMAT RESCAN 13.3 02560110 C***** WHEN ADDITIONAL ITEMS REMAIN IN AN I/O LIST 02570110 C***** AND THE LAST RIGHT PARENTHESIS HAS BEEN REACHED 02580110 C***** IN THE CORRESPONDING FORMAT STATEMENT 02590110 JACVI = +12345 02600110 KBCVI = 3 02610110 CMAVS = 1.1 02620110 CMBVS = 1.23 02630110 CMEVS = 33.9567 02640110 CMGVS = 1.4E+03 02650110 AVS = .962951E+4 02660110 BVS = 2.0E1 02670110 C***** CARDS 4, 5, 6, 7, 8 02680110 70030 FORMAT (/49X,"THIS TEST CONTAINS 5 GROUPS" ) 02690110 C*********************** 02700110 C**** TO DELETE TEST 3 - CARDS 4 THRU 21 MUST BE BYPASS 02710110 C**** USE THE FOLLOWING CODE: 02720110 C**** IVDELE=IVDELE+1 02730110 C**** WRITE (NUVI,80000) IVTNUM 02740110 C**** DO 0031 IPASS=1,18 02750110 C0032 FORMAT (A80) 02760110 C**** READ (IRVI,0032) IDATA 02770110 C0031 CONTINUE 02780110 C**** COMMENT OUT REMAINING CODE UNTIL NEXT TEST 02790110 C************************* 02800110 IVINSP=IVINSP+1 02810110 WRITE (NUVI,80004) IVTNUM 02820110 WRITE (NUVI,70030) 02830110 35007 FORMAT (I5) 02840110 READ (IRVI,35007) IAC1I 02850110 3509 FORMAT (" ",16X,"COMPUTED: " ,22X,"6 COMPUTED LINES EXPECTED" ) 02860110 WRITE (NUVI,3509) 02870110 35009 FORMAT(23X,I10) 02880110 WRITE(NUVI,35009)JACVI,IAC1I 02890110 35008 FORMAT (" ",16X,"C0RRECT: " ," 12345") 02900110 WRITE(NUVI,35008) 02910110 C***** CARDS 9, 10, 11, 12 02920110 35010 FORMAT(F3.1) 02930110 READ (IRVI,35010) A2S 02940110 3501 FORMAT (/17X,"COMPUTED: " ,22X,"5 COMPUTED LINES EXPECTED" ) 02950110 WRITE (NUVI,3501) 02960110 35012 FORMAT(23X,F8.1) 02970110 WRITE(NUVI,35012)CMAVS,A2S 02980110 35011 FORMAT (" ",16X,"C0RRECT: " ," 1.1") 02990110 WRITE (NUVI,35011) 03000110 C***** CARDS 13, 14, 15 03010110 35013 FORMAT (E13.6) 03020110 READ (IRVI,35013) A1S(1), HHCVS, A1S(2) 03030110 3504 FORMAT (/17X,"COMPUTED: " ,22X,"4 COMPUTED LINES EXPECTED" ) 03040110 WRITE (NUVI,3504) 03050110 35015 FORMAT(23X,E17.6) 03060110 WRITE(NUVI,35015) CMEVS, A1S(1), HHCVS, A1S(2) 03070110 35014 FORMAT (" ",16X,"C0RRECT: " ," 0.339567E+02" ," OR ", 03080110 1 " .339567+002" ) 03090110 WRITE (NUVI,35014) 03100110 C***** CARDS 16, 17, 18, 19 WITH D EXPONENTS 03110110 35016 FORMAT (F18.11/E18.11) 03120110 READ (IRVI,35016) A2S 03130110 3507 FORMAT (/17X,"COMPUTED: " ,22X,"5 COMPUTED LINES EXPECTED" ) 03140110 WRITE (NUVI,3507) 03150110 35018 FORMAT (23X,E17.6) 03160110 WRITE (NUVI,35018) AVS, A2S 03170110 35017 FORMAT (" ",16X,"CORRECT: " ," 0.962951E+04" , 03180110 1 " OR "," .962951+004" ) 03190110 WRITE (NUVI,35017) 03200110 C***** CARDS 20, 21 03210110 35019 FORMAT (I1,F4.2,E9.2,F8.1) 03220110 READ (IRVI,35019) LCCVI, DCVS, AC2S(5,6), A3S(1,2,2), MDCVI, 03230110 1 FFCVS, GGCVS, AAVS 03240110 70033 FORMAT (/17X,"COMPUTED: " ,22X,"3 COMPUTED LINES EXPECTED" ) 03250110 WRITE (NUVI,70033) 03260110 35021 FORMAT (23X,I6, F6.2, E10.2, E9.1) 03270110 WRITE (NUVI,35021) KBCVI, CMBVS, CMGVS, BVS, LCCVI, DCVS, 03280110 1 AC2S(5,6), A3S(1,2,2), MDCVI, FFCVS, GGCVS, AAVS 03290110 35020 FORMAT (" ",16X,"CORRECT: " ,22X, 03300110 1 "2 CORRECT ANSWERS POSSIBLE" , 03310110 2 /28X,"3 1.23 0.14E+04 0.2E+02" , 03320110 3 /28X,"3 1.23 0.14+004 0.2+002" ) 03330110 WRITE (NUVI,35020) 03340110 C********************************** 03350110 CT004* TEST 4 03360110 IVTNUM=4 03370110 C***** 03380110 C************************************ 03390110 C***** TEST THAT FORMAT CONTROL PASSES TO THE GROUP 03400110 C***** ENCLOSED BY THE LAST PRECEDING RIGHT PARENTHESIS 03410110 C***** WHEN THE I/O LIST CONTAINS MORE ELEMENTS THAN 03420110 C***** THE NUMBER OF DESCRIPTORS IN THE FORMAT STATEMENT 03430110 C*************************************** 03440110 JACVI = +4444 03450110 KBCVI = -333 03460110 LCCVI = 22 03470110 MDCVI = 11 03480110 ACVS = 5.555 03490110 BCVS = -6.666 03500110 CCVS = +7.77 03510110 DCVS = 65432.1 03520110 CMAVS = -0.13579E+5 03530110 CMBVS = 0.4545E-04 03540110 CMCVS = 0.9989E12 03550110 CMDVS = -0.747E-2 03560110 CMEVS = +0.549E+00 03570110 CMFVS = 0.662E-0 03580110 CMGVS = 0.468E-10 03590110 RAVS = +59.542E02 03600110 RBVS = -0.01234560E-2 03610110 RCVS = -1395624534.E-10 03620110 RDVS = +129.E4 03630110 REVS = 4.12E+20 03640110 FFCVS = -44.6666 03650110 GGCVS = +.549327E+2 03660110 HHCVS = 848. 03670110 MVS = -.987 03680110 C***** CARDS 22, 23, 24, 25, 26 03690110 35022 FORMAT ( E12.5, (I4)) 03700110 C***** SEE NOTES TEST1 & TEST 3 TO BYPASS TEST 03710110 C***** CARDS 22 THRU 26 MUST BE BYPASSED 03720110 IVINSP=IVINSP+1 03730110 WRITE (NUVI,80004) IVTNUM 03740110 WRITE (NUVI,70040) 03750110 READ (IRVI,35022) A1S(2), IAC1I 03760110 70040 FORMAT (" ",48X,"THIS TEST CONTAINS 2 GROUPS" ) 03770110 35023 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 03780110 1 2(/23X,E16.5), 03790110 2 /17X,"CORRECT: " ,"-0.13579E+05" ," OR "," -.13579+005" , 03800110 3 //17X,"COMPUTED: " ,22X,"6 COMPUTED LINES EXPECTED" , 03810110 4 /(23X,I9)) 03820110 70041 FORMAT (" ",16X,"CORRECT: " ," 4444") 03830110 WRITE (NUVI,35023) CMAVS, A1S(2), JACVI, IAC1I 03840110 WRITE (NUVI,70041) 03850110 CT005* TEST 5 03860110 C***** 03870110 IVTNUM = 5 03880110 C***** CARDS 27, 28 03890110 C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 03900110 C***** CARDS 27,28 SHOULD BE BYPASSED 03910110 IVINSP=IVINSP+1 03920110 WRITE (NUVI,80004) IVTNUM 03930110 WRITE (NUVI,70050) 03940110 70050 FORMAT (" ",48X,"THIS TEST CONTAINS 5 GROUPS" ) 03950110 35025 FORMAT (I4, (F6.3), E11.4) 03960110 READ (IRVI,35025) MRRVI, AC1S(1), EP1S(1), A3S(1,1,1), AC2S(2,2) 03970110 35026 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 03980110 1 2(/23X,I8),/17X,"CORRECT: " ,"-333",//17X,"COMPUTED: " , 03990110 2 22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,F10.3), 04000110 3 /17X,"CORRECT: " ," 5.555",//17X,"COMPUTED: " , 04010110 4 22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,E15.4), 04020110 5 /17X,"CORRECT: " ," 0.4545E-04" ," OR ",".4545-004",//17X, 04030110 6 "COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,F10.3), 04040110 7 /17X,"CORRECT: " ,"-6.666",//17X, 04050110 8 "COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,E15.4), 04060110 9 /17X,"CORRECT: " ," 0.9989E+12" ," OR ",".9989+012") 04070110 WRITE (NUVI,35026) KBCVI, MRRVI, ACVS, AC1S(1), CMBVS, EP1S(1), 04080110 1 BCVS, A3S(1,1,1),CMCVS,AC2S(2,2) 04090110 CT006* TEST 6 04100110 C***** CARDS 29, 30 04110110 IVTNUM = 6 04120110 C***** SEE NOTES TEST 1 & 3 TO DELETE TEST 04130110 C***** CARDS 29 & 30 MUST BE BYPASSED 04140110 IVINSP=IVINSP+1 04150110 WRITE (NUVI,80004) IVTNUM 04160110 70060 FORMAT (" ",48X,"THIS TEST CONTAINS 7 GROUPS" ) 04170110 WRITE (NUVI,70060) 04180110 35027 FORMAT (F4.2, (2(E10.3)), I2) 04190110 READ (IRVI,35027) A2S(2,2), A3S(2,1,1), EP1S(2), MCA3I(1,1,1), 04200110 1 BVS, AC2S(2,1), NECVI 04210110 35028 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04220110 1 2(/23X,F9.2),/17X,"CORRECT: " ," 7.77",//17X,"COMPUTED: " , 04230110 222X,"2 COMPUTED LINES EXPECTED" ,2(/23X,E14.3),/17X,"CORRECT: " ,04240110 3"-0.747E-02" ," OR ","-.747-002",//17X,"COMPUTED: " ,22X, 04250110 4"2 COMPUTED LINES EXPECTED" ,2(/23X,E14.3),/17X,"CORRECT: " , 04260110 5" 0.549E+00" ," OR ",".549+000",//17X,"COMPUTED: " ,22X, 04270110 6"2 COMPUTED LINES EXPECTED" ,2(/23X,I7),/17X,"CORRECT: " ," 22", 04280110 7//17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04290110 82(/23X,E14.3), /17X,"CORRECT: " ," 0.662E+00" ," OR ",".662+000")04300110 75028 FORMAT (//17X,"COMPUTED: " ,22X, 04310110 1 "2 COMPUTED LINES EXPECTED" ,2(/23X,E14.3), 04320110 2 /17X,"CORRECT: " ," 0.468E-10" ," OR ",".468-010", 04330110 3 //17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,I7), 04340110 4 /17X,"CORRECT: " ," 11") 04350110 WRITE (NUVI,35028) CCVS, A2S(2,2), CMDVS, A3S(2,1,1), CMEVS, 04360110 1 EP1S(2), LCCVI, MCA3I(1,1,1), CMFVS, BVS 04370110 C 04380110 WRITE (NUVI,75028) CMGVS,AC2S(2,1),MDCVI,NECVI 04390110 C 04400110 CT007* TEST 7 04410110 IVTNUM = 7 04420110 C***** CARDS 31, 32 04430110 C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04440110 C***** CARDS 31,& 32 SHOULD BE BYPASSED 04450110 IVINSP=IVINSP+1 04460110 WRITE (NUVI,80004) IVTNUM 04470110 WRITE (NUVI,70070) 04480110 70070 FORMAT (" ",48X,"THIS TEST CONTAINS 5 GROUPS" ) 04490110 35029 FORMAT (E12.5, (F8.4, E17.10)) 04500110 READ (IRVI,35029) CAVS, EP1S(3), A1S(1), A2S(1,2), A2S(2,1) 04510110 35030 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04520110 1 /(23X, E16.5)) 04530110 70071 FORMAT (/17X,"CORRECT: " ," 0.59542E+04" ," OR ", 04540110 1 ".59542+004" ) 04550110 WRITE (NUVI,35030) RAVS, CAVS 04560110 WRITE (NUVI,70071) 04570110 35031 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04580110 1 2(/23X,F12.4),/17X,"CORRECT: " ,"-44.6666", 04590110 2 //17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04600110 3 2(/23X,E17.6), 04610110 4 /17X,"CORRECT: " ,"-0.123456E-03" ," OR ","-.123456-003" , 04620110 5 //17X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04630110 6 2(/23X,F12.4),/17X,"CORRECT: " ," 54.9327",//17X, 04640110 7 "COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" ,/(23X,E17.6)) 04650110 C 04660110 70072 FORMAT (/17X,"CORRECT: " ,"-0.139562E+00" ," OR ", 04670110 1 "-.139562+000" ) 04680110 WRITE (NUVI,35031) FFCVS, EP1S(3), RBVS, A1S(1), GGCVS, A2S(1,2),04690110 1 RCVS, A2S(2,1) 04700110 WRITE (NUVI,70072) 04710110 C**** 04720110 CT008* TEST 8 04730110 IVTNUM = 8 04740110 C***** CARDS 33, 34, 35, 36 04750110 C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04760110 C***** CARDS 33 THRU 36 SHOULD BE BYPASSED 04770110 IVINSP=IVINSP+1 04780110 WRITE (NUVI,80004) IVTNUM 04790110 WRITE (NUVI,70080) 04800110 70080 FORMAT (" ",48X,"THIS TEST CONTAINS 5 GROUPS" ) 04810110 C***** THIS READ CAUSES AN INPUT DATA CARD TO BE SKIPPED 04820110 35032 FORMAT( F7.1, (/2(E10.3), 2(E10.3)), E10.3) 04830110 READ (IRVI,35032) CVS, A2S(2,1), A3S(1,2,2), A3S(1,1,1), 04840110 1 A3S(2,2,1), A2S(1,1), A3S(1,2,1), EP1S(4),A1S(2) 04850110 35033 FORMAT (" ",16X,"COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" , 04860110 1 2(/23X,F12.1),/17X,"CORRECT: " ," 65432.1",//17X, 04870110 2 "COMPUTED: " ,22X,"3 COMPUTED LINES EXPECTED" ,3(/23X,E14.3), 04880110 3 /17X,"CORRECT: " ," 0.848E+03" ," OR ",".848+003",//17X, 04890110 4 "COMPUTED: " ,22X,"3 COMPUTED LINES EXPECTED" ,3(/23X,E14.3), 04900110 5 /17X,"CORRECT: " ," 0.129E+07" ," OR ",".129+007",//17X, 04910110 6 "COMPUTED: " ,22X,"2 COMPUTED LINES EXPECTED" ,2(/23X,E14.3), 04920110 7 /17X,"CORRECT: " ," 0.412E+21" ," OR ",".412+021",//17X, 04930110 8 "COMPUTED: " ,22X,"4 COMPUTED LINES EXPECTED" ,4(/23X,E14.3), 04940110 9 /17X,"CORRECT: " ,"-0.987E+00" ," OR ","-.987+000") 04950110 WRITE (NUVI,35033) DCVS, CVS, HHCVS, A2S(2,1), A3S(1,2,2),RDVS, 04960110 1 A3S(1,1,1), A3S(2,2,1), REVS, A2S(1,1), 04970110 2 MVS, A3S(1,2,1), EP1S(4),A1S(2) 04980110 CT009* TEST 9 04990110 IVTNUM = 9 05000110 C***** TEST FOR EMPTY FORMAT STATEMENT 05010110 C***** SEE NOTES TEST 1 TO DELETE TEST 05020110 IVINSP=IVINSP+1 05030110 WRITE (NUVI,80004) IVTNUM 05040110 35034 FORMAT (" ",48X,"EMPTY FORMAT ( ) WRITE" , 05050110 1 //2X,"THE FOLLOWING LINE SHOULD BE BLANK" ) 05060110 WRITE (NUVI,35034) 05070110 35035 FORMAT ( ) 05080110 WRITE (NUVI,35035) 05090110 35036 FORMAT (2X," END EMPTY FORMAT TEST" ) 05100110 WRITE (NUVI,35036) 05110110 C***** POSITION INPUT TO INSURE CORRECT RECORD FOR NEXT TESTS 05120110 35037 IF (MRRVI - 5) 35038, 35039, 35038 05130110 C***** CARD 37 05140110 35038 READ (IRVI, 35025) MRRVI 05150110 GO TO 35037 05160110 35039 CONTINUE 05170110 CT010* TEST 10 05180110 IVTNUM = 10 05190110 C***** 05200110 C***** ADDITIONAL SCALE FACTOR ON INPUT-OUTPUT 13.5.7 05210110 C***** CARD 38 05220110 IVINSP=IVINSP+1 05230110 WRITE (NUVI,80004) IVTNUM 05240110 35040 FORMAT (1PE10.3, -1PE10.2, E10.3) 05250110 READ (IRVI,35040) A1S(3), A1S(4), A1S(5) 05260110 C**** SEE NOTES TEST 1 TO DELETE TEST (INSERT CODE HERE) 05270110 35041 FORMAT (" ",16X,"COMPUTED: " , 05280110 1 E12.3, E12.4, E12.4, 05290110 2 /17X,"CORRECT: " ,22X,"2 CORRECT ANSWERS POSSIBLE" , 05300110 3 /30X,"0.988E+02 0.8648E+05 0.9877E+04" , 05310110 4 /30X," .988+002 .8648+005 .9877+004" ) 05320110 WRITE(NUVI, 35041) A1S(3), A1S(4), A1S(5) 05330110 CT011* TEST 11 05340110 IVTNUM = 11 05350110 C***** CARDS 39 & 40 05360110 C***** SCALE FACTOR HAS NO EFFECT ON FORMAT RESCAN OR F EDIT 05370110 C***** DESCRIPTOR WITH INPUT DATA CONTAINING AN EXPONENT 05380110 AAVS = .087654 05390110 BAVS = .87654 05400110 35042 FORMAT (-1P,2F8.1, +1P, 2X,(F8.1)) 05410110 READ (IRVI, 35042) AVS, BVS, CVS, DVS 05420110 C**** SEE NOTES TEST 1 TO DELETE TEST 05430110 IVINSP=IVINSP+1 05440110 WRITE (NUVI,80004) IVTNUM 05450110 35043 FORMAT (" ",16X,"COMPUTED: " ,22X, 05460110 1 "3 COMPUTED LINES EXPECTED" ,/25X,F8.4, F8.3, F8.2, F8.1, 1P, 05470110 2 /26X, F5.4, 3X, 2P, F5.3, +3P, " ", (23X,F6.2),3X) 05480110 5043 FORMAT (17X,"CORRECT: " ,22X," " , 05490110 1 /25X," 1.2345 12.345 123.45 1234.5" ,/24X, 05500110 2 " .8765 8.765 87.65" /21X, 05510110 3 " 876.54") 05520110 WRITE (NUVI,35043) AVS,BVS,CVS,DVS,AAVS,AAVS,AAVS,BAVS 05530110 WRITE (NUVI,5043) 05540110 CBB** ********************** BBCSUM0 **********************************05550110 C**** WRITE OUT TEST SUMMARY 05560110 C**** 05570110 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 05580110 WRITE (I02, 90004) 05590110 WRITE (I02, 90014) 05600110 WRITE (I02, 90004) 05610110 WRITE (I02, 90020) IVPASS 05620110 WRITE (I02, 90022) IVFAIL 05630110 WRITE (I02, 90024) IVDELE 05640110 WRITE (I02, 90026) IVINSP 05650110 WRITE (I02, 90028) IVTOTN, IVTOTL 05660110 CBE** ********************** BBCSUM0 **********************************05670110 CBB** ********************** BBCFOOT0 **********************************05680110 C**** WRITE OUT REPORT FOOTINGS 05690110 C**** 05700110 WRITE (I02,90016) ZPROG, ZPROG 05710110 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05720110 WRITE (I02,90019) 05730110 CBE** ********************** BBCFOOT0 **********************************05740110 CBB** ********************** BBCFMT0A **********************************05750110 C**** FORMATS FOR TEST DETAIL LINES 05760110 C**** 05770110 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 05780110 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 05790110 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 05800110 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 05810110 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 05820110 1I6,/," ",15X,"CORRECT= " ,I6) 05830110 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 05840110 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 05850110 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 05860110 1A21,/," ",16X,"CORRECT= " ,A21) 05870110 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 05880110 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 05890110 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 05900110 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 05910110 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 05920110 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 05930110 80050 FORMAT (" ",48X,A31) 05940110 CBE** ********************** BBCFMT0A **********************************05950110 CBB** ********************** BBCFMAT1 **********************************05960110 C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05970110 C**** 05980110 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 05990110 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 06000110 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 06010110 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 06020110 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 06030110 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 06040110 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 06050110 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 06060110 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 06070110 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 06080110 2"(",F12.5,", ",F12.5,")") 06090110 CBE** ********************** BBCFMAT1 **********************************06100110 CBB** ********************** BBCFMT0B **********************************06110110 C**** FORMAT STATEMENTS FOR PAGE HEADERS 06120110 C**** 06130110 90002 FORMAT ("1") 06140110 90004 FORMAT (" ") 06150110 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )06160110 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 06170110 90008 FORMAT (" ",21X,A13,A17) 06180110 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 06190110 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 06200110 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 06210110 1 7X,"REMARKS",24X) 06220110 90014 FORMAT (" ","----------------------------------------------" , 06230110 1 "---------------------------------" ) 06240110 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 06250110 C**** 06260110 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06270110 C**** 06280110 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 06290110 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 06300110 1 A13) 06310110 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 06320110 C**** 06330110 C**** FORMAT STATEMENTS FOR RUN SUMMARY 06340110 C**** 06350110 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06360110 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06370110 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06380110 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06390110 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06400110 CBE** ********************** BBCFMT0B **********************************06410110 C***** END OF TEST SEGMENT 350 06420110 STOP 06430110 END 06440110