**********00010357 * FORTRAN 77 00020357 FM357 XAMOD - (159) 00030357 * 00040357 **********00050357 GENERAL PURPOSE ANS REF 00060357 * TEST INTRINSIC FUNCTIONS AMOD AND MOD - REMAINDERING, 15.3 00070357 WHICH IS DEFINED AS A1-(A1/A2)A2 WHERE (X) IS AN (TABLE 5)00080357 * INTEGER WHOSE MAGNITUDE IS LE ABS(X) AND WHOSE SIGN 00090357 IS THE SAME AS X. 00100357 * 00110357 BB* **** BBCCOMNT *****00120357 00130357 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140357 VERSION 2.1 00150357 00160357 00170357 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180357 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190357 SOFTWARE STANDARDS VALIDATION GROUP 00200357 BUILDING 225 RM A266 00210357 GAITHERSBURG, MD 20899 00220357 00230357 00240357 00250357 BE *** BBCCOMNT ******00260357 BB *** BBCINITA ******00270357 SPECIFICATION STATEMENTS 00280357 00290357 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420357 FOR IDENTIFYING THE TEST ENVIRONMENT 00430357 00440357 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450357 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460357 Z03 ZPROG = 'PROGRAM NAME' 00470357 Z04 ZDATE = 'DATE OF TEST' 00480357 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490357 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500357 Z07 ZNAME = 'NAME OF USER' 00510357 Z08 ZTAPE = 'TAPE OWNER/ID' 00520357 Z09 ZTAPED = 'DATE TAPE COPIED' 00530357 00540357 00830357 WRITE REPORT TITLE 00840357 00850357 00930357 * HEADER FOR SEGMENT 159 WRITTEN 00940357 WRITE DETAIL REPORT HEADERS 00990357 01000357 01070357 * TEST OF AMOD 01080357 01090357 * 01120357 T001 TEST 1 FIRST VALUE ZERO, SECOND NON-ZERO 01130357 02680357 * TEST OF MOD 02690357 02700357 * 02730357 T012 TEST 12 FIRST VALUE ZERO, SECOND NON-ZERO 02740357 04180357 BB *** BBCSUM0 ******04190357 WRITE OUT TEST SUMMARY 04200357 04210357 WRITE OUT REPORT FOOTINGS 04330357 04340357 FORMATS FOR TEST DETAIL LINES 04400357 04410357 FORMAT STATEMENTS FOR PAGE HEADERS 04610357 04620357 04750357 FORMAT STATEMENTS FOR REPORT FOOTINGS 04760357 04770357 04820357 FORMAT STATEMENTS FOR RUN SUMMARY 04830357 04840357 04910357 **** END OF TEST SEGMENT 159 04920357
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00340357 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00340357 |