FM831 Program

**********00010831 * FORTRAN 77 00020831 FM831 00030831 * YGEN3 - (208) 00040831 00050831 **********00060831 * GENERAL PURPOSE ANS REF 00070831 TEST GENERIC FUNCTIONS 15.3 00080831 * ABS, MOD, SIGN, SIN, COS, TAN, SINH, COSH, TANH TABLE 5 00090831 00100831 BB *** BBCCOMNT ******00110831 00120831 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130831 VERSION 2.1 00140831 00150831 00160831 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170831 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180831 SOFTWARE STANDARDS VALIDATION GROUP 00190831 BUILDING 225 RM A266 00200831 GAITHERSBURG, MD 20899 00210831 00220831 00230831 00240831 BE *** BBCCOMNT ******00250831 00260831 * S P E C I F I C A T I O N S SEGMENT 208 00270831 * 00320831 BB *** BBCINITA ******00330831 SPECIFICATION STATEMENTS 00340831 00350831 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480831 FOR IDENTIFYING THE TEST ENVIRONMENT 00490831 00500831 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510831 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520831 Z03 ZPROG = 'PROGRAM NAME' 00530831 Z04 ZDATE = 'DATE OF TEST' 00540831 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00550831 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00560831 Z07 ZNAME = 'NAME OF USER' 00570831 Z08 ZTAPE = 'TAPE OWNER/ID' 00580831 Z09 ZTAPED = 'DATE TAPE COPIED' 00590831 00600831 00890831 WRITE REPORT TITLE 00900831 00910831 00990831 * HEADER FOR SEGMENT 208 01000831 WRITE DETAIL REPORT HEADERS 01060831 01070831 01140831 T001 TEST 1 TEST OF ABS AND SIGN WITH INTEGERS 01150831 * WITH INTEGER, REAL AND DOUBLE PREC 02010831 WITH REAL AND COMPLEX 02450831 * WITH INTEGER, REAL AND COMPLEX 02630831 02780831 BB *** BBCSUM0 ******02790831 WRITE OUT TEST SUMMARY 02800831 02810831 WRITE OUT REPORT FOOTINGS 02930831 02940831 FORMATS FOR TEST DETAIL LINES 03000831 03010831 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03210831 03220831 FORMAT STATEMENTS FOR PAGE HEADERS 03360831 03370831 03500831 FORMAT STATEMENTS FOR REPORT FOOTINGS 03510831 03520831 03570831 FORMAT STATEMENTS FOR RUN SUMMARY 03580831 03590831 * 03660831 ** END OF TEST SEGMENT 208 03670831