FM260 Program

**********00010260 * FORTRAN 77 00020260 FM260 00030260 * BLKIF3 - (302) 00040260 00050260 **********00060260 * GENERAL PURPOSE SUBSET REF 00070260 TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080260 * WITH DO, ARITHMETIC IF, LOGICAL IF, 11.6 - 11.1000090260 COMPUTED GOTO, ASSIGN GOTO 00100260 * 00110260 BB* **** BBCCOMNT *****00120260 00130260 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140260 VERSION 2.1 00150260 00160260 00170260 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180260 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190260 SOFTWARE STANDARDS VALIDATION GROUP 00200260 BUILDING 225 RM A266 00210260 GAITHERSBURG, MD 20899 00220260 00230260 00240260 00250260 BE *** BBCCOMNT ******00260260 BB *** BBCINITA ******00270260 SPECIFICATION STATEMENTS 00280260 00290260 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420260 FOR IDENTIFYING THE TEST ENVIRONMENT 00430260 00440260 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450260 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460260 Z03 ZPROG = 'PROGRAM NAME' 00470260 Z04 ZDATE = 'DATE OF TEST' 00480260 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490260 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500260 Z07 ZNAME = 'NAME OF USER' 00510260 Z08 ZTAPE = 'TAPE OWNER/ID' 00520260 Z09 ZTAPED = 'DATE TAPE COPIED' 00530260 00540260 00830260 WRITE REPORT TITLE 00840260 00850260 TOTAL NUMBER OF EXPECTED TESTS 00930260 * 00940260 HEADER FOR SEGMENT 302 00950260 WRITE DETAIL REPORT HEADERS 01010260 01020260 * 01090260 ASSIGNED GOTO 01120260 * LABEL ON A ENDIF IS PERMITTED 01360260 02040260 * 02090260 BB* **** BBCSUM0 *****02100260 WRITE OUT TEST SUMMARY 02110260 02120260 WRITE OUT REPORT FOOTINGS 02240260 02250260 FORMATS FOR TEST DETAIL LINES 02310260 02320260 FORMAT STATEMENTS FOR PAGE HEADERS 02520260 02530260 02660260 FORMAT STATEMENTS FOR REPORT FOOTINGS 02670260 02680260 02730260 FORMAT STATEMENTS FOR RUN SUMMARY 02740260 02750260 END OF TEST SEGMENT 302 02820260