**********00010359 * FORTRAN 77 00020359 FM359 XSIGN - (161) 00030359 * 00040359 **********00050359 GENERAL PURPOSE SUBSET REF00060359 * TEST INTRINSIC FUNCTION - SIGN, ISIGN - (TRANSFER 15.3 00070359 OF SIGN - SIGN OF A2 TIMES ABS(A1) ) (TABLE 5)00080359 * 00090359 BB* **** BBCCOMNT *****00100359 00110359 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120359 VERSION 2.1 00130359 00140359 00150359 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160359 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170359 SOFTWARE STANDARDS VALIDATION GROUP 00180359 BUILDING 225 RM A266 00190359 GAITHERSBURG, MD 20899 00200359 00210359 00220359 00230359 BE *** BBCCOMNT ******00240359 BB *** BBCINITA ******00250359 SPECIFICATION STATEMENTS 00260359 00270359 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400359 FOR IDENTIFYING THE TEST ENVIRONMENT 00410359 00420359 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430359 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440359 Z03 ZPROG = 'PROGRAM NAME' 00450359 Z04 ZDATE = 'DATE OF TEST' 00460359 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470359 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480359 Z07 ZNAME = 'NAME OF USER' 00490359 Z08 ZTAPE = 'TAPE OWNER/ID' 00500359 Z09 ZTAPED = 'DATE TAPE COPIED' 00510359 00520359 00810359 WRITE REPORT TITLE 00820359 00830359 00910359 * HEADER FOR SEGMENT 161 00920359 WRITE DETAIL REPORT HEADERS 00980359 00990359 01060359 * TEST OF SIGN 01070359 01080359 * 02640359 TEST OF ISIGN 02650359 * 02660359 02690359 T012 TEST 12 BOTH VALUES ZERO 02700359 * 04130359 BB* **** BBCSUM0 *****04140359 WRITE OUT TEST SUMMARY 04150359 04160359 WRITE OUT REPORT FOOTINGS 04280359 04290359 FORMATS FOR TEST DETAIL LINES 04350359 04360359 FORMAT STATEMENTS FOR PAGE HEADERS 04560359 04570359 04700359 FORMAT STATEMENTS FOR REPORT FOOTINGS 04710359 04720359 04770359 FORMAT STATEMENTS FOR RUN SUMMARY 04780359 04790359 04860359 * END OF TEST SEGMENT 161 04870359
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00320359 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00320359 |