| PROGRAM FM106 |
| |
| C COMMENT SECTION. 00010106 |
| C 00020106 |
| C FM106 00030106 |
| C 00040106 |
| C THIS ROUTINE IS A TEST OF THE E FORMAT AND IS TAPE AND PRINTER00050106 |
| C ORIENTED. THE ROUTINE CAN ALSO BE USED FOR DISK. BOTH THE READ 00060106 |
| C AND WRITE STATEMENTS ARE TESTED. VARIABLES IN THE INPUT AND 00070106 |
| C OUTPUT LISTS ARE REAL VARIABLES AND REAL ARRAY ELEMENTS OR 00080106 |
| C ARRAY NAME REFERENCES. ALL READ AND WRITE STATEMENTS ARE DONE 00090106 |
| C WITH FORMAT STATEMENTS. THE ROUTINE HAS AN OPTIONAL SECTION OF 00100106 |
| C CODE TO DUMP THE FILE AFTER IT HAS BEEN WRITTEN. DO LOOPS AND 00110106 |
| C DO-IMPLIED LISTS ARE USED IN CONJUNCTION WITH A ONE DIMENSIONAL 00120106 |
| C INTEGER ARRAY FOR THE DUMP SECTION. 00130106 |
| C 00140106 |
| C THIS ROUTINE WRITES A SINGLE SEQUENTIAL FILE WHICH IS 00150106 |
| C REWOUND AND READ SEQUENTIALLY FORWARD. EVERY FOURTH RECORD IS 00160106 |
| C CHECKED DURING THE READ TEST SECTION PLUS THE LAST TWO RECORDS 00170106 |
| C AND THE END OF FILE ON THE LAST RECORD. 00180106 |
| C 00190106 |
| C THE LINE CONTINUATION IN COLUMN 6 IS USED IN READ, WRITE, 00200106 |
| C AND FORMAT STATEMENTS. FOR BOTH SYNTAX AND SEMANTIC TESTS, ALL 00210106 |
| C STATEMENTS SHOULD BE CHECKED VISUALLY FOR THE PROPER FUNCTIONING 00220106 |
| C OF THE CONTINUATION LINE. 00230106 |
| C 00240106 |
| C REFERENCES 00250106 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00260106 |
| C X3.9-1978 00270106 |
| C 00280106 |
| C SECTION 8, SPECIFICATION STATEMENTS 00290106 |
| C SECTION 9, DATA STATEMENT 00300106 |
| C SECTION 11.10, DO STATEMENT 00310106 |
| C SECTION 12, INPUT/OUTPUT STATEMENTS 00320106 |
| C SECTION 12.8.2, INPUT/OUTPUT LIST 00330106 |
| C SECTION 12.9.5.2, FORMATTED DATA TRANSFER 00340106 |
| C SECTION 13, FORMAT STATEMENT 00350106 |
| C SECTION 13.2.1, EDIT DESCRIPTORS 00360106 |
| C 00370106 |
| DIMENSION ITEST(7), RTEST(20) 00380106 |
| DIMENSION IDUMP(136) 00390106 |
| CHARACTER*1 NINE,IDUMP 00400106 |
| DATA NINE/'9'/ 00410106 |
| C 00420106 |
| 77701 FORMAT ( 110A1) 00430106 |
| 77702 FORMAT (10X,"PREMATURE EOF ONLY " ,I3," RECORDS LUN " ,I2, " OUT O00440106 |
| 1F ",I3," RECORDS") 00450106 |
| 77703 FORMAT (10X,"FILE ON LUN " ,I2," OK... ",I3," RECORDS") 00460106 |
| 77704 FORMAT (10X,"FILE ON LUN " ,I2," TOO LONG MORE THAN " ,I3, " RECOR00470106 |
| 1DS") 00480106 |
| 77705 FORMAT ( 1X,80A1,3(/ 10X,71A1) ) 00490106 |
| 77706 FORMAT ( 10X, "FILE I09 CREATED WITH 124 SEQUENTIAL RECORDS" ) 00500106 |
| 77751 FORMAT ( I3,2I2,3I3,I4,3X,2E8.1,2X,3E9.2,2X,E10.3/24X,3E10.3,4X,2E00510106 |
| 111.4,/1X,3E11.4,2X,2E12.5/26X,4E12.5,6X ) 00520106 |
| C 00530106 |
| C 00540106 |
| C ********************************************************** 00550106 |
| C 00560106 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00570106 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00580106 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00590106 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00600106 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00610106 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00620106 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00630106 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00640106 |
| C OF EXECUTING THESE TESTS. 00650106 |
| C 00660106 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00670106 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00680106 |
| C 00690106 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00700106 |
| C 00710106 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00720106 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00730106 |
| C BUILDING 225 RM A266 00740106 |
| C GAITHERSBURG, MD 20899 00750106 |
| C ********************************************************** 00760106 |
| C 00770106 |
| C 00780106 |
| C 00790106 |
| C INITIALIZATION SECTION 00800106 |
| C 00810106 |
| C INITIALIZE CONSTANTS 00820106 |
| C ************** 00830106 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00840106 |
| I01 = 5 00850106 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00860106 |
| I02 = 6 00870106 |
| C SYSTEM ENVIRONMENT SECTION 00880106 |
| C 00890106 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00900106 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00910106 |
| C (UNIT NUMBER FOR CARD READER). 00920106 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00930106 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00940106 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00950106 |
| C 00960106 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00970106 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00980106 |
| C (UNIT NUMBER FOR PRINTER). 00990106 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01000106 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01010106 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01020106 |
| C 01030106 |
| IVPASS=0 01040106 |
| IVFAIL=0 01050106 |
| IVDELE=0 01060106 |
| ICZERO=0 01070106 |
| C 01080106 |
| C WRITE PAGE HEADERS 01090106 |
| WRITE (I02,90000) 01100106 |
| WRITE (I02,90001) 01110106 |
| WRITE (I02,90002) 01120106 |
| WRITE (I02, 90002) 01130106 |
| WRITE (I02,90003) 01140106 |
| WRITE (I02,90002) 01150106 |
| WRITE (I02,90004) 01160106 |
| WRITE (I02,90002) 01170106 |
| WRITE (I02,90011) 01180106 |
| WRITE (I02,90002) 01190106 |
| WRITE (I02,90002) 01200106 |
| WRITE (I02,90005) 01210106 |
| WRITE (I02,90006) 01220106 |
| WRITE (I02,90002) 01230106 |
| C 01240106 |
| C DEFAULT ASSIGNMENT FOR FILE 07 IS I09 = 7 01250106 |
| I09 = 99 01260106 |
| CX090 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-090 01270106 |
| CX091 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-091 01280106 |
| C 01290106 |
| C WRITE SECTION.... 01300106 |
| C 01310106 |
| C THIS SECTION OF CODE BUILDS A UNIT RECORD FILE ON LUN I09 THAT IS 01320106 |
| C 80 CHARACTERS PER RECORD, 124 RECORDS AND CONSISTS OF ONLY 01330106 |
| C REALS ( E FORMAT ). THIS IS THE ONLY FILE TESTED IN THE 01340106 |
| C ROUTINE FM106 AND FOR PURPOSES OF IDENTIFICATION IS FILE 07. 01350106 |
| C ALL OF THE DATA WITH THE EXCEPTION OF THE 20 CHARACTER INTEGER 01360106 |
| C PREAMBLE FOR EACH RECORD, IS COMPRISED OF REAL VARIABLES SET BY 01370106 |
| C REAL ASSIGNMENT STATEMENTS TO VARIOUS REAL CONSTANTS. 01380106 |
| C 01390106 |
| C ALL THE THE REAL CONSTANTS USED ARE POSITIVE, I.E. NO SIGN. 01400106 |
| C 01410106 |
| IPROG = 106 01420106 |
| IFILE = 07 01430106 |
| ILUN = I09 01440106 |
| C THERE ARE 31 SETS OF FOUR 80 CHARACTER RECORDS EACH.. 01450106 |
| C EACH WRITE OR READ OF THE FILE HANDLES 4 RECORDS. FOR THE 01460106 |
| C PURPOSES OF THE OPTIONAL DUMP OF FILE 07, THE TOTAL NUMBER OF 01470106 |
| C 80 CHARACTER RECORDS IS 4 * 31 = 124 RECORDS. 01480106 |
| ITOTR = 124 01490106 |
| IRLGN = 80 01500106 |
| IEOF = 0000 01510106 |
| C SET THE REAL VARIABLES USING E - NOTATION.... 01520106 |
| RCON21 = 0.9E01 01530106 |
| RCON22 = 0.9E00 01540106 |
| RCON31 = 0.21E02 01550106 |
| RCON32 = 0.21E01 01560106 |
| RCON33 = 0.21E00 01570106 |
| RCON41 = 0.512E03 01580106 |
| RCON42 = 0.512E02 01590106 |
| RCON43 = 0.512E01 01600106 |
| RCON44 = 0.512E00 01610106 |
| RCON51 = 0.9995E04 01620106 |
| RCON52 = 0.9996E03 01630106 |
| RCON53 = 0.9997E02 01640106 |
| RCON54 = 0.9998E01 01650106 |
| RCON55 = 0.9999E00 01660106 |
| RCON61 = 0.32764E05 01670106 |
| RCON62 = 0.32765E04 01680106 |
| RCON63 = 0.32766E03 01690106 |
| RCON64 = 0.32767E02 01700106 |
| RCON65 = 0.32768E01 01710106 |
| RCON66 = 0.32769E00 01720106 |
| DO 1032 IRNUM = 1, 31 01730106 |
| IF ( IRNUM .EQ. 31 ) IEOF = 9999 01740106 |
| WRITE(I09,77751)IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,RCON21,RCO01750106 |
| 1N22,RCON31,RCON32,RCON33,RCON41,RCON42,RCON43,RCON44,RCON51,RCON5201760106 |
| 2,RCON53,RCON54,RCON55,RCON61,RCON62,RCON63,RCON64,RCON65,RCON66 01770106 |
| 1032 CONTINUE 01780106 |
| WRITE (I02,77706) 01790106 |
| C 01800106 |
| C REWIND SECTION 01810106 |
| C 01820106 |
| REWIND I09 01830106 |
| C 01840106 |
| C READ SECTION.... 01850106 |
| C 01860106 |
| IVTNUM = 103 01870106 |
| C 01880106 |
| C **** TEST 103 THRU TEST 110 **** 01890106 |
| C TEST 103 THRU 110 - THESE TESTS READ THE SEQUENTIAL FILE 01900106 |
| C PREVIOUSLY WRITTEN ON LUN I09 AND CHECK THE FIRST AND EVERY FOURTH01910106 |
| C RECORD. THE VALUES CHECKED ARE THE RECORD NUMBER - IRNUM AND 01920106 |
| C SEVERAL VALUES WHICH SHOULD REMAIN CONSTANT FOR ALL OF THE 31 01930106 |
| C SETS OF 4 RECORDS. 01940106 |
| C 01950106 |
| IRTST = 1 01960106 |
| READ ( I09, 77751) ITEST, RTEST 01970106 |
| C READ THE FIRST RECORD.... 01980106 |
| DO 1034 I = 1, 8 01990106 |
| IVON01 = 0 02000106 |
| C THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 1 THRU 802010106 |
| IF ( ITEST(4) .EQ. IRTST ) IVON01 = IVON01 + 1 02020106 |
| C THE ELEMENT (4) SHOULD EQUAL THE RECORD NUMBER.... 02030106 |
| C THE ERROR TOLERANCE IS BASED ON A SIXTEEN BIT MANTISSA AND 02040106 |
| C PROVIDES SOME ALLOWANCE FOR THE IMPLEMENTORS INPUT, OUTPUT, AND 02050106 |
| C STORAGE OF REAL NUMBERS.... 02060106 |
| IF(RTEST(1) .GE. 8.9995 .OR. RTEST(1) .LE. 9.0005) IVON01=IVON01+102070106 |
| C THE ELEMENT(1) SHOULD EQUAL RCON21 = 9. .... 02080106 |
| IF(RTEST(4) .GE. 2.0995 .OR. RTEST(4) .LE. 2.1005) IVON01=IVON01+102090106 |
| C THE ELEMENT( 4) SHOULD EQUAL RCON32 = 2.1 .... 02100106 |
| IF(RTEST(9) .GE. .51195 .OR. RTEST(9) .LE. .51205) IVON01=IVON01+102110106 |
| C THE ELEMENT( 9) SHOULD EQUAL RCON44 = .512 .... 02120106 |
| IF ( RTEST(13) .GE. 9.9975 .OR. RTEST(13) .LE. 9.9985 ) 02130106 |
| 1 IVON01 = IVON01 + 1 02140106 |
| C THE ELEMENT(13) SHOULD EQUAL RCON54 = 9.998 .... 02150106 |
| IF ( RTEST(20) .GE. .32764 .OR. RTEST(20) .LE. .32774 ) 02160106 |
| 1 IVON01 = IVON01 + 1 02170106 |
| C THE ELEMENT(20) SHOULD EQUAL RCON66 = .32769 .... 02180106 |
| IF ( IVON01 - 6 ) 21030, 11030, 21030 02190106 |
| C WHEN IVON01 = 6 THEN ALL SIX OF THE ITEST ELEMENTS THAT WERE 02200106 |
| C CHECKED HAD THE EXPECTED VALUES.... IF IVON01 DOES NOT EQUAL 6 02210106 |
| C THEN AT LEAST ONE OF THE VALUES WAS INCORRECT.... 02220106 |
| 11030 IVPASS = IVPASS + 1 02230106 |
| WRITE (I02,80001) IVTNUM 02240106 |
| GO TO 1041 02250106 |
| 21030 IVFAIL = IVFAIL + 1 02260106 |
| IVCOMP = IVON01 02270106 |
| IVCORR = 6 02280106 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02290106 |
| 1041 CONTINUE 02300106 |
| IVTNUM = IVTNUM + 1 02310106 |
| C INCREMENT THE TEST NUMBER.... 02320106 |
| IF ( IVTNUM .EQ. 111 ) GO TO 1035 02330106 |
| C TAPE SHOULD BE AT RECORD NUMBER 29 FOR TEST 110 - DO NOT READ MORE02340106 |
| C UNTIL TEST NUMBER 111 WHICH CHECKS RECORD NUMBER 30.... 02350106 |
| DO 1033 J = 1, 4 02360106 |
| READ ( I09, 77751 ) ITEST, RTEST 02370106 |
| C READ FOUR SETS OF RECORDS ON LUN I09.... 02380106 |
| 1033 CONTINUE 02390106 |
| IRTST = IRTST + 4 02400106 |
| C INCREMENT THE RECORD NUMBER COUNTER.... 02410106 |
| 1034 CONTINUE 02420106 |
| IF ( ICZERO ) 31030, 1035, 31030 02430106 |
| 31030 IVDELE = IVDELE + 1 02440106 |
| WRITE (I02,80003) IVTNUM 02450106 |
| 1035 CONTINUE 02460106 |
| IVTNUM = 111 02470106 |
| C 02480106 |
| C **** TEST 111 **** 02490106 |
| C TEST 111 - THIS CHECKS THE RECORD NUMBER ON EXPECTED RECORD 02500106 |
| C SET 30.... 02510106 |
| C 02520106 |
| IF (ICZERO) 31110, 1110, 31110 02530106 |
| 1110 CONTINUE 02540106 |
| READ ( I09, 77751 ) ITEST, RTEST 02550106 |
| IVCOMP = ITEST(4) 02560106 |
| GO TO 41110 02570106 |
| 31110 IVDELE = IVDELE + 1 02580106 |
| WRITE (I02,80003) IVTNUM 02590106 |
| IF (ICZERO) 41110, 1121, 41110 02600106 |
| 41110 IF ( IVCOMP - 30 ) 21110, 11110, 21110 02610106 |
| 11110 IVPASS = IVPASS + 1 02620106 |
| WRITE (I02,80001) IVTNUM 02630106 |
| GO TO 1121 02640106 |
| 21110 IVFAIL = IVFAIL + 1 02650106 |
| IVCORR = 30 02660106 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02670106 |
| 1121 CONTINUE 02680106 |
| IVTNUM = 112 02690106 |
| C 02700106 |
| C **** TEST 112 **** 02710106 |
| C TEST 112 - THIS CHECKS THE RECORD NUMBER ON RECORD SET 31. 02720106 |
| C 02730106 |
| IF (ICZERO) 31120, 1120, 31120 02740106 |
| 1120 CONTINUE 02750106 |
| READ ( I09, 77751 ) ITEST, RTEST 02760106 |
| IVCOMP = ITEST(4) 02770106 |
| GO TO 41120 02780106 |
| 31120 IVDELE = IVDELE + 1 02790106 |
| WRITE (I02,80003) IVTNUM 02800106 |
| IF (ICZERO) 41120, 1131, 41120 02810106 |
| 41120 IF ( IVCOMP - 31 ) 21120, 11120, 21120 02820106 |
| 11120 IVPASS = IVPASS + 1 02830106 |
| WRITE (I02,80001) IVTNUM 02840106 |
| GO TO 1131 02850106 |
| 21120 IVFAIL = IVFAIL + 1 02860106 |
| IVCORR = 31 02870106 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02880106 |
| 1131 CONTINUE 02890106 |
| IVTNUM = 113 02900106 |
| C 02910106 |
| C **** TEST 113 **** 02920106 |
| C TEST 113 - THIS CHECKS THE END OF FILE INDICATOR ON RECORD SET 02930106 |
| C NUMBER 31. 02940106 |
| C 02950106 |
| C 02960106 |
| IF (ICZERO) 31130, 1130, 31130 02970106 |
| 1130 CONTINUE 02980106 |
| IVCOMP = ITEST(7) 02990106 |
| GO TO 41130 03000106 |
| 31130 IVDELE = IVDELE + 1 03010106 |
| WRITE (I02,80003) IVTNUM 03020106 |
| IF (ICZERO) 41130, 1141, 41130 03030106 |
| 41130 IF ( IVCOMP - 9999 ) 21130, 11130, 21130 03040106 |
| 11130 IVPASS = IVPASS + 1 03050106 |
| WRITE (I02,80001) IVTNUM 03060106 |
| GO TO 1141 03070106 |
| 21130 IVFAIL = IVFAIL + 1 03080106 |
| IVCORR = 9999 03090106 |
| WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03100106 |
| 1141 CONTINUE 03110106 |
| C THIS CODE IS OPTIONALLY COMPILED AND IS USED TO DUMP THE FILE 07 03120106 |
| C TO THE LINE PRINTER. 03130106 |
| CDB** 03140106 |
| C ILUN = I09 03150106 |
| C ITOTR = 124 03160106 |
| C IRLGN = 80 03170106 |
| C7777 REWIND ILUN 03180106 |
| C IENDC = 0 03190106 |
| C IRCNT = 0 03200106 |
| C DO 7778 IRNUM = 1, ITOTR 03210106 |
| C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03220106 |
| C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03230106 |
| C IRCNT = IRCNT + 1 03240106 |
| C IF ( IDUMP(20) .EQ. NINE ) IENDC = IRNUM 03250106 |
| C7778 CONTINUE 03260106 |
| C IF ( IENDC - 121 ) 7780,7779,7782 03270106 |
| C7779 IF ( IRCNT - ITOTR ) 7780, 7781, 7782 03280106 |
| C7780 WRITE (I02,77702) IRNUM,ILUN,ITOTR 03290106 |
| C GO TO 7784 03300106 |
| C7781 WRITE (I02,77703) ILUN,ITOTR 03310106 |
| C GO TO 7784 03320106 |
| C7782 WRITE (I02,77704) ILUN, ITOTR 03330106 |
| C DO 7783 I = 1, 5 03340106 |
| C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03350106 |
| C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03360106 |
| C IF ( IDUMP(20) .EQ. NINE ) GO TO 7784 03370106 |
| C7783 CONTINUE 03380106 |
| C7784 GO TO 99999 03390106 |
| CDE** 03400106 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 03410106 |
| 99999 CONTINUE 03420106 |
| WRITE (I02,90002) 03430106 |
| WRITE (I02,90006) 03440106 |
| WRITE (I02,90002) 03450106 |
| WRITE (I02,90002) 03460106 |
| WRITE (I02,90007) 03470106 |
| WRITE (I02,90002) 03480106 |
| WRITE (I02,90008) IVFAIL 03490106 |
| WRITE (I02,90009) IVPASS 03500106 |
| WRITE (I02,90010) IVDELE 03510106 |
| C 03520106 |
| C 03530106 |
| C TERMINATE ROUTINE EXECUTION 03540106 |
| STOP 03550106 |
| C 03560106 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 03570106 |
| 90000 FORMAT ("1") 03580106 |
| 90002 FORMAT (" ") 03590106 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03600106 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03610106 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03620106 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03630106 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 03640106 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 03650106 |
| C 03660106 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 03670106 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 03680106 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 03690106 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 03700106 |
| C 03710106 |
| C FORMAT STATEMENTS FOR TEST RESULTS 03720106 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 03730106 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 03740106 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 03750106 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 03760106 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 03770106 |
| C 03780106 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM106" ) 03790106 |
| END 03800106 |