**********00010379 * FORTRAN 77 00020379 FM379 00030379 * XRFOR - (201) 00040379 00050379 **********00060379 * GENERAL PURPOSE SUBSET REF 00070379 TEST TRIGONOMETRIC FORMULAE 15.3 00080379 * TABLE 5 00090379 00100379 BB *** BBCCOMNT ******00110379 00120379 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130379 VERSION 2.1 00140379 00150379 00160379 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170379 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180379 SOFTWARE STANDARDS VALIDATION GROUP 00190379 BUILDING 225 RM A266 00200379 GAITHERSBURG, MD 20899 00210379 00220379 00230379 00240379 BE *** BBCCOMNT ******00250379 BB *** BBCINITA ******00260379 SPECIFICATION STATEMENTS 00270379 00280379 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410379 FOR IDENTIFYING THE TEST ENVIRONMENT 00420379 00430379 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440379 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450379 Z03 ZPROG = 'PROGRAM NAME' 00460379 Z04 ZDATE = 'DATE OF TEST' 00470379 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480379 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490379 Z07 ZNAME = 'NAME OF USER' 00500379 Z08 ZTAPE = 'TAPE OWNER/ID' 00510379 Z09 ZTAPED = 'DATE TAPE COPIED' 00520379 00530379 00820379 WRITE REPORT TITLE 00830379 00840379 00920379 * HEADER FOR SEGMENT 201 00930379 WRITE DETAIL REPORT HEADERS 00990379 01000379 01070379 * 01090379 T001 TEST 1 LN(EXP(X)) = 1 01100379 02480379 BB *** BBCSUM0 ******02490379 WRITE OUT TEST SUMMARY 02500379 02510379 WRITE OUT REPORT FOOTINGS 02630379 02640379 FORMATS FOR TEST DETAIL LINES 02700379 02710379 FORMAT STATEMENTS FOR PAGE HEADERS 02910379 02920379 03050379 FORMAT STATEMENTS FOR REPORT FOOTINGS 03060379 03070379 03120379 FORMAT STATEMENTS FOR RUN SUMMARY 03130379 03140379 03210379 **** END OF TEST SEGMENT 201 03220379
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00330379 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00330379 |