FM906 Program

**********00010906 * FORTRAN 77 00020906 FM906 00030906 * LSTDI2 - (372) 00040906 00050906 **********00060906 * GENERAL PURPOSE ANS REF 00070906 TEST LIST DIRECTED INPUT 13.6 00080906 * DOUBLE PRECISION, COMPLEX DATA TYPES INCLUDED 12.4 00090906 00100906 BB *** BBCCOMNT ******00110906 00120906 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130906 VERSION 2.1 00140906 00150906 00160906 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170906 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180906 SOFTWARE STANDARDS VALIDATION GROUP 00190906 BUILDING 225 RM A266 00200906 GAITHERSBURG, MD 20899 00210906 00220906 00230906 00240906 BE *** BBCCOMNT ******00250906 00260906 INPUT DATA TO THIS SEGMENT CONSISTS OF 12 CARD IMAGES IN COL. 1-44 00270906 OL. 1-----------------------------------------44 00280906 ARD 1 2.5D0 00290906 ARD 2 1.5 2.5D0 3.5E0 00300906 ARD 3 (3.0,4.0) 00310906 ARD 4 (1.0,0.0) (0.0,0.0) (0.0,3.0) 00320906 ARD 5 2, 2.5D0, 2.5D0, T, (3.0,4.0), 'TEST' 00330906 ARD 6 ( 2.5 , 3.5 ) 00340906 ARD 7 (1.0 , 00350906 ARD 8 2.0) 00360906 ARD 9 , (2.0, 3.0),,6.0D0, 2, 00370906 ARD 10 1.0D0 (2.0, 2.0) 3.0D0 (4.0, 4.0) 5.0D0 00380906 ARD 11 6.0D0 (7.0, 7.0) / 8.0D0 (9.0, 9.0) 10.0D0 00390906 ARD 12 2.0D0 4.0D0 / 6.0D0 8.0D0 10.0D0 00400906 * 00410906 S P E C I F I C A T I O N S SEGMENT 372 00420906 * 00500906 BB* **** BBCINITA *****00510906 SPECIFICATION STATEMENTS 00520906 00530906 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00660906 FOR IDENTIFYING THE TEST ENVIRONMENT 00670906 00680906 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00690906 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00700906 Z03 ZPROG = 'PROGRAM NAME' 00710906 Z04 ZDATE = 'DATE OF TEST' 00720906 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00730906 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00740906 Z07 ZNAME = 'NAME OF USER' 00750906 Z08 ZTAPE = 'TAPE OWNER/ID' 00760906 Z09 ZTAPED = 'DATE TAPE COPIED' 00770906 00780906 01080906 WRITE REPORT TITLE 01090906 01100906 01180906 * HEADING FOR SEGMENT 372 01190906 WRITE DETAIL REPORT HEADERS 01260906 01270906 TESTS 2 THRU 4 - CARD 2 SEVERAL DOUBLE PRECISION 01460906 T002* TEST 2 01470906 * TESTS 6 THRU 8 - CARD 4 SEVERAL COMPLEX 01950906 T006 TEST 6 01960906 TESTS 9 THRU 14 - CARD 5 MIXED LIST 02360906 T009 TEST 9 02370906 * ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02850906 TESTS 17 THRU 22 - CARD 9 NULL VALUES 03420906 T017 TEST 17 03430906 * TESTS 23 THRU 27 - CARDS 10-11 SLASH TERMINATOR 04200906 T023 TEST 23 04210906 WRITE OUT TEST SUMMARY 04960906 04970906 WRITE OUT REPORT FOOTINGS 05090906 05100906 FORMATS FOR TEST DETAIL LINES 05160906 05170906 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05370906 05380906 FORMAT STATEMENTS FOR PAGE HEADERS 05520906 05530906 05660906 FORMAT STATEMENTS FOR REPORT FOOTINGS 05670906 05680906 05730906 FORMAT STATEMENTS FOR RUN SUMMARY 05740906 05750906 05820906 **** END OF TEST SEGMENT 372 05830906