**********00010369 * FORTRAN 77 00020369 FM369 00030369 * XEXP - (178) 00040369 00050369 **********00060369 * GENERAL PURPOSE SUBSET REF 00070369 TEST INTRINSIC FUNCTION EXP 15.3 00080369 * TABLE 5 00090369 00100369 BB *** BBCCOMNT ******00110369 00120369 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130369 VERSION 2.1 00140369 00150369 00160369 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170369 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180369 SOFTWARE STANDARDS VALIDATION GROUP 00190369 BUILDING 225 RM A266 00200369 GAITHERSBURG, MD 20899 00210369 00220369 00230369 00240369 BE *** BBCCOMNT ******00250369 BB *** BBCINITA ******00260369 SPECIFICATION STATEMENTS 00270369 00280369 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410369 FOR IDENTIFYING THE TEST ENVIRONMENT 00420369 00430369 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440369 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450369 Z03 ZPROG = 'PROGRAM NAME' 00460369 Z04 ZDATE = 'DATE OF TEST' 00470369 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480369 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490369 Z07 ZNAME = 'NAME OF USER' 00500369 Z08 ZTAPE = 'TAPE OWNER/ID' 00510369 Z09 ZTAPED = 'DATE TAPE COPIED' 00520369 00530369 00820369 WRITE REPORT TITLE 00830369 00840369 00920369 * HEADER FOR SEGMENT 178 00930369 WRITE DETAIL REPORT HEADERS 00990369 01000369 01070369 T001 TEST 1 ZERO SINCE EXP(0.0) = 1 01080369 * TESTS 3 THRU 5 - POSITIVE VALUES 01330369 T003 TEST 3 01340369 TESTS 7 THRU 10 - EXPRESSION PRESENTED TO EXP 01830369 T007* TEST 7 01840369 * TESTS 11 THRU 14 - VALUES CLOSE TO ONE 02350369 T011 TEST 11 02360369 02610369 * ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02620369 02660369 T013 TEST 13 02670369 * TESTS 15 THRU 19 - VALUES CLOSE TO 1/E 02920369 T015 TEST 15 02930369 WRITE OUT TEST SUMMARY 03590369 03600369 WRITE OUT REPORT FOOTINGS 03720369 03730369 FORMATS FOR TEST DETAIL LINES 03790369 03800369 FORMAT STATEMENTS FOR PAGE HEADERS 04000369 04010369 04140369 FORMAT STATEMENTS FOR REPORT FOOTINGS 04150369 04160369 04210369 FORMAT STATEMENTS FOR RUN SUMMARY 04220369 04230369 04300369 **** END OF TEST SEGMENT 178 04310369
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00330369 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00330369 |