FM808 Program

**********00010808 * FORTRAN 77 00020808 FM808 YDBLE - (169) 00030808 * 00040808 **********00050808 GENERAL PURPOSE ANS REF 00060808 * TEST INTRINSIC FUNCTION DBLE (EXPRESS S.P. ARGUMENT 15.3 00070808 IN DOUBLE PRECISION FORM ) (TABLE 5)00080808 * 00090808 BB* **** BBCCOMNT *****00100808 00110808 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120808 VERSION 2.1 00130808 00140808 00150808 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160808 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170808 SOFTWARE STANDARDS VALIDATION GROUP 00180808 BUILDING 225 RM A266 00190808 GAITHERSBURG, MD 20899 00200808 00210808 00220808 00230808 BE **** BBCCOMNT ******00240808 00250808 * S P E C I F I C A T I O N S SEGMENT 169 00260808 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440808 FOR IDENTIFYING THE TEST ENVIRONMENT 00450808 00460808 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470808 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480808 Z03 ZPROG = 'PROGRAM NAME' 00490808 Z04 ZDATE = 'DATE OF TEST' 00500808 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510808 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520808 Z07 ZNAME = 'NAME OF USER' 00530808 Z08 ZTAPE = 'TAPE OWNER/ID' 00540808 Z09 ZTAPED = 'DATE TAPE COPIED' 00550808 00560808 00850808 WRITE REPORT TITLE 00860808 00870808 00950808 WRITE DETAIL REPORT HEADERS 01010808 01020808 * 01090808 T001 TEST 1 THE VALUE ZERO 01100808 WRITE OUT TEST SUMMARY 02170808 02180808 WRITE OUT REPORT FOOTINGS 02300808 02310808 FORMATS FOR TEST DETAIL LINES 02370808 02380808 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02580808 02590808 FORMAT STATEMENTS FOR PAGE HEADERS 02730808 02740808 02870808 FORMAT STATEMENTS FOR REPORT FOOTINGS 02880808 02890808 02940808 FORMAT STATEMENTS FOR RUN SUMMARY 02950808 02960808 03030808 **** END OF TEST SEGMENT 169 03040808