FM903 Program

**********00010903 * FORTRAN 77 00020903 FM903 IOFMTF - (354) 00030903 * THIS PROGRAM CALLS SUBROUTINE SN904 00040903 **********00050903 GENERAL PURPOSE ANS REFS 00060903 * TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070903 STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080903 * DOUBLE PRECISION AND COMPLEX DATA TYPES. 00090903 TO TEST ALL FORMS OF CHARACTER EXPRESSIONS AS 13.1.2 00100903 * FORMAT SPECIFIERS. 00110903 RESTRICTIONS OBSERVED 00120903 * * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00130903 * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00140903 * W IS EQUAL TO OR GREATER THAN D 00150903 * FIELD WIDTH IS NEVER ZERO 00160903 * * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00170903 AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00180903 * IN THE FORMAT SPECIFICATION 00190903 * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00200903 * * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00210903 * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00220903 * * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00230903 THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00240903 * INTEGER CONSTANT 00250903 GENERAL COMMENTS 00260903 * PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270903 00280903 * CALL SUBROUTINE SN904 (SEGMENT 790) 00290903 00300903 BB *** BBCCOMNT ******00310903 00320903 1978 FORTRAN COMPILER VALIDATION SYSTEM 00330903 VERSION 2.1 00340903 00350903 00360903 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00370903 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00380903 SOFTWARE STANDARDS VALIDATION GROUP 00390903 BUILDING 225 RM A266 00400903 GAITHERSBURG, MD 20899 00410903 00420903 00430903 00440903 BE *** BBCCOMNT ******00450903 00460903 INPUT DATA TO THIS SEGMENT CONSISTS OF 14 CARD IMAGES IN COL. 1 - 56 00470903 OL. 1-----------------------------------------------------56 00480903 ARD 1 333144446666225555 00490903 ARD 2 1234567890 00500903 ARD 3 1234567890 00510903 ARD 4 1234567890 00520903 ARD 5 1234567890 00530903 ARD 6 12345 00540903 ARD 7 12345123.5123.45D-01 12345D+01 00550903 ARD 8 12 345 678 00560903 ARD 9 5-1111 3333-5555 7777-9999 00570903 ARD 10 12345678901234567890123456781234567890123456789012345678 00580903 ARD 11 12345678901234123456789012341234567890123412345678901234 00590903 ARD 12 12345678901234123456789012341234567890123456789012345678 00600903 ARD 13 12345678901234567890123456781234567890123456789012345678 00610903 ARD 14 12345678901234123456789012341234567890123412345678901234 00620903 * 00630903 S P E C I F I C A T I O N S SEGMENT 354 00640903 * 00650903 00790903 BB *** BBCINITA ******00800903 SPECIFICATION STATEMENTS 00810903 00820903 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00950903 FOR IDENTIFYING THE TEST ENVIRONMENT 00960903 00970903 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00980903 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00990903 Z03 ZPROG = 'PROGRAM NAME' 01000903 Z04 ZDATE = 'DATE OF TEST' 01010903 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 01020903 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01030903 Z07 ZNAME = 'NAME OF USER' 01040903 Z08 ZTAPE = 'TAPE OWNER/ID' 01050903 Z09 ZTAPED = 'DATE TAPE COPIED' 01060903 01070903 01370903 WRITE REPORT TITLE 01380903 01390903 HEADER FORMAT STATEMENT 01470903 WRITE DETAIL REPORT HEADERS 01530903 01540903 * TEST THAT A FORMAT MAY BE A CHARACTER VARIABLE, 12.4.2(3) 01610903 A CHARACTER EXPRESSION, A CHARACTER ARRAY, OR A 12.4.2(4) 01620903 * CHARACTER ARRAY ELEMENT. 13.1.2 01630903 NOTE THAT THE LENGTH OF THE FORMAT MAY EXCEED THE 01640903 * LENGTH OF AN ARRAY ELEMENT IF THE FORMAT SPECIFIER 01650903 IS AN ARRAY, BUT NOT IF THE SPECIFIER IS AN ARRAY ELEMENT. 01660903 * CARD 1 01700903 02020903 * CARDS 2-5 02070903 02190903 * TEST ADDITIONAL INTEGER EDITING FEATURES. 02200903 - IW.M EDITING DESCRIPTOR 13.5.9.1 02210903 * NOTE THAT IF M IS ZERO AND THE VALUE OF THE INTERNAL 02220903 DATUM IS ZERO, THE OUTPUT FIELD CONSISTS OF ONLY BLANK 02230903 * CHARACTERS REGARDLESS OF THE SIGN CONTROL IN EFFECT. 02240903 CARD 6 02270903 * 02600903 TEST ADDITIONAL DOUBLE PRECISION EDITING FEATURES. 13.5.9.2 02610903 * - D.P. MAY BE READ, WRITTEN WITH F AND E 13.5.9.2.1 02620903 EDIT DESCRIPTOR. 13.5.9.2.2 02630903 * (D AND G FORMATS ARE TEST IN INTERNAL FILE SEGMENTS 02640903 392 AND 393.) 02650903 * - FIELD WIDTH TOO SMALL ON F 13.5.9(4) 02660903 - EXPONENT WIDTH TOO SMALL ON EW.DE(E) 13.5.9(4) 02670903 * - IF SP AND FIELD TOO SMALL, THE PLUS IS NOT 13.5.9(5) 02680903 OPTIONAL 02690903 * CARD 7 02720903 02940903 * TEST ADDITIONAL COMPLEX EDITING FEATURES. 13.5.9.2.4 02950903 - FIELD WIDTH TOO SMALL ON F 13.5.9(4) 02960903 * - EXPONENT WIDTH TOO SMALL ON EW.DE(E) 13.5.9(4) 02970903 03160903 * - TEST BZ, BN EDIT DESCRIPTORS 13.5.8 03170903 - TEST T, TL, TR EDIT DESCRIPTORS 13.5.3.1 03180903 * CARD 8 03260903 03380903 * PASS A CHARACTER CONSTANT, WHICH IS A LEGITIMATE FORMAT 03390903 SPECIFIER TO A SUBROUTINE. 03400903 * CARD 9 03460903 03500903 ADVANCE TO TOP-OF PAGE AND WRITE HEADERS 03510903 * 03550903 - TEST SS AND SP EDIT DESCRIPTORS. 13.5.6 03560903 * - TEST ALSO THAT A FORMAT SPECIFICATION MAY BE 13.1.2 03570903 ALTERED BY A CHARACTER SUBSTRING SUBSTITUTION. 5.7 03580903 * 03920903 TEST A COLON EDIT DESCRIPTOR FOLLOWED BY A H-EDIT 13.5.5 03930903 * DESCRIPTOR TO SHOW THAT THE COLON EDIT DESCRIPTOR 03940903 TERMINATED IF THERE ARE NO MORE ITEMS IN THE INPUT/OUTPUT LIST03950903 * 04110903 TEST THAT FW.D, EW.DE(E) AND GW.DE(E) MAY HAVE MORE DIGITS ON 04120903 * INPUT THAN THE PROCESSOR CAN HANDLE FOR D.P. AND COMPLEX 04130903 T013 TEST 13 - LARGE FORMAT SIZE FOR D.P. AND COMPLEX 04140903 CARDS 10-14 04250903 * 04300903 BB* **** BBCSUM0 *****04310903 WRITE OUT TEST SUMMARY 04320903 04330903 WRITE OUT REPORT FOOTINGS 04450903 04460903 FORMATS FOR TEST DETAIL LINES 04520903 04530903 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04730903 04740903 FORMAT STATEMENTS FOR PAGE HEADERS 04880903 04890903 05020903 FORMAT STATEMENTS FOR REPORT FOOTINGS 05030903 05040903 05090903 FORMAT STATEMENTS FOR RUN SUMMARY 05100903 05110903 * 05180903 * END OF TEST SEGMENT 354 05190903