FM813 Program

**********00010813 * FORTRAN 77 00020813 FM813 00030813 * YCSQRT - (177) 00040813 00050813 **********00060813 * GENERAL PURPOSE ANS REF 00070813 TEST INTRINSIC FUNCTION CSQRT 15.3 00080813 * TABLE 5 00090813 00100813 BB *** BBCCOMNT ******00110813 00120813 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130813 VERSION 2.1 00140813 00150813 00160813 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170813 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180813 SOFTWARE STANDARDS VALIDATION GROUP 00190813 BUILDING 225 RM A266 00200813 GAITHERSBURG, MD 20899 00210813 00220813 00230813 00240813 BE *** BBCCOMNT ******00250813 00260813 * S P E C F I C A T I O N S SEGMENT 177 00270813 * 00310813 BB *** BBCINITA ******00320813 SPECIFICATION STATEMENTS 00330813 00340813 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470813 FOR IDENTIFYING THE TEST ENVIRONMENT 00480813 00490813 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500813 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510813 Z03 ZPROG = 'PROGRAM NAME' 00520813 Z04 ZDATE = 'DATE OF TEST' 00530813 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540813 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550813 Z07 ZNAME = 'NAME OF USER' 00560813 Z08 ZTAPE = 'TAPE OWNER/ID' 00570813 Z09 ZTAPED = 'DATE TAPE COPIED' 00580813 00590813 00880813 WRITE REPORT TITLE 00890813 00900813 00980813 * HEADER FOR SEGMENT 177 00990813 WRITE DETAIL REPORT HEADERS 01050813 01060813 01130813 T001 TEST 1 ZERO 01140813 * 03100813 BB* **** BBCSUM0 *****03110813 WRITE OUT TEST SUMMARY 03120813 03130813 WRITE OUT REPORT FOOTINGS 03250813 03260813 FORMATS FOR TEST DETAIL LINES 03320813 03330813 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03530813 03540813 FORMAT STATEMENTS FOR PAGE HEADERS 03680813 03690813 03820813 FORMAT STATEMENTS FOR REPORT FOOTINGS 03830813 03840813 03890813 FORMAT STATEMENTS FOR RUN SUMMARY 03900813 03910813 03980813 *** END OF TEST SEGMENT 177 03990813