FM368 Program

**********00010368 * FORTRAN 77 00020368 FM368 00030368 * XSQRT - (175) 00040368 00050368 **********00060368 * GENERAL PURPOSE SUBSET REF 00070368 TEST INTRINSIC FUNCTION SQRT 15.3 00080368 * TABLE 5 00090368 00100368 BB *** BBCCOMNT ******00110368 00120368 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130368 VERSION 2.1 00140368 00150368 00160368 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170368 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180368 SOFTWARE STANDARDS VALIDATION GROUP 00190368 BUILDING 225 RM A266 00200368 GAITHERSBURG, MD 20899 00210368 00220368 00230368 00240368 BE *** BBCCOMNT ******00250368 BB *** BBCINITA ******00260368 SPECIFICATION STATEMENTS 00270368 00280368 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410368 FOR IDENTIFYING THE TEST ENVIRONMENT 00420368 00430368 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440368 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450368 Z03 ZPROG = 'PROGRAM NAME' 00460368 Z04 ZDATE = 'DATE OF TEST' 00470368 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480368 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490368 Z07 ZNAME = 'NAME OF USER' 00500368 Z08 ZTAPE = 'TAPE OWNER/ID' 00510368 Z09 ZTAPED = 'DATE TAPE COPIED' 00520368 00530368 00820368 WRITE REPORT TITLE 00830368 00840368 00920368 * HEADER FOR SEGMENT 175 00930368 WRITE DETAIL REPORT HEADERS 00990368 01000368 01070368 T001 TEST 1 FIXED POINT OF FUNCTION 01080368 * 02690368 BB* **** BBCSUM0 *****02700368 WRITE OUT TEST SUMMARY 02710368 02720368 WRITE OUT REPORT FOOTINGS 02840368 02850368 FORMATS FOR TEST DETAIL LINES 02910368 02920368 FORMAT STATEMENTS FOR PAGE HEADERS 03120368 03130368 03260368 FORMAT STATEMENTS FOR REPORT FOOTINGS 03270368 03280368 03330368 FORMAT STATEMENTS FOR RUN SUMMARY 03340368 03350368 03420368 *** END OF TEST SEGMENT 175 03430368