**********00010353 * FORTRAN 77 00020353 FM353 XINT - (150) 00030353 * 00040353 **********00050353 GENERAL PURPOSE SUBSET REF00060353 * TEST INTRINSIC FUNCTION - IFIX - (CONVERSION FROM 15.3 00070353 REAL TO INTEGER) (TABLE 5)00080353 * TEST INTRINSIC FUNCTION - INT - (TRUNCATION -- SIGN 00090353 OF A * LARGEST INTEGER LE ABS(A) ) 00100353 * 00110353 00120353 BB *** BBCCOMNT ******00130353 00140353 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150353 VERSION 2.1 00160353 00170353 00180353 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190353 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200353 SOFTWARE STANDARDS VALIDATION GROUP 00210353 BUILDING 225 RM A266 00220353 GAITHERSBURG, MD 20899 00230353 00240353 00250353 00260353 BE *** BBCCOMNT ******00270353 BB *** BBCINITA ******00280353 SPECIFICATION STATEMENTS 00290353 00300353 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430353 FOR IDENTIFYING THE TEST ENVIRONMENT 00440353 00450353 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460353 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470353 Z03 ZPROG = 'PROGRAM NAME' 00480353 Z04 ZDATE = 'DATE OF TEST' 00490353 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500353 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510353 Z07 ZNAME = 'NAME OF USER' 00520353 Z08 ZTAPE = 'TAPE OWNER/ID' 00530353 Z09 ZTAPED = 'DATE TAPE COPIED' 00540353 00550353 00840353 WRITE REPORT TITLE 00850353 00860353 00940353 * HEADER FOR SEGMENT 150 00950353 01000353 BB *** BBCHED0B ******01010353 WRITE DETAIL REPORT HEADERS 01020353 01030353 01180353 T001 TEST 1 THE VALUE ZERO 01190353 * 02350353 02360353 WRITE OUT TEST SUMMARY 02390353 02400353 WRITE OUT REPORT FOOTINGS 02520353 02530353 FORMATS FOR TEST DETAIL LINES 02590353 02600353 FORMAT STATEMENTS FOR PAGE HEADERS 02800353 02810353 02940353 FORMAT STATEMENTS FOR REPORT FOOTINGS 02950353 02960353 03010353 FORMAT STATEMENTS FOR RUN SUMMARY 03020353 03030353 * 03100353 END OF TEST SEGMENT 150 03110353
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00350353 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00350353 |