FM900 Program

**********00010900 * FORTRAN 77 00020900 FM900 FMTRWF - (021) 00030900 * 00040900 **********00050900 GENERAL PURPOSE ANS REFS00060900 * TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070900 TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080900 * THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090900 PROGRAM SEGMENTS FOR DOUBLE PRECISION AND COMPLEX 00100900 * DATA TYPES. 00110900 RESTRICTIONS OBSERVED 12.8.2 00120900 * * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130900 * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00140900 * * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150900 W IS EQUAL TO OR GREATER THAN D 00160900 * * FIELD WIDTH IS NEVER ZERO 13.2.1 00170900 * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180900 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190900 IN THE FORMAT SPECIFICATION 00200900 * * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210900 * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220900 * * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230900 GENERAL COMMENTS 00240900 * PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00250900 FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00260900 * STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00270900 RECORD DIVIDERS) 13.5.4 00280900 * 00290900 BB* **** BBCCOMNT *****00300900 00310900 1978 FORTRAN COMPILER VALIDATION SYSTEM 00320900 VERSION 2.1 00330900 00340900 00350900 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00360900 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00370900 SOFTWARE STANDARDS VALIDATION GROUP 00380900 BUILDING 225 RM A266 00390900 GAITHERSBURG, MD 20899 00400900 00410900 00420900 00430900 BE **** BBCCOMNT ******00440900 00450900 INPUT DATA TO THIS SEGMENT CONSISTS OF 17 CARD IMAGES IN COL. 1 - 80 00460900 OL. 1----------------------------------------------------------61 00470900 ARD 1 1.05.522.066.633.123455.0789 00480900 ARD 2 123.00456.88 0.123E+01 +0.987+1 -0.2345+02 -0.6879E+2+0.7E+0 00490900 OL 62-----70 00500900 ARD 2 3 0.4E+03 00510900 OL. 1----------------------------------------------------------61 00520900 ARD 3 0.9876543E-04+0.1357913E-04 00530900 ARD 4 19.34+0.2468E+02 +.765+287.643.96 0.5407E+0243.96+0.5407E+0 00540900 OL. 62-------------78 00550900 ARD 4 243.96 0.5407+2 00560900 OL. 1----------------------------- ----------------------------61 00570900 ARD 5 +0.1D+06 00580900 ARD 6 -0.334D-04 -.334-4 +0.7657654D00 0.12345678901D+10 00590900 ARD 7 +0.98765432109876D-1+0.98765432109876D-01 .98765432109876 00600900 OL. 62-66 00610900 ARD 7 -1 00620900 OL. 1----------------------------------------------------------61 00630900 ARD 8 -.555555542D+03 -0.555555542+3 00640900 ARD 9 9.91.19.92.29.93.39.94.49.91.19.92.29.93.39.94.4 00650900 ARD 10 9.95.59.96.69.97.79.98.89.95.59.96.69.97.79.98.8 00660900 ARD 11 -0.99D+01-0.98D+01-0.97D+01-0.96D+01-0.99D+01 -.98D+01 -.97+ 00670900 OL. 62-------72 00680900 ARD 11 01 -.96+1 00690900 ARD 12 +0.99D+01 0.98D+01 +.97D01 +.96D1 00700900 ARD 13 +0.99D+01 0.99D+01 0.99D+01+0.99D+01 .99D1 00710900 ARD 14 9.95.59.96.69.97.79.98.8 00720900 ARD 15 123.45678E2 1234.5678 123.45678 12.345678 1.2345678 .123 00730900 OL. 62-66 00740900 ARD 15 45678 00750900 OL. 1----------------------------------------------------------61 00760900 ARD 16 9876.5498.7654E2 9876.54 987.654864786D-486.4786E286.4786 00770900 OL. 62---------------80 00780900 ARD 16 8657.86D0 9876.54 00790900 OL. 1----------------------------------------------------------61 00800900 ARD 17 9.8765698.7654E2 9876.54 987.654864786D-386.4786E286.4786 00810900 OL. 62---------------80 00820900 ARD 17 8657.86D0 9876.54 00830900 * 00840900 S P E C I F I C A T I O N S SEGMENT 021 00850900 * 00860900 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01070900 FOR IDENTIFYING THE TEST ENVIRONMENT 01080900 01090900 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01100900 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01110900 Z03 ZPROG = 'PROGRAM NAME' 01120900 Z04 ZDATE = 'DATE OF TEST' 01130900 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 01140900 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01150900 Z07 ZNAME = 'NAME OF USER' 01160900 Z08 ZTAPE = 'TAPE OWNER/ID' 01170900 Z09 ZTAPED = 'DATE TAPE COPIED' 01180900 01190900 01490900 WRITE REPORT TITLE 01500900 01510900 HEADER FORMAT STATEMENT 01590900 WRITE DETAIL REPORT HEADERS 01640900 01650900 * TESTS 1 THRU 11: 01720900 FORMATTED READ AND WRITE STATEMENTS WITH COMPLEX 12.8.1 01730900 * VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 01740900 E AND F CONVERSION ARE USED IN THE FORMAT 13.5.9.2.1-201750900 * STATEMENTS. SOME FORMAT DESCRIPTORS ARE REPEATED 13.5.9.2.1 01760900 01770900 * INPUT CARD 1 01800900 INPUT CARDS 2, 3 01830900 * INPUT CARD 4 01860900 ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 02550900 * 02590900 T007 TEST 7 02600900 ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 03240900 * 03280900 TESTS 12 THRU 17: 03290900 * FORMATTED READ AND WRITE STATEMENTS WITH 12.8.1 03300900 DOUBLE PRECISION VARIABLES IN AN I/O LIST. 12.8.2 03310900 * D CONVERSION IS USED IN THE FORMAT STATEMENTS. 13.5.9.2.203320900 SOME D FORMAT DESCRIPTORS ARE REPEATED. (FIELD 13.3 03330900 * WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS TO 13.5.9 03340900 PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT 13.5.9.2 03350900 * AND 1 POSITION FOR OPTIONAL DIGIT ZERO BEFORE 03360900 THE DECIMAL POINT) 03370900 * 03380900 INPUT CARD 5 03410900 * INPUT CARDS 6, 7, 8 03440900 ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 04250900 * 04290900 TESTS 18 THRU 22: 04300900 * FORMATTED READ AND WRITE STATEMENTS WITH ARRAY 12.8.104310900 NAMES OF ALL TYPES IN AN I/O LIST. THE NUMBER OF 12.8.204320900 * ITEMS IN THE LIST IS VARIABLE. SOME FIELD 13.3 04330900 DESCRIPTORS ARE REPEATED. 04340900 * 04350900 INPUT CARDS 9, 10 04380900 * INPUT CARDS 11, 12 04410900 INPUT CARDS 13, 14 04440900 * ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05070900 05110900 * TESTS 23 THRU 30: 05120900 FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.905130900 * ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 05140900 PRODUCED IS SMALLER THAN THE FIELD WIDTH. (D AND 05150900 * F DESCRIPTORS ARE TESTED.) 05160900 05170900 * ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05920900 05960900 T029 TEST 29 05970900 * TESTS 31 THRU 32: 06190900 FORMATS WITH G CONVERSIONS USING COMPLEX DATA 13.5.9.2.306200900 * 06210900 INPUT CARD 15 06220900 * TESTS 32 THRU 34: 06440900 ON READ, BUT NOT ON WRITE 06450900 * SCALE FACTOR APPLIED TO F,E,D,G DESCRIPTORS 13.7.5.106460900 06470900 * INPUT CARD 16 06480900 ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 06880900 * 06920900 TESTS 35 AND 36: 06930900 * SCALE FACTOR APPLIED TO F, E, D, G DESCRIPTORS 06940900 ON WRITE, BUT, NOT ON READ 06950900 * 06960900 INPUT CARD 17 06970900 WRITE OUT TEST SUMMARY 07280900 07290900 WRITE OUT REPORT FOOTINGS 07410900 07420900 FORMATS FOR TEST DETAIL LINES 07480900 07490900 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07690900 07700900 FORMAT STATEMENTS FOR PAGE HEADERS 07840900 07850900 07980900 FORMAT STATEMENTS FOR REPORT FOOTINGS 07990900 08000900 08050900 FORMAT STATEMENTS FOR RUN SUMMARY 08060900 08070900 * 08140900 * END OF TEST SEGMENT 21 08150900