**********00010258 * FORTRAN 77 00020258 FM258 00030258 * BLKIF1 - (300) 00040258 00050258 **********00060258 * GENERAL PURPOSE SUBSET REF 00070258 TEST BLOCK IF STATEMENTS 11.6 - 11.9 00080258 * SIMPLE TESTS OF IF (E) THEN,ELSE,ELSEIF,ENDIF 00090258 00100258 BB *** BBCCOMNT ******00110258 00120258 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130258 VERSION 2.1 00140258 00150258 00160258 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170258 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180258 SOFTWARE STANDARDS VALIDATION GROUP 00190258 BUILDING 225 RM A266 00200258 GAITHERSBURG, MD 20899 00210258 00220258 00230258 00240258 BE *** BBCCOMNT ******00250258 BB *** BBCINITA ******00260258 SPECIFICATION STATEMENTS 00270258 00280258 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410258 FOR IDENTIFYING THE TEST ENVIRONMENT 00420258 00430258 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440258 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450258 Z03 ZPROG = 'PROGRAM NAME' 00460258 Z04 ZDATE = 'DATE OF TEST' 00470258 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480258 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490258 Z07 ZNAME = 'NAME OF USER' 00500258 Z08 ZTAPE = 'TAPE OWNER/ID' 00510258 Z09 ZTAPED = 'DATE TAPE COPIED' 00520258 00530258 00810258 WRITE REPORT TITLE 00820258 00830258 TOTAL NUMBER OF EXPECTED TEST 00910258 * HEADER FOR SEGMENT 300 00930258 WRITE DETAIL REPORT HEADERS 00980258 00990258 01060258 * 02360258 02380258 BB *** BBCSUM0 ******02390258 WRITE OUT TEST SUMMARY 02400258 02410258 WRITE OUT REPORT FOOTINGS 02530258 02540258 FORMATS FOR TEST DETAIL LINES 02600258 02610258 FORMAT STATEMENTS FOR PAGE HEADERS 02810258 02820258 02950258 FORMAT STATEMENTS FOR REPORT FOOTINGS 02960258 02970258 03020258 FORMAT STATEMENTS FOR RUN SUMMARY 03030258 03040258 * END OF TEST SEGMENT 300 03170258
Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
character | :: | REMRKS*31 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZDATE*17 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZNAME*20 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZPROG*5 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZVERS*13 | *** INITIALIZE SECTION 00330258 |
|||
character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00330258 |