FM908 Program

**********00010908 * FORTRAN 77 00020908 FM908 00030908 * INTER3 - (392) 00040908 00050908 **********00060908 * TESTING OF INTERNAL FILES - ANS. REF 00070908 USING READ 12.2.5 00080908 * 00090908 BB* **** BBCCOMNT *****00100908 00110908 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120908 VERSION 2.1 00130908 00140908 00150908 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160908 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170908 SOFTWARE STANDARDS VALIDATION GROUP 00180908 BUILDING 225 RM A266 00190908 GAITHERSBURG, MD 20899 00200908 00210908 00220908 00230908 BE **** BBCCOMNT ******00240908 00250908 * S P E C I F I C A T I O N S SEGMENT 392 00260908 00270908 * 00370908 BB* **** BBCINITA *****00380908 SPECIFICATION STATEMENTS 00390908 00400908 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00530908 FOR IDENTIFYING THE TEST ENVIRONMENT 00540908 00550908 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00560908 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00570908 Z03 ZPROG = 'PROGRAM NAME' 00580908 Z04 ZDATE = 'DATE OF TEST' 00590908 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00600908 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00610908 Z07 ZNAME = 'NAME OF USER' 00620908 Z08 ZTAPE = 'TAPE OWNER/ID' 00630908 Z09 ZTAPED = 'DATE TAPE COPIED' 00640908 00650908 00940908 WRITE REPORT TITLE 00950908 00960908 01040908 * HEADER FOR SEGMENT 392 01050908 01060908 WRITE DETAIL REPORT HEADERS 01110908 01120908 * 01970908 TESTS 5 THRU 9 - LIST FROM ARRAY 01980908 * 01990908 T005 TEST 5 02000908 02570908 * TESTS 10 THRU 13 - LIST FROM VARIABLE WITH DIFFERENT FORMATS 02580908 02590908 T010 TEST 10 02600908 * 03060908 03100908 * TESTS 14 THRU 19 - MIXED TYPES 03110908 03120908 T014 TEST 14 03130908 * 03850908 TESTS 20 THRU 25 - MIXED TYPES WITH TC, TLC, TRC, AND NX 03860908 * 03870908 T020 TEST 20 03880908 04900908 * 04940908 TESTS 28 THRU 31 - COMPLEX LIST FROM VARIABLE POSITION 1X BEYOND04950908 * VARIABLE LENGTH 04960908 T028 TEST 28 04970908 05510908 * TESTS 32 THRU 35 - COMPLEX LIST USING EW.D AND EW.DEN 05520908 05530908 T032 TEST 32 05540908 * 06080908 * TESTS 36 THRU 38 - MIXED TYPES FROM VARIABLE 06090908 * 06100908 T036 TEST 36 06110908 06480908 * TESTS 39 THRU 43 - MIXED TYPES FROM ARRAY 06490908 06500908 T039 TEST 39 06510908 * 07150908 07190908 * TESTS 44 THRU 48 - READ 5 RECORD FROM ARRAY POSITION 1X BEYOND 07200908 ARRAY ELEMENT 07210908 * 07220908 T044 TEST 44 07230908 07860908 * TESTS 49 THRU 54 - MIXED TYPES, NX, AND : 07870908 07880908 T049 TEST 49 07890908 * 08610908 BB* **** BBCSUM0 *****08620908 WRITE OUT TEST SUMMARY 08630908 08640908 WRITE OUT REPORT FOOTINGS 08760908 08770908 FORMATS FOR TEST DETAIL LINES 08830908 08840908 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 09040908 09050908 FORMAT STATEMENTS FOR PAGE HEADERS 09190908 09200908 09330908 FORMAT STATEMENTS FOR REPORT FOOTINGS 09340908 09350908 09400908 FORMAT STATEMENTS FOR RUN SUMMARY 09410908 09420908 * 09490908 ** END OF TEST SEGMENT 392 09500908