**********00010360 * FORTRAN 77 00020360 FM360 XDIM - (163) 00030360 * 00040360 **********00050360 GENERAL PURPOSE SUBSET REF00060360 * TEST INTRINSIC FUNCTION DIM AND IDIM--POSITIVE 15.3 00070360 DIFFERENCE, WHICH IS DEFINED AS A1 - MIN(A1,A2) (TABLE 5)00080360 * 00090360 BB* **** BBCCOMNT *****00100360 00110360 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120360 VERSION 2.1 00130360 00140360 00150360 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160360 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170360 SOFTWARE STANDARDS VALIDATION GROUP 00180360 BUILDING 225 RM A266 00190360 GAITHERSBURG, MD 20899 00200360 00210360 00220360 00230360 BE *** BBCCOMNT ******00240360 BB *** BBCINITA ******00250360 SPECIFICATION STATEMENTS 00260360 00270360 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400360 FOR IDENTIFYING THE TEST ENVIRONMENT 00410360 00420360 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430360 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440360 Z03 ZPROG = 'PROGRAM NAME' 00450360 Z04 ZDATE = 'DATE OF TEST' 00460360 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470360 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480360 Z07 ZNAME = 'NAME OF USER' 00490360 Z08 ZTAPE = 'TAPE OWNER/ID' 00500360 Z09 ZTAPED = 'DATE TAPE COPIED' 00510360 00520360 00810360 WRITE REPORT TITLE 00820360 00830360 00910360 * HEADER FOR SEGMENT 163 00920360 WRITE DETAIL REPORT HEADERS 00980360 00990360 01060360 * TEST OF DIM 01070360 01080360 * 02090360 TEST OF IDIM 02100360 * 02110360 03050360 BB *** BBCSUM0 ******03060360 WRITE OUT TEST SUMMARY 03070360 03080360 WRITE OUT REPORT FOOTINGS 03200360 03210360 FORMATS FOR TEST DETAIL LINES 03270360 03280360 FORMAT STATEMENTS FOR PAGE HEADERS 03480360 03490360 03620360 FORMAT STATEMENTS FOR REPORT FOOTINGS 03630360 03640360 03690360 FORMAT STATEMENTS FOR RUN SUMMARY 03700360 03710360 03780360 * 03810360 * END OF TEST SEGMENT 163 03820360
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00320360 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00320360 |