**********00010809 * FORTRAN 77 00020809 FM809 YCONJG - (170) 00030809 * 00040809 **********00050809 GENERAL PURPOSE ANS REF 00060809 * TEST INTRINSIC FUNCTION CMPLX (CONVERT TO COMPLEX), 15.3 00070809 AIMAG (IMAGINARY PART), AND CONJG (CONJUGATE) (TABLE 5)00080809 * 00090809 S P E C I F I C A T I O N S SEGMENT 170 00100809 BB *** BBCCOMNT ******00110809 00120809 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130809 VERSION 2.1 00140809 00150809 00160809 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170809 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180809 SOFTWARE STANDARDS VALIDATION GROUP 00190809 BUILDING 225 RM A266 00200809 GAITHERSBURG, MD 20899 00210809 00220809 00230809 00240809 BE *** BBCCOMNT ******00250809 00260809 * 00300809 BB* **** BBCINITA *****00310809 SPECIFICATION STATEMENTS 00320809 00330809 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460809 FOR IDENTIFYING THE TEST ENVIRONMENT 00470809 00480809 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490809 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500809 Z03 ZPROG = 'PROGRAM NAME' 00510809 Z04 ZDATE = 'DATE OF TEST' 00520809 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530809 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540809 Z07 ZNAME = 'NAME OF USER' 00550809 Z08 ZTAPE = 'TAPE OWNER/ID' 00560809 Z09 ZTAPED = 'DATE TAPE COPIED' 00570809 00580809 00870809 WRITE REPORT TITLE 00880809 00890809 00970809 * HEADER FOR SEGMENT 170 WRITTEN 00980809 WRITE DETAIL REPORT HEADERS 01060809 01070809 01140809 * TEST OF CMPLX 01150809 01160809 * 02790809 02830809 * TEST OF AIMAG 02840809 02850809 * 03880809 03920809 * TEST OF CONJG 03930809 03940809 * 05000809 BB* **** BBCSUM0 *****05010809 WRITE OUT TEST SUMMARY 05020809 05030809 WRITE OUT REPORT FOOTINGS 05150809 05160809 FORMATS FOR TEST DETAIL LINES 05220809 05230809 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05430809 05440809 FORMAT STATEMENTS FOR PAGE HEADERS 05580809 05590809 05720809 FORMAT STATEMENTS FOR REPORT FOOTINGS 05730809 05740809 05790809 FORMAT STATEMENTS FOR RUN SUMMARY 05800809 05810809 05880809 * END OF TEST SEGMENT 170 05890809
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| complex | :: | CWAVC | ||||
| complex | :: | CWBVC | ||||
| complex | :: | CWDVC | ||||
| complex | :: | CWEVC | ||||
| real | :: | R2E(2) | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00380809 |
|||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00380809 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00380809 |