FM818 Program

**********00010818 * FORTRAN 77 00020818 FM818 00030818 * YDLG10 - (185) 00040818 00050818 **********00060818 * GENERAL PURPOSE ANS REF 00070818 TEST INTRINSIC FUNCTION DLOG10 15.3 00080818 * TABLE 5 00090818 00100818 BB *** BBCCOMNT ******00110818 00120818 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130818 VERSION 2.1 00140818 00150818 00160818 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170818 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180818 SOFTWARE STANDARDS VALIDATION GROUP 00190818 BUILDING 225 RM A266 00200818 GAITHERSBURG, MD 20899 00210818 00220818 00230818 00240818 BE *** BBCCOMNT ******00250818 S P E C I F I C A T I O N S SEGMENT 185 00260818 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440818 FOR IDENTIFYING THE TEST ENVIRONMENT 00450818 00460818 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470818 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480818 Z03 ZPROG = 'PROGRAM NAME' 00490818 Z04 ZDATE = 'DATE OF TEST' 00500818 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510818 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520818 Z07 ZNAME = 'NAME OF USER' 00530818 Z08 ZTAPE = 'TAPE OWNER/ID' 00540818 Z09 ZTAPED = 'DATE TAPE COPIED' 00550818 00560818 00850818 WRITE REPORT TITLE 00860818 00870818 * 00950818 * HEADER FOR SEGMENT 185 00960818 WRITE DETAIL REPORT HEADERS 01020818 01030818 * 01100818 T001 TEST 1 ONE, SINCE LN(1.0) = 0.0 01110818 03150818 BB *** BBCSUM0 ******03160818 WRITE OUT TEST SUMMARY 03170818 03180818 WRITE OUT REPORT FOOTINGS 03300818 03310818 FORMATS FOR TEST DETAIL LINES 03370818 03380818 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03580818 03590818 FORMAT STATEMENTS FOR PAGE HEADERS 03730818 03740818 03870818 FORMAT STATEMENTS FOR REPORT FOOTINGS 03880818 03890818 03940818 FORMAT STATEMENTS FOR RUN SUMMARY 03950818 03960818 END OF TEST SEGMENT 185 04030818