FM800 Program

**********00010800 * FORTRAN 77 00020800 FM800 YIDINT - (151) 00030800 * 00040800 **********00050800 GENERAL PURPOSE ANS REF 00060800 * TEST INTRINSIC FUNCTION IDINT -- 15.3 00070800 TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080800 * 00090800 BB* **** BBCCOMNT *****00100800 00110800 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120800 VERSION 2.1 00130800 00140800 00150800 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160800 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170800 SOFTWARE STANDARDS VALIDATION GROUP 00180800 BUILDING 225 RM A266 00190800 GAITHERSBURG, MD 20899 00200800 00210800 00220800 00230800 BE **** BBCCOMNT ******00240800 S P E C I F I C A T I O N S SEGMENT 151 00250800 * 00260800 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440800 FOR IDENTIFYING THE TEST ENVIRONMENT 00450800 00460800 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470800 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480800 Z03 ZPROG = 'PROGRAM NAME' 00490800 Z04 ZDATE = 'DATE OF TEST' 00500800 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510800 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520800 Z07 ZNAME = 'NAME OF USER' 00530800 Z08 ZTAPE = 'TAPE OWNER/ID' 00540800 Z09 ZTAPED = 'DATE TAPE COPIED' 00550800 00560800 00850800 WRITE REPORT TITLE 00860800 00870800 00950800 * HEADER FOR SEGMENT 151 WRITTEN 00960800 WRITE DETAIL REPORT HEADERS 01010800 01020800 01090800 T001 TEST 1 THE VALUE ZERO 01100800 WRITE OUT TEST SUMMARY 02570800 02580800 WRITE OUT REPORT FOOTINGS 02700800 02710800 FORMATS FOR TEST DETAIL LINES 02770800 02780800 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02980800 02990800 FORMAT STATEMENTS FOR PAGE HEADERS 03130800 03140800 03270800 FORMAT STATEMENTS FOR REPORT FOOTINGS 03280800 03290800 03340800 FORMAT STATEMENTS FOR RUN SUMMARY 03350800 03360800 * 03430800 * END OF TEST SEGMENT 151 03440800