FM829 Program

**********00010829 * FORTRAN 77 00020829 FM829 00030829 * YGEN1 - (206) 00040829 00050829 **********00060829 * TESTING OF GENERIC FUNCTIONS ANS REF 00070829 INT, REAL, DBLE, CMPLX 15.3 00080829 * TABLE 5 00090829 BB* **** BBCCOMNT *****00100829 00110829 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120829 VERSION 2.1 00130829 00140829 00150829 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160829 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170829 SOFTWARE STANDARDS VALIDATION GROUP 00180829 BUILDING 225 RM A266 00190829 GAITHERSBURG, MD 20899 00200829 00210829 00220829 00230829 BE **** BBCCOMNT ******00240829 00250829 * S P E C I F I C A T I O N S SEGMENT 206 00260829 00310829 BB *** BBCINITA ******00320829 SPECIFICATION STATEMENTS 00330829 00340829 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470829 FOR IDENTIFYING THE TEST ENVIRONMENT 00480829 00490829 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500829 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510829 Z03 ZPROG = 'PROGRAM NAME' 00520829 Z04 ZDATE = 'DATE OF TEST' 00530829 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540829 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550829 Z07 ZNAME = 'NAME OF USER' 00560829 Z08 ZTAPE = 'TAPE OWNER/ID' 00570829 Z09 ZTAPED = 'DATE TAPE COPIED' 00580829 00590829 00880829 WRITE REPORT TITLE 00890829 00900829 00980829 * HEADER FOR SEGMENT 206 00990829 WRITE DETAIL REPORT HEADERS 01050829 01060829 01130829 T001 TEST 1 TEST OF INT 01140829 * WITH INTEGER ARG 01150829 WITH REAL ARGS 01490829 * WITH DOUBLE PREC ARGS 01610829 ARGUMENTS 01740829 * WITH REAL ARG 01870829 WITH INTEGER ARG 02640829 * WITH INTEGER ARG 03170829 WITH INTEGER ARGS 03760829 * WITH REAL EXPR 04210829 WITH INT EXPR 04650829 * WITH INTEGER EXPR 05100829 WITH INTEGER EXPR 05560829 * 06070829 BB* **** BBCSUM0 *****06080829 WRITE OUT TEST SUMMARY 06090829 06100829 WRITE OUT REPORT FOOTINGS 06220829 06230829 FORMATS FOR TEST DETAIL LINES 06290829 06300829 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06500829 06510829 FORMAT STATEMENTS FOR PAGE HEADERS 06650829 06660829 06790829 FORMAT STATEMENTS FOR REPORT FOOTINGS 06800829 06810829 06860829 FORMAT STATEMENTS FOR RUN SUMMARY 06870829 06880829 06950829 ** END OF TEST SEGMENT 206 06960829