FM909 Program

**********00010909 * FORTRAN 77 00020909 FM909 00030909 * INTER4 - (393) 00040909 00050909 **********00060909 * TESTING OF INTERNAL FILES - ANS. REF 00070909 USING WRITE 12.2.5 00080909 * 00090909 00100909 BB *** BBCCOMNT ******00110909 00120909 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130909 VERSION 2.1 00140909 00150909 00160909 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170909 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180909 SOFTWARE STANDARDS VALIDATION GROUP 00190909 BUILDING 225 RM A266 00200909 GAITHERSBURG, MD 20899 00210909 00220909 00230909 00240909 BE *** BBCCOMNT ******00250909 00260909 * S P E C I F I C A T I O N S SEGMENT 393 00270909 00280909 * 00380909 BB* **** BBCINITA *****00390909 SPECIFICATION STATEMENTS 00400909 00410909 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00540909 FOR IDENTIFYING THE TEST ENVIRONMENT 00550909 00560909 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00570909 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00580909 Z03 ZPROG = 'PROGRAM NAME' 00590909 Z04 ZDATE = 'DATE OF TEST' 00600909 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00610909 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00620909 Z07 ZNAME = 'NAME OF USER' 00630909 Z08 ZTAPE = 'TAPE OWNER/ID' 00640909 Z09 ZTAPED = 'DATE TAPE COPIED' 00650909 00660909 00950909 WRITE REPORT TITLE 00960909 00970909 01050909 * HEADER FOR SEGMENT 393 01060909 * 01070909 WRITE DETAIL REPORT HEADERS 01120909 01130909 * 01310909 T001 TEST 1 DOUBLE PRECISION INTO VARIABLE 01320909 TESTS 4 - 5 ARRAY, SINGLE RECORD 02220909 T004 TEST 4 02230909 * TESTS 6 - 10 ARRAY, 5 RECORDS, ONE BLANK 02730909 T006 TEST 6 02740909 03430909 * 03470909 T011 TEST 11 VARIABLE, MORE THEN ONE FIELD 03480909 06490909 * 06530909 T021 TEST 21 MIXED TYPES WITH POSITIONAL EDITING 06540909 TESTS 22 - 26 MIXED TYPES INTO 5 RECORDS 06820909 T022 TEST 22 06830909 * 08020909 BB* **** BBCSUM0 *****08030909 WRITE OUT TEST SUMMARY 08040909 08050909 WRITE OUT REPORT FOOTINGS 08170909 08180909 FORMATS FOR TEST DETAIL LINES 08240909 08250909 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 08450909 08460909 FORMAT STATEMENTS FOR PAGE HEADERS 08600909 08610909 08740909 FORMAT STATEMENTS FOR REPORT FOOTINGS 08750909 08760909 08810909 FORMAT STATEMENTS FOR RUN SUMMARY 08820909 08830909 08900909 ** END OF TEST SEGMENT 393 08910909