FM901 Program

**********00010901 * FORTRAN 77 00020901 FM901 AFMTF - (023) 00030901 * 00040901 **********00050901 GENERAL PURPOSE ANS REFS00060901 * TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070901 TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080901 * THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090901 PROGRAM SEGMENTS FOR CHARACTER DATA TYPES. 4.8 00100901 * TO TEST READ AND WRITE OF SUBSTRINGS. 5.7 00110901 00120901 * RESTRICTIONS OBSERVED 00130901 * ALL FORMAT STATEMENTS ARE LABELED 12.8.2 00140901 * * H AND X DESCRIPTORS ARE NEVER REPEATED 13.1.1 00150901 * FIELD WIDTH IS NEVER ZERO 13.5.11 00160901 * * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00170901 AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00180901 * IN THE FORMAT SPECIFICATION. 00190901 * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 13.3 00200901 * 00210901 BB* **** BBCCOMNT *****00220901 00230901 1978 FORTRAN COMPILER VALIDATION SYSTEM 00240901 VERSION 2.1 00250901 00260901 00270901 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00280901 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00290901 SOFTWARE STANDARDS VALIDATION GROUP 00300901 BUILDING 225 RM A266 00310901 GAITHERSBURG, MD 20899 00320901 00330901 00340901 00350901 BE **** BBCCOMNT ******00360901 00370901 INPUT DATA TO THIS SEG. CONSISTS OF 5 DATA CARD IMAGES IN COLS. 1 - 5200380901 OL. 1-------------------------------------------------52 00390901 ARD 1 XYZ123:45$'),.JKLABCDEF67890MNOPQRSTUVW =+-/(GHI 00400901 ARD 2 ONEFIVENINEELEVENSEVENTHREE 00410901 ARD 3 SQUARE THE WORLD IN 40 NIGHTS 00420901 ARD 4 DAYS 80AROUND 00430901 ARD 5 TO XXXXX NOT TO XXXX- THAT IS THE QUESTIONXXBE ORBE 00440901 * 00450901 S P E C I F I C A T I O N S SEGMENT 023 00460901 * 00470901 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00690901 FOR IDENTIFYING THE TEST ENVIRONMENT 00700901 00710901 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00720901 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00730901 Z03 ZPROG = 'PROGRAM NAME' 00740901 Z04 ZDATE = 'DATE OF TEST' 00750901 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00760901 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00770901 Z07 ZNAME = 'NAME OF USER' 00780901 Z08 ZTAPE = 'TAPE OWNER/ID' 00790901 Z09 ZTAPED = 'DATE TAPE COPIED' 00800901 00810901 01110901 WRITE REPORT TITLE 01120901 01130901 01210901 * HEADER FOR SEGMENT 23 01220901 WRITE DETAIL REPORT HEADERS 01280901 01290901 01360901 * TEST THAT DATA MAY BE READ IN A SERIES OF SUBSTRINGS, 5.701370901 NOT NECESSARILY IN THE ORDER OF POSITION IN THE STRING, 12.8.201380901 * AND CAN BE WRITTEN AS A CHARACTER STRING. 13.5.1101390901 SHOW ALSO THAT THE FULL FORTRAN CHARACTER SET CAN BE READ 3.101400901 * (INCLUDES $ AND :) 01410901 01420901 * INPUT CARD 1 01430901 01680901 * TEST THAT A CHARACTER VARIABLE CAN BE OUTPUT AS SUBSTRINGS. 01690901 13.5.1101700901 * INPUT CARD 2 01710901 01850901 * TEST THAT A SUBSTRING CAN BE READ IN, AND PARTIALLY REPLACE 01860901 A PREVIOUSLY READ CHARACTER STRING. 13.5.1101870901 * THIS SHOWS THAT THE LENGTH IS DERIVED FROM THE SUBSTRING, 01880901 AND NOT THE CHARACTER VARIABLE LENGTH. 01890901 * 01900901 INPUT CARDS 3-4 01910901 * 02040901 SPECIFIED FIELD WIDTH IN A A-EDIT DESCRIPTOR 02050901 * IS DIFFERENT FROM SUBSTRING LENGTH 02060901 02070901 * INPUT CARD 5 02080901 02210901 BB *** BBCSUM0 ******02220901 WRITE OUT TEST SUMMARY 02230901 02240901 WRITE OUT REPORT FOOTINGS 02360901 02370901 FORMATS FOR TEST DETAIL LINES 02430901 02440901 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640901 02650901 FORMAT STATEMENTS FOR PAGE HEADERS 02790901 02800901 02930901 FORMAT STATEMENTS FOR REPORT FOOTINGS 02940901 02950901 03000901 FORMAT STATEMENTS FOR RUN SUMMARY 03010901 03020901 * 03090901 * END OF TEST SEGMENT 023 03100901