**********00010363 * FORTRAN 77 00020363 FM363 X66MX - (171) 00030363 * 00040363 **********00050363 GENERAL PURPOSE SUBSET REF00060363 * TEST THAT ALL INTRINSIC FUNCTIONS WOULD ACCEPT 15.3 00070363 ANY EXPRESSION OF THE TYPE SPECIFIED IN THE (TABLE 5)00080363 * INTRINSIC FUNCTION TABLE - ANS REFS - 15.10 00090363 00100363 * GENERAL COMMENTS 00110363 SEGMENTS XINT, XREAL, XAINT, XABS, XAMOD, 00120363 * XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130363 00140363 BB *** BBCCOMNT ******00150363 00160363 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170363 VERSION 2.1 00180363 00190363 00200363 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210363 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220363 SOFTWARE STANDARDS VALIDATION GROUP 00230363 BUILDING 225 RM A266 00240363 GAITHERSBURG, MD 20899 00250363 00260363 00270363 00280363 BE *** BBCCOMNT ******00290363 BB *** BBCINITA ******00300363 SPECIFICATION STATEMENTS 00310363 00320363 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450363 FOR IDENTIFYING THE TEST ENVIRONMENT 00460363 00470363 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480363 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490363 Z03 ZPROG = 'PROGRAM NAME' 00500363 Z04 ZDATE = 'DATE OF TEST' 00510363 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520363 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530363 Z07 ZNAME = 'NAME OF USER' 00540363 Z08 ZTAPE = 'TAPE OWNER/ID' 00550363 Z09 ZTAPED = 'DATE TAPE COPIED' 00560363 00570363 00860363 WRITE REPORT TITLE 00870363 00880363 00960363 * HEADER FOR SEGMENT 171 WRITTEN 00970363 WRITE DETAIL REPORT HEADERS 01030363 01040363 01110363 * TEST OF INTRINSIC FUNCTIONS IN EXPRESSIONS 01120363 01130363 T001 TEST 1 01140363 * 03080363 BB* **** BBCSUM0 *****03090363 WRITE OUT TEST SUMMARY 03100363 03110363 WRITE OUT REPORT FOOTINGS 03230363 03240363 FORMATS FOR TEST DETAIL LINES 03300363 03310363 FORMAT STATEMENTS FOR PAGE HEADERS 03510363 03520363 03650363 FORMAT STATEMENTS FOR REPORT FOOTINGS 03660363 03670363 03720363 FORMAT STATEMENTS FOR RUN SUMMARY 03730363 03740363 03810363 **** END OF TEST SEGMENT 171 03820363
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00370363 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00370363 |