**********00010820 * FORTRAN 77 00020820 FM820 00030820 * YCSIN - (188) 00040820 00050820 **********00060820 * GENERAL PURPOSE ANS REF 00070820 TEST INTRINSIC FUNCTION CSIN 15.3 00080820 * INTRINSIC FUNCTION CABS ASSUMED WORKING TABLE 5 00090820 00100820 BB *** BBCCOMNT ******00110820 00120820 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130820 VERSION 2.1 00140820 00150820 00160820 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170820 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180820 SOFTWARE STANDARDS VALIDATION GROUP 00190820 BUILDING 225 RM A266 00200820 GAITHERSBURG, MD 20899 00210820 00220820 00230820 00240820 BE *** BBCCOMNT ******00250820 00260820 * S P E C I F I C A T I O N S SEGMENT 188 00270820 * 00310820 BB *** BBCINITA ******00320820 SPECIFICATION STATEMENTS 00330820 00340820 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470820 FOR IDENTIFYING THE TEST ENVIRONMENT 00480820 00490820 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500820 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510820 Z03 ZPROG = 'PROGRAM NAME' 00520820 Z04 ZDATE = 'DATE OF TEST' 00530820 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540820 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550820 Z07 ZNAME = 'NAME OF USER' 00560820 Z08 ZTAPE = 'TAPE OWNER/ID' 00570820 Z09 ZTAPED = 'DATE TAPE COPIED' 00580820 00590820 00880820 WRITE REPORT TITLE 00890820 00900820 00980820 * HEADER FOR SEGMENT 188 00990820 WRITE DETAIL REPORT HEADERS 01050820 01060820 01130820 * 01160820 T001 TEST 1 TEST AT ZERO (0.0, 0.0) 01170820 02500820 * 02540820 * 04000820 BB *** BBCSUM0 ******04010820 WRITE OUT TEST SUMMARY 04020820 04030820 WRITE OUT REPORT FOOTINGS 04150820 04160820 FORMATS FOR TEST DETAIL LINES 04220820 04230820 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04430820 04440820 FORMAT STATEMENTS FOR PAGE HEADERS 04580820 04590820 04720820 FORMAT STATEMENTS FOR REPORT FOOTINGS 04730820 04740820 04790820 FORMAT STATEMENTS FOR RUN SUMMARY 04800820 04810820 04880820 **** END OF TEST SEGMENT 188 04890820
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| complex | :: | AVC | ||||
| complex | :: | BVC | ||||
| real | :: | R2E(2) | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00390820 |
|||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00390820 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00390820 |