FM372 Program

**********00010372 * FORTRAN 77 00020372 FM372 00030372 * XSIN - (186) 00040372 00050372 **********00060372 * GENERAL PURPOSE SUBSET REF 00070372 TEST INTRINSIC FUNCTION SIN 15.3 00080372 * TABLE 5 00090372 00100372 BB *** BBCCOMNT ******00110372 00120372 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130372 VERSION 2.1 00140372 00150372 00160372 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170372 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180372 SOFTWARE STANDARDS VALIDATION GROUP 00190372 BUILDING 225 RM A266 00200372 GAITHERSBURG, MD 20899 00210372 00220372 00230372 00240372 BE *** BBCCOMNT ******00250372 BB *** BBCINITA ******00260372 SPECIFICATION STATEMENTS 00270372 00280372 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410372 FOR IDENTIFYING THE TEST ENVIRONMENT 00420372 00430372 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440372 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450372 Z03 ZPROG = 'PROGRAM NAME' 00460372 Z04 ZDATE = 'DATE OF TEST' 00470372 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480372 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490372 Z07 ZNAME = 'NAME OF USER' 00500372 Z08 ZTAPE = 'TAPE OWNER/ID' 00510372 Z09 ZTAPED = 'DATE TAPE COPIED' 00520372 00530372 00820372 WRITE REPORT TITLE 00830372 00840372 00920372 * HEADER FOR SEGMENT 186 00930372 WRITE DETAIL REPORT HEADERS 00990372 01000372 01070372 * 01090372 T001 TEST 1 ZERO (0.0), SINCE SIN(0)=0 01100372 03370372 BB *** BBCSUM0 ******03380372 WRITE OUT TEST SUMMARY 03390372 03400372 WRITE OUT REPORT FOOTINGS 03520372 03530372 FORMATS FOR TEST DETAIL LINES 03590372 03600372 FORMAT STATEMENTS FOR PAGE HEADERS 03800372 03810372 03940372 FORMAT STATEMENTS FOR REPORT FOOTINGS 03950372 03960372 04010372 FORMAT STATEMENTS FOR RUN SUMMARY 04020372 04030372 04100372 **** END OF TEST SEGMENT 186 04110372