FM403 Program

**********00010403 * FORTRAN 77 00020403 FM403 FMTRW - (020) 00030403 * 00040403 **********00050403 GENERAL PURPOSE SUBSET REFS00060403 * TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070403 TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080403 * THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090403 PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL 00100403 * DATA TYPES. 00110403 RESTRICTIONS OBSERVED 12.8.2 00120403 * * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130403 * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 00140403 * * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150403 W IS EQUAL TO OR GREATER THAN D 00160403 * * FIELD WIDTH IS NEVER ZERO 13.2.1 00170403 * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180403 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190403 IN THE FORMAT SPECIFICATION 00200403 * * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210403 * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220403 * * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230403 * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.100240403 * INTEGER CONSTANTS 00250403 GENERAL COMMENTS 00260403 * PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270403 FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00280403 * STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00290403 RECORD DIVIDERS) 13.5.4 00300403 * 00310403 BB* **** BBCCOMNT *****00320403 00330403 1978 FORTRAN COMPILER VALIDATION SYSTEM 00340403 VERSION 2.1 00350403 00360403 00370403 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00380403 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00390403 SOFTWARE STANDARDS VALIDATION GROUP 00400403 BUILDING 225 RM A266 00410403 GAITHERSBURG, MD 20899 00420403 00430403 00440403 00450403 BE **** BBCCOMNT *****00460403 INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403 OL. 1----------------------------------------------------------61 00480403 ARD 1 999 00490403 ARD 2 555554444 00500403 ARD 3 666 777777 8 00510403 ARD 4 333333111112222222255555444444444444 00520403 ARD 5 7.7123456.7 00530403 ARD 6 8.889.9997.123456 00540403 ARD 7 5.44446.5555533.133.133.133.1444.1 00550403 ARD 8 5555.15555.1 66666.166666.1 44.22 00560403 ARD 9 2.12.12.12.12.1666.3334.3334.3334.333 00570403 ARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403 OL. 62------------77 00590403 ARD 10 00+0.9876543E+12 00600403 OL. 1----------------------------------------------------------61 00610403 ARD 11 TABC 00620403 ARD 12 FDEFFGHIT+T1F/).TRUE..FALSE. 00630403 ARD 13 -9.9-9.9-9.9-9.9 00640403 ARD 14 9999999999 00650403 ARD 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 ARD 16 TFTFTFTFTF 00670403 ARD 17 99999999 00680403 ARD 18 9999999999999999TFFT9.99.99.99.99.9 00690403 ARD 19 T F T F 00700403 ARD 20 3334444.555550 00710403 ARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 00720403 ARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 00730403 ARD 23 122333544888611222 00740403 ARD 24 455666233444966111 00750403 ARD 25 788999377555899777 00760403 ARD 26 11112 334 559 880 11 00770403 ARD 27 6 778 995 441 222 00 00780403 00790403 * S P E C I F I C A T I O N S SEGMENT 020 00800403 00810403 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01020403 FOR IDENTIFYING THE TEST ENVIRONMENT 01030403 01040403 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01050403 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01060403 Z03 ZPROG = 'PROGRAM NAME' 01070403 Z04 ZDATE = 'DATE OF TEST' 01080403 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 01090403 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01100403 Z07 ZNAME = 'NAME OF USER' 01110403 Z08 ZTAPE = 'TAPE OWNER/ID' 01120403 Z09 ZTAPED = 'DATE TAPE COPIED' 01130403 01140403 I N P U T - O U T P U T ASSIGNMENT STATEMENTS 01390403 01450403 WRITE REPORT TITLE 01460403 01470403 HEADER FORMAT STATEMENT 01550403 WRITE DETAIL REPORT HEADERS 01600403 01610403 * A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS 01830403 SPECIAL CHARACTERS 02080403 * FORMAT TO TEST VERTICAL SPACING 02180403 12.9.5.2.3 02190403 T004 TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR 02200403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 02890403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 02900403 * NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 02910403 FORMAT STATEMENTS CONTAIN REPEATED FIELDS. 02920403 * FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 02930403 FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 02940403 * INPUT CARD 1 02950403 INPUT CARD 2 02980403 * INPUT CARD 3 03010403 INPUT CARD 4 03040403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 03520403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 03530403 * NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 03540403 EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 03550403 * STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 03560403 FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. 03570403 * FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 03580403 DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE 03590403 * REPEATED 03600403 INPUT CARD 5 03610403 * INPUT CARD 6 03640403 INPUT CARD 7 03670403 * INPUT CARD 8 03710403 INPUT CARD 9 03740403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 04300403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 04310403 * E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 04320403 STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 04330403 * (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 04340403 TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 04350403 * PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 04360403 BEFORE THE DECIMAL POINT) 04370403 * THE NUMBER OF DECIMAL PLACES VARIES FROM 1 04380403 TO 7 DIGITS. 04390403 * INPUT CARD 10 04400403 FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 04940403 * VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 04950403 SOME L EDIT DESCRIPTORS ARE REPEATED. 04960403 * L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 04970403 INPUT CARD 11 04980403 * INPUT CARD 12 05010403 FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 05170403 * NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 05180403 NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 05190403 * EDIT DESCRIPTORS ARE REPEATED. 05200403 OPTIONAL COMMA BEFORE AND AFTER A SLASH 05210403 * INPUT CARDS 13, 14 05220403 INPUT CARDS 15, 16 05250403 * INPUT CARDS 17, 18 05280403 THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403 * INPUT CARD 19 05620403 FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403 * WHERE D IS EQUAL TO ZERO 05770403 INPUT CARD 20 05780403 * FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403 WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 05920403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06030403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06040403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06050403 I EDIT DESCRIPTORS 06060403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06170403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06180403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06190403 I EDIT DESCRIPTORS 06200403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06310403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06320403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06330403 I EDIT DESCRIPTORS 06340403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06490403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06500403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06510403 I EDIT DESCRIPTORS 06520403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06630403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06640403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06650403 I EDIT DESCRIPTORS 06660403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06770403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06780403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06790403 F EDIT DESCRIPTORS 06800403 * ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06920403 PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06930403 * F EDIT DESCRIPTORS 06940403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07050403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07060403 F EDIT DESCRIPTORS 07070403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07180403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07190403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07200403 F EDIT DESCRIPTORS 07210403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07320403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07330403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07340403 F EDIT DESCRIPTORS 07350403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07460403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07470403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07480403 F EDIT DESCRIPTORS 07490403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07600403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07610403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07620403 E EDIT DESCRIPTORS 07630403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07750403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07760403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07770403 E EDIT DESCRIPTORS 07780403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07940403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07950403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07960403 E EDIT DESCRIPTORS 07970403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08090403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08100403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08110403 E EDIT DESCRIPTORS 08120403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08240403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08250403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08260403 E EDIT DESCRIPTORS 08270403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08390403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08400403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08410403 E EDIT DESCRIPTORS 08420403 * SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08540403 ON READ, BUT NOT ON WRITE 08550403 * INPUT CARD 21 08560403 SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08710403 * ON READ, BUT NOT ON WRITE 08720403 SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08840403 * ON WRITE, BUT, NOT ON READ 08850403 INPUT CARD 22 08860403 * ON WRITE, BUT, NOT ON READ 09010403 INPUT CARDS 23, 24, 25 09130403 * INPUT CARDS 26, 27 09320403 WRITE OUT TEST SUMMARY 09480403 09490403 WRITE OUT REPORT FOOTINGS 09610403 09620403 FORMATS FOR TEST DETAIL LINES 09680403 09690403 FORMAT STATEMENTS FOR PAGE HEADERS 09890403 09900403 10030403 FORMAT STATEMENTS FOR REPORT FOOTINGS 10040403 10050403 10100403 FORMAT STATEMENTS FOR RUN SUMMARY 10110403 10120403 10190403 *** END OF TEST SEGMENT 020 10200403