FM802 Program

**********00010802 * FORTRAN 77 00020802 FM802 YDABS - (157) 00030802 * 00040802 **********00050802 GENERAL PURPOSE ANS REF 00060802 * TEST INTRINSIC FUNCTION DABS (ABSOLUTE VALUE OF 15.3 00070802 A DOUBLE PRECISION ARGUMENT) (TABLE 5)00080802 BB *** BBCCOMNT ******00090802 00100802 1978 FORTRAN COMPILER VALIDATION SYSTEM 00110802 VERSION 2.1 00120802 00130802 00140802 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00150802 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00160802 SOFTWARE STANDARDS VALIDATION GROUP 00170802 BUILDING 225 RM A266 00180802 GAITHERSBURG, MD 20899 00190802 00200802 00210802 00220802 BE *** BBCCOMNT ******00230802 00240802 * S P E C I F I C A T I O N S SEGMENT 157 00250802 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430802 FOR IDENTIFYING THE TEST ENVIRONMENT 00440802 00450802 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460802 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470802 Z03 ZPROG = 'PROGRAM NAME' 00480802 Z04 ZDATE = 'DATE OF TEST' 00490802 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500802 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510802 Z07 ZNAME = 'NAME OF USER' 00520802 Z08 ZTAPE = 'TAPE OWNER/ID' 00530802 Z09 ZTAPED = 'DATE TAPE COPIED' 00540802 00550802 00840802 WRITE REPORT TITLE 00850802 00860802 00940802 * HEADER FOR SEGMENT 157 WRITTEN 00950802 WRITE DETAIL REPORT HEADERS 01010802 01020802 01090802 T001 TEST 1 THE VALUE ZERO 01100802 * 01890802 BB* **** BBCSUM0 *****01900802 WRITE OUT TEST SUMMARY 01910802 01920802 WRITE OUT REPORT FOOTINGS 02040802 02050802 FORMATS FOR TEST DETAIL LINES 02110802 02120802 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02320802 02330802 FORMAT STATEMENTS FOR PAGE HEADERS 02470802 02480802 02610802 FORMAT STATEMENTS FOR REPORT FOOTINGS 02620802 02630802 02680802 FORMAT STATEMENTS FOR RUN SUMMARY 02690802 02700802 02770802 ** END OF TEST SEGMENT 157 02780802