**********00010261 * FORTRAN 77 00020261 FM261 00030261 * BLKIF4 - (303) 00040261 THIS PROGRAM CALLS SUBROUTINES SN262, SN263 AND INTEGER 00050261 FUNCTION IF264 00060261 **********00070261 * GENERAL PURPOSE SUBSET REF 00080261 TEST BLOCK IF STATEMENTS 11.6 - 11.900090261 * WITH SUBROUTINE CALLS 15.6 00100261 USES SUBROUTINES SN262 (750), SN263 (751) 00110261 * AND FUNCTION IF264 (752) 00120261 BB* **** BBCCOMNT *****00130261 00140261 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150261 VERSION 2.1 00160261 00170261 00180261 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190261 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200261 SOFTWARE STANDARDS VALIDATION GROUP 00210261 BUILDING 225 RM A266 00220261 GAITHERSBURG, MD 20899 00230261 00240261 00250261 00260261 BE *** BBCCOMNT ******00270261 BB *** BBCINITA ******00280261 SPECIFICATION STATEMENTS 00290261 00300261 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430261 FOR IDENTIFYING THE TEST ENVIRONMENT 00440261 00450261 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460261 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470261 Z03 ZPROG = 'PROGRAM NAME' 00480261 Z04 ZDATE = 'DATE OF TEST' 00490261 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500261 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510261 Z07 ZNAME = 'NAME OF USER' 00520261 Z08 ZTAPE = 'TAPE OWNER/ID' 00530261 Z09 ZTAPED = 'DATE TAPE COPIED' 00540261 00550261 00830261 WRITE REPORT TITLE 00840261 00850261 TOTAL NUMBER OF EXPECTED TESTS 00930261 * HEADER FOR SEGMENT 303 00950261 WRITE DETAIL REPORT HEADERS 01010261 01020261 * 01090261 * CONTINUE 01240261 T002 TEST 2 CALL OF FUNCTION CONTAINING BLOCK IF 01250261 01360261 * 01410261 BB* **** BBCSUM0 *****01420261 WRITE OUT TEST SUMMARY 01430261 01440261 WRITE OUT REPORT FOOTINGS 01560261 01570261 FORMATS FOR TEST DETAIL LINES 01630261 01640261 FORMAT STATEMENTS FOR PAGE HEADERS 01840261 01850261 01980261 FORMAT STATEMENTS FOR REPORT FOOTINGS 01990261 02000261 02050261 FORMAT STATEMENTS FOR RUN SUMMARY 02060261 02070261 * END OF TEST SEGMENT 303 02140261
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00350261 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00350261 |