FM356 Program

**********00010356 * FORTRAN 77 00020356 FM356 XABS - (156) 00030356 * 00040356 **********00050356 GENERAL PURPOSE SUBSET REF00060356 * TEST INTRINSIC FUNCTION ABS,IABS (ABSOLUTE VALUE) 15.3 00070356 (TABLE 5)00080356 * 00090356 BB* **** BBCCOMNT *****00100356 00110356 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120356 VERSION 2.1 00130356 00140356 00150356 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160356 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170356 SOFTWARE STANDARDS VALIDATION GROUP 00180356 BUILDING 225 RM A266 00190356 GAITHERSBURG, MD 20899 00200356 00210356 00220356 00230356 BE *** BBCCOMNT ******00240356 BB *** BBCINITA ******00250356 SPECIFICATION STATEMENTS 00260356 00270356 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400356 FOR IDENTIFYING THE TEST ENVIRONMENT 00410356 00420356 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430356 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440356 Z03 ZPROG = 'PROGRAM NAME' 00450356 Z04 ZDATE = 'DATE OF TEST' 00460356 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470356 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480356 Z07 ZNAME = 'NAME OF USER' 00490356 Z08 ZTAPE = 'TAPE OWNER/ID' 00500356 Z09 ZTAPED = 'DATE TAPE COPIED' 00510356 00520356 00810356 WRITE REPORT TITLE 00820356 00830356 00910356 * HEADER FOR SEGMENT 156 00920356 WRITE DETAIL REPORT HEADERS 00980356 00990356 01060356 * TEST OF ABS 01070356 01080356 * 01770356 TEST OF IABS 01780356 * 01790356 01820356 T006 TEST 6 THE VALUE ZERO 01830356 * 02430356 BB* **** BBCSUM0 *****02440356 WRITE OUT TEST SUMMARY 02450356 02460356 WRITE OUT REPORT FOOTINGS 02580356 02590356 FORMATS FOR TEST DETAIL LINES 02650356 02660356 FORMAT STATEMENTS FOR PAGE HEADERS 02860356 02870356 03000356 FORMAT STATEMENTS FOR REPORT FOOTINGS 03010356 03020356 03070356 FORMAT STATEMENTS FOR RUN SUMMARY 03080356 03090356 03160356 * END OF TEST SEGMENT 156 03170356