**********00010364 * FORTRAN 77 00020364 FM364 XRMNX - (172) 00030364 * 00040364 **********00050364 GENERAL PURPOSE SUBSET REF 00060364 * TESTS THE USE OF MIXED MODE ARITHMETIC 15.10 00070364 EXPRESSIONS CONTAINING REFERENCES TO THE 15.3 00080364 * INTRINSIC FUNCTIONS 6.1.4 00090364 00100364 * GENERAL COMMENTS 00110364 SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD, 00120364 * XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130364 00140364 BB *** BBCCOMNT ******00150364 00160364 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170364 VERSION 2.1 00180364 00190364 00200364 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210364 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220364 SOFTWARE STANDARDS VALIDATION GROUP 00230364 BUILDING 225 RM A266 00240364 GAITHERSBURG, MD 20899 00250364 00260364 00270364 00280364 BE *** BBCCOMNT ******00290364 BB *** BBCINITA ******00300364 SPECIFICATION STATEMENTS 00310364 00320364 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450364 FOR IDENTIFYING THE TEST ENVIRONMENT 00460364 00470364 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480364 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490364 Z03 ZPROG = 'PROGRAM NAME' 00500364 Z04 ZDATE = 'DATE OF TEST' 00510364 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520364 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530364 Z07 ZNAME = 'NAME OF USER' 00540364 Z08 ZTAPE = 'TAPE OWNER/ID' 00550364 Z09 ZTAPED = 'DATE TAPE COPIED' 00560364 00570364 * O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. 00820364 00860364 BB *** BBCHED0A ******00870364 00880364 WRITE REPORT TITLE 00890364 00900364 * HEADER FOR SEGMENT 172 WRITTEN 00980364 * 01030364 BB *** BBCHED0B ******01040364 WRITE DETAIL REPORT HEADERS 01050364 01060364 03390364 BB *** BBCSUM0 ******03400364 WRITE OUT TEST SUMMARY 03410364 03420364 WRITE OUT REPORT FOOTINGS 03540364 03550364 FORMATS FOR TEST DETAIL LINES 03610364 03620364 FORMAT STATEMENTS FOR PAGE HEADERS 03820364 03830364 03960364 FORMAT STATEMENTS FOR REPORT FOOTINGS 03970364 03980364 04030364 FORMAT STATEMENTS FOR RUN SUMMARY 04040364 04050364 * 04120364 * END OF TEST SEGMENT 172 04130364
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00370364 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00370364 |