FM834 Program

**********00010834 * FORTRAN 77 00020834 FM834 00030834 * YGEN7 - (212) 00040834 00050834 **********00060834 * GENERAL PURPOSE ANS REF 00070834 TEST GENERIC FUNCTIONS 15.3 00080834 * USES GENERIC FUNCTIONS AS ARGUMENTS TO TABLE 5 00090834 OTHER GENERIC FUNCTIONS 00100834 * 00110834 BB* **** BBCCOMNT *****00120834 00130834 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140834 VERSION 2.1 00150834 00160834 00170834 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180834 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190834 SOFTWARE STANDARDS VALIDATION GROUP 00200834 BUILDING 225 RM A266 00210834 GAITHERSBURG, MD 20899 00220834 00230834 00240834 00250834 BE **** BBCCOMNT ******00260834 00270834 * S P E C I F I C A T I O N S SEGMENT 212 00280834 00330834 BB *** BBCINITA ******00340834 SPECIFICATION STATEMENTS 00350834 00360834 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490834 FOR IDENTIFYING THE TEST ENVIRONMENT 00500834 00510834 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520834 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530834 Z03 ZPROG = 'PROGRAM NAME' 00540834 Z04 ZDATE = 'DATE OF TEST' 00550834 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00560834 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00570834 Z07 ZNAME = 'NAME OF USER' 00580834 Z08 ZTAPE = 'TAPE OWNER/ID' 00590834 Z09 ZTAPED = 'DATE TAPE COPIED' 00600834 00610834 00900834 WRITE REPORT TITLE 00910834 00920834 01000834 * HEADER FOR SEGMENT 212 01010834 WRITE DETAIL REPORT HEADERS 01070834 01080834 01150834 T001 TEST 1 TEST OF ABS AND MIN WITH INTEGERS 01160834 * 01170834 WRITE OUT TEST SUMMARY 02020834 02030834 WRITE OUT REPORT FOOTINGS 02150834 02160834 FORMATS FOR TEST DETAIL LINES 02220834 02230834 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02430834 02440834 FORMAT STATEMENTS FOR PAGE HEADERS 02580834 02590834 02720834 FORMAT STATEMENTS FOR REPORT FOOTINGS 02730834 02740834 02790834 FORMAT STATEMENTS FOR RUN SUMMARY 02800834 02810834 02880834 * END OF TEST SEGMENT 212 02890834


Contents


Variables

Type AttributesNameInitial
complex :: AVC
double precision :: AVD
double precision :: DVCORR
real :: R2E(2)
character :: REMRKS*31

*** INITIALIZE SECTION 00410834

character :: ZCOMPL*20

*** INITIALIZE SECTION 00410834

character :: ZDATE*17

*** INITIALIZE SECTION 00410834

character :: ZNAME*20

*** INITIALIZE SECTION 00410834

character :: ZPROG*5

*** INITIALIZE SECTION 00410834

character :: ZPROJ*13

*** INITIALIZE SECTION 00410834

character :: ZTAPE*10

*** INITIALIZE SECTION 00410834

character :: ZTAPED*13

*** INITIALIZE SECTION 00410834

complex :: ZVCORR
character :: ZVERS*13

*** INITIALIZE SECTION 00410834

character :: ZVERSD*17

*** INITIALIZE SECTION 00410834