* 00140505 00150505 * DECLARATION OF VARIABLES IN COMMON BLOCKS 00160505 00290505 BB *** BBCINITA ******00300505 SPECIFICATION STATEMENTS 00310505 00320505 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450505 FOR IDENTIFYING THE TEST ENVIRONMENT 00460505 00470505 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480505 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490505 Z03 ZPROG = 'PROGRAM NAME' 00500505 Z04 ZDATE = 'DATE OF TEST' 00510505 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520505 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530505 Z07 ZNAME = 'NAME OF USER' 00540505 Z08 ZTAPE = 'TAPE OWNER/ID' 00550505 Z09 ZTAPED = 'DATE TAPE COPIED' 00560505 00570505 00860505 WRITE REPORT TITLE 00870505 00880505 WRITE DETAIL REPORT HEADERS 01010505 01020505 01090505 T001 TEST 1 REAL VARIABLE - EXPONENT FORM 01100505 * 02100505 BB* **** BBCSUM0 *****02110505 WRITE OUT TEST SUMMARY 02120505 02130505 WRITE OUT REPORT FOOTINGS 02250505 02260505 FORMATS FOR TEST DETAIL LINES 02320505 02330505 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02530505 02540505 FORMAT STATEMENTS FOR PAGE HEADERS 02680505 02690505 02820505 FORMAT STATEMENTS FOR REPORT FOOTINGS 02830505 02840505 02890505 FORMAT STATEMENTS FOR RUN SUMMARY 02900505 02910505 * 02980505
**** LOCAL DECLARATION 00240505
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| real | :: | A6XVK | ||||
| real | :: | B6XVK |
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| real | :: | AXVB | ||||
| real | :: | AXVC | ||||
| real | :: | AXVD | ||||
| real | :: | AXVS | ||||
| real | :: | BXVS | ||||
| integer | :: | IXVI |