FM373 Program

**********00010373 * FORTRAN 77 00020373 FM373 00030373 * XCOS - (189) 00040373 00050373 **********00060373 * GENERAL PURPOSE SUBSET REF 00070373 TEST INTRINSIC FUNCTION COS 15.3 00080373 * TABLE 5 00090373 00100373 BB *** BBCCOMNT ******00110373 00120373 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130373 VERSION 2.1 00140373 00150373 00160373 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170373 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180373 SOFTWARE STANDARDS VALIDATION GROUP 00190373 BUILDING 225 RM A266 00200373 GAITHERSBURG, MD 20899 00210373 00220373 00230373 00240373 BE *** BBCCOMNT ******00250373 BB *** BBCINITA ******00260373 SPECIFICATION STATEMENTS 00270373 00280373 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410373 FOR IDENTIFYING THE TEST ENVIRONMENT 00420373 00430373 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440373 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450373 Z03 ZPROG = 'PROGRAM NAME' 00460373 Z04 ZDATE = 'DATE OF TEST' 00470373 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480373 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490373 Z07 ZNAME = 'NAME OF USER' 00500373 Z08 ZTAPE = 'TAPE OWNER/ID' 00510373 Z09 ZTAPED = 'DATE TAPE COPIED' 00520373 00530373 00820373 WRITE REPORT TITLE 00830373 00840373 00920373 * HEADER FOR SEGMENT 189 00930373 WRITE DETAIL REPORT HEADERS 00990373 01000373 01070373 * 01090373 T001 TEST 1 ZERO (0.0), SINCE COS(0)=1 01100373 03500373 BB *** BBCSUM0 ******03510373 WRITE OUT TEST SUMMARY 03520373 03530373 WRITE OUT REPORT FOOTINGS 03650373 03660373 FORMATS FOR TEST DETAIL LINES 03720373 03730373 FORMAT STATEMENTS FOR PAGE HEADERS 03930373 03940373 04070373 FORMAT STATEMENTS FOR REPORT FOOTINGS 04080373 04090373 04140373 FORMAT STATEMENTS FOR RUN SUMMARY 04150373 04160373 04230373 **** END OF TEST SEGMENT 189 04240373