FM378 Program

**********00010378 * FORTRAN 77 00020378 FM378 00030378 * XTANH - (199) 00040378 00050378 **********00060378 * GENERAL PURPOSE SUBSET REF 00070378 TEST INTRINSIC FUNCTION TANH 15.3 00080378 * TABLE 5 00090378 00100378 BB *** BBCCOMNT ******00110378 00120378 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130378 VERSION 2.1 00140378 00150378 00160378 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170378 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180378 SOFTWARE STANDARDS VALIDATION GROUP 00190378 BUILDING 225 RM A266 00200378 GAITHERSBURG, MD 20899 00210378 00220378 00230378 00240378 BE *** BBCCOMNT ******00250378 BB *** BBCINITA ******00260378 SPECIFICATION STATEMENTS 00270378 00280378 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410378 FOR IDENTIFYING THE TEST ENVIRONMENT 00420378 00430378 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440378 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450378 Z03 ZPROG = 'PROGRAM NAME' 00460378 Z04 ZDATE = 'DATE OF TEST' 00470378 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480378 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490378 Z07 ZNAME = 'NAME OF USER' 00500378 Z08 ZTAPE = 'TAPE OWNER/ID' 00510378 Z09 ZTAPED = 'DATE TAPE COPIED' 00520378 00530378 00820378 WRITE REPORT TITLE 00830378 00840378 00920378 * HEADER FOR SEGMENT 199 00930378 WRITE DETAIL REPORT HEADERS 00990378 01000378 01070378 T001 TEST 1 TEST AT ZERO (0.0) 01080378 * 02220378 BB* **** BBCSUM0 *****02230378 WRITE OUT TEST SUMMARY 02240378 02250378 WRITE OUT REPORT FOOTINGS 02370378 02380378 FORMATS FOR TEST DETAIL LINES 02440378 02450378 FORMAT STATEMENTS FOR PAGE HEADERS 02650378 02660378 02790378 FORMAT STATEMENTS FOR REPORT FOOTINGS 02800378 02810378 02860378 FORMAT STATEMENTS FOR RUN SUMMARY 02870378 02880378 02950378 *** END OF TEST SEGMENT 199 02960378