**********00010355 * FORTRAN 77 00020355 FM355 XAINT - (154) 00030355 * 00040355 **********00050355 GENERAL PURPOSE SUBSET REF00060355 * TEST INTRINSIC FUNCTIONS AINT, ANINT, NINT 15.3 00070355 TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080355 * 00090355 GENERAL COMMENTS 00100355 * FLOAT FUNCTION ASSUMED WORKING 00110355 00120355 BB *** BBCCOMNT ******00130355 00140355 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150355 VERSION 2.1 00160355 00170355 00180355 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190355 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200355 SOFTWARE STANDARDS VALIDATION GROUP 00210355 BUILDING 225 RM A266 00220355 GAITHERSBURG, MD 20899 00230355 00240355 00250355 00260355 BE *** BBCCOMNT ******00270355 BB *** BBCINITA ******00280355 SPECIFICATION STATEMENTS 00290355 00300355 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430355 FOR IDENTIFYING THE TEST ENVIRONMENT 00440355 00450355 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460355 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470355 Z03 ZPROG = 'PROGRAM NAME' 00480355 Z04 ZDATE = 'DATE OF TEST' 00490355 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500355 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510355 Z07 ZNAME = 'NAME OF USER' 00520355 Z08 ZTAPE = 'TAPE OWNER/ID' 00530355 Z09 ZTAPED = 'DATE TAPE COPIED' 00540355 00550355 00840355 WRITE REPORT TITLE 00850355 00860355 00940355 * HEADER FOR SEGMENT 154 00950355 WRITE DETAIL REPORT HEADERS 01010355 01020355 01090355 * TEST OF AINT 01100355 01110355 * 02710355 02750355 * TEST OF ANINT 02760355 02770355 * 02800355 T013 TEST 13 THE VALUE ZERO 02810355 05160355 * 05200355 TEST OF NINT 05210355 * 05220355 05250355 T031 TEST 31 THE VALUE ZERO 05260355 * 07430355 BB* **** BBCSUM0 *****07440355 WRITE OUT TEST SUMMARY 07450355 07460355 WRITE OUT REPORT FOOTINGS 07580355 07590355 FORMATS FOR TEST DETAIL LINES 07650355 07660355 FORMAT STATEMENTS FOR PAGE HEADERS 07860355 07870355 08000355 FORMAT STATEMENTS FOR REPORT FOOTINGS 08010355 08020355 08070355 FORMAT STATEMENTS FOR RUN SUMMARY 08080355 08090355 08160355 * END OF TEST SEGMENT 154 08170355
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00350355 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00350355 |