FM812 Program

**********00010812 * FORTRAN 77 00020812 FM812 00030812 * YDSQRT - (176) 00040812 00050812 **********00060812 * GENERAL PURPOSE ANS REF 00070812 TEST INTRINSIC FUNCTION DSQRT 15.3 00080812 * TABLE 5 00090812 00100812 BB *** BBCCOMNT ******00110812 00120812 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130812 VERSION 2.1 00140812 00150812 00160812 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170812 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180812 SOFTWARE STANDARDS VALIDATION GROUP 00190812 BUILDING 225 RM A266 00200812 GAITHERSBURG, MD 20899 00210812 00220812 00230812 00240812 BE *** BBCCOMNT ******00250812 S P E C I F I C A T I O N S SEGMENT 176 00260812 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440812 FOR IDENTIFYING THE TEST ENVIRONMENT 00450812 00460812 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470812 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480812 Z03 ZPROG = 'PROGRAM NAME' 00490812 Z04 ZDATE = 'DATE OF TEST' 00500812 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510812 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520812 Z07 ZNAME = 'NAME OF USER' 00530812 Z08 ZTAPE = 'TAPE OWNER/ID' 00540812 Z09 ZTAPED = 'DATE TAPE COPIED' 00550812 00560812 00850812 WRITE REPORT TITLE 00860812 00870812 * 00950812 * HEADER FOR SEGMENT 176 00960812 WRITE DETAIL REPORT HEADERS 01020812 01030812 * 01100812 T001 TEST 1 FIXED POINT OF FUNCTION 01110812 02720812 BB *** BBCSUM0 ******02730812 WRITE OUT TEST SUMMARY 02740812 02750812 WRITE OUT REPORT FOOTINGS 02870812 02880812 FORMATS FOR TEST DETAIL LINES 02940812 02950812 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03150812 03160812 FORMAT STATEMENTS FOR PAGE HEADERS 03300812 03310812 03440812 FORMAT STATEMENTS FOR REPORT FOOTINGS 03450812 03460812 03510812 FORMAT STATEMENTS FOR RUN SUMMARY 03520812 03530812 END OF TEST SEGMENT 176 03600812