**********00010815 * FORTRAN 77 00020815 FM815 00030815 * YCEXP - (180) 00040815 00050815 **********00060815 * GENERAL PURPOSE ANS REF 00070815 TEST INTRINSIC FUNCTION CEXP 15.3 00080815 * INTRINSIC FUNCTIONS AIMAG AND CABS ASSUMED WORKING TABLE 5 00090815 00100815 BB *** BBCCOMNT ******00110815 00120815 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130815 VERSION 2.1 00140815 00150815 00160815 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170815 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180815 SOFTWARE STANDARDS VALIDATION GROUP 00190815 BUILDING 225 RM A266 00200815 GAITHERSBURG, MD 20899 00210815 00220815 00230815 00240815 BE *** BBCCOMNT ******00250815 00260815 * S P E C I F I C A T I O N S SEGMENT 180 00270815 * 00310815 BB *** BBCINITA ******00320815 SPECIFICATION STATEMENTS 00330815 00340815 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470815 FOR IDENTIFYING THE TEST ENVIRONMENT 00480815 00490815 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500815 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510815 Z03 ZPROG = 'PROGRAM NAME' 00520815 Z04 ZDATE = 'DATE OF TEST' 00530815 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540815 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550815 Z07 ZNAME = 'NAME OF USER' 00560815 Z08 ZTAPE = 'TAPE OWNER/ID' 00570815 Z09 ZTAPED = 'DATE TAPE COPIED' 00580815 00590815 00880815 WRITE REPORT TITLE 00890815 00900815 00980815 * HEADER FOR SEGMENT 180 00990815 WRITE DETAIL REPORT HEADERS 01050815 01060815 01130815 T001 TEST 1 ZERO 01140815 * TESTS 4 AND 5 - PURELY IMAGINARY NUMBERS--RESULT LIES 01580815 ON UNIT CIRCLE 01590815 T004 TEST 4 (0,PI) 01600815 * 02470815 BB* **** BBCSUM0 *****02480815 WRITE OUT TEST SUMMARY 02490815 02500815 WRITE OUT REPORT FOOTINGS 02620815 02630815 FORMATS FOR TEST DETAIL LINES 02690815 02700815 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02900815 02910815 FORMAT STATEMENTS FOR PAGE HEADERS 03050815 03060815 03190815 FORMAT STATEMENTS FOR REPORT FOOTINGS 03200815 03210815 03260815 FORMAT STATEMENTS FOR RUN SUMMARY 03270815 03280815 03350815 *** END OF TEST SEGMENT 180 03360815
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| complex | :: | AVC | ||||
| complex | :: | BVC | ||||
| complex | :: | CVC | ||||
| real | :: | R2E(2) | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00390815 |
|||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00390815 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00390815 |