**********00010817 * FORTRAN 77 00020817 FM817 00030817 * YCLOG - (183) 00040817 00050817 **********00060817 * GENERAL PURPOSE ANS REF 00070817 TEST INTRINSIC FUNCTION CLOG 15.3 00080817 * INTRINSIC FUNCTIONS AIMAG AND CMPLX ASSUMED WORKING TABLE 5 00090817 00100817 BB *** BBCCOMNT ******00110817 00120817 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130817 VERSION 2.1 00140817 00150817 00160817 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170817 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180817 SOFTWARE STANDARDS VALIDATION GROUP 00190817 BUILDING 225 RM A266 00200817 GAITHERSBURG, MD 20899 00210817 00220817 00230817 00240817 BE *** BBCCOMNT ******00250817 00260817 * S P E C I F I C A T I O N S SEGMENT 183 00270817 * 00310817 BB *** BBCINITA ******00320817 SPECIFICATION STATEMENTS 00330817 00340817 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470817 FOR IDENTIFYING THE TEST ENVIRONMENT 00480817 00490817 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500817 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510817 Z03 ZPROG = 'PROGRAM NAME' 00520817 Z04 ZDATE = 'DATE OF TEST' 00530817 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540817 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550817 Z07 ZNAME = 'NAME OF USER' 00560817 Z08 ZTAPE = 'TAPE OWNER/ID' 00570817 Z09 ZTAPED = 'DATE TAPE COPIED' 00580817 00590817 00880817 WRITE REPORT TITLE 00890817 00900817 00980817 * HEADER FOR SEGMENT 183 00990817 WRITE DETAIL REPORT HEADERS 01050817 01060817 01130817 * TESTS 1 THRU 3 - POSITIVE REAL NUMBERS--CLOG, ALOG AGREE ON 01150817 REAL LINE 01160817 T001 TEST 1 01170817 * TESTS 5 AND 6 - NEGATIVE REAL NUMBERS--CHECK RIGHT BRANCH AT 01730817 ENDPOINTS 01740817 T005 TEST 5 01750817 * 02800817 BB* **** BBCSUM0 *****02810817 WRITE OUT TEST SUMMARY 02820817 02830817 WRITE OUT REPORT FOOTINGS 02950817 02960817 FORMATS FOR TEST DETAIL LINES 03020817 03030817 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03230817 03240817 FORMAT STATEMENTS FOR PAGE HEADERS 03380817 03390817 03520817 FORMAT STATEMENTS FOR REPORT FOOTINGS 03530817 03540817 03590817 FORMAT STATEMENTS FOR RUN SUMMARY 03600817 03610817 03680817 **** END OF TEST SEGMENT 183 03690817
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| complex | :: | AVC | ||||
| complex | :: | BVC | ||||
| complex | :: | CVC | ||||
| real | :: | R2E(2) | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00390817 |
|||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00390817 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00390817 |