**********00010354 * FORTRAN 77 00020354 FM354 XREAL - (152) 00030354 * 00040354 **********00050354 GENERAL PURPOSE SUBSET REF00060354 * TEST INTRINSIC FUNCTIONS FLOAT AND REAL 15.3 00070354 (CONVERSION FROM INTEGER TO REAL) (TABLE 5)00080354 * 00090354 BB* **** BBCCOMNT *****00100354 00110354 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120354 VERSION 2.1 00130354 00140354 00150354 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160354 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170354 SOFTWARE STANDARDS VALIDATION GROUP 00180354 BUILDING 225 RM A266 00190354 GAITHERSBURG, MD 20899 00200354 00210354 00220354 00230354 BE *** BBCCOMNT ******00240354 BB *** BBCINITA ******00250354 SPECIFICATION STATEMENTS 00260354 00270354 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400354 FOR IDENTIFYING THE TEST ENVIRONMENT 00410354 00420354 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430354 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440354 Z03 ZPROG = 'PROGRAM NAME' 00450354 Z04 ZDATE = 'DATE OF TEST' 00460354 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470354 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480354 Z07 ZNAME = 'NAME OF USER' 00490354 Z08 ZTAPE = 'TAPE OWNER/ID' 00500354 Z09 ZTAPED = 'DATE TAPE COPIED' 00510354 00520354 00810354 WRITE REPORT TITLE 00820354 00830354 00910354 * HEADER FOR SEGMENT 152 00920354 WRITE DETAIL REPORT HEADERS 00980354 00990354 01060354 * TEST OF FLOAT 01070354 01080354 * 02050354 TEST OF REAL 02060354 * 02070354 WRITE OUT TEST SUMMARY 03050354 03060354 WRITE OUT REPORT FOOTINGS 03180354 03190354 FORMATS FOR TEST DETAIL LINES 03250354 03260354 FORMAT STATEMENTS FOR PAGE HEADERS 03460354 03470354 03600354 FORMAT STATEMENTS FOR REPORT FOOTINGS 03610354 03620354 03670354 FORMAT STATEMENTS FOR RUN SUMMARY 03680354 03690354 03760354 * END OF TEST SEGMENT 152 03770354
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00320354 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00320354 |