FM259 Program

**********00010259 * FORTRAN 77 00020259 FM259 00030259 * BLKIF2 - (301) 00040259 00050259 **********00060259 * GENERAL PURPOSE SUBSET REF 00070259 TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080259 * WITH GOTO, COMPUTED GOTO, ASSIGN GOTO, DO 11.6 - 11.1000090259 00100259 BB *** BBCCOMNT ******00110259 00120259 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130259 VERSION 2.1 00140259 00150259 00160259 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170259 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180259 SOFTWARE STANDARDS VALIDATION GROUP 00190259 BUILDING 225 RM A266 00200259 GAITHERSBURG, MD 20899 00210259 00220259 00230259 00240259 BE *** BBCCOMNT ******00250259 BB *** BBCINITA ******00260259 SPECIFICATION STATEMENTS 00270259 00280259 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410259 FOR IDENTIFYING THE TEST ENVIRONMENT 00420259 00430259 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440259 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450259 Z03 ZPROG = 'PROGRAM NAME' 00460259 Z04 ZDATE = 'DATE OF TEST' 00470259 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480259 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490259 Z07 ZNAME = 'NAME OF USER' 00500259 Z08 ZTAPE = 'TAPE OWNER/ID' 00510259 Z09 ZTAPED = 'DATE TAPE COPIED' 00520259 00530259 00820259 WRITE REPORT TITLE 00830259 00840259 00920259 * HEADER FOR SEGMENT 301 00930259 WRITE DETAIL REPORT HEADERS 00990259 01000259 01070259 * 01770259 BB* **** BBCSUM0 *****01780259 WRITE OUT TEST SUMMARY 01790259 01800259 WRITE OUT REPORT FOOTINGS 01920259 01930259 FORMATS FOR TEST DETAIL LINES 01990259 02000259 FORMAT STATEMENTS FOR PAGE HEADERS 02200259 02210259 02340259 FORMAT STATEMENTS FOR REPORT FOOTINGS 02350259 02360259 02410259 FORMAT STATEMENTS FOR RUN SUMMARY 02420259 02430259 02500259 *** END OF TEST SEGMENT 301 02560259