00150700 1978 FORTRAN COMPILER VALIDATION SYSTEM 00160700 VERSION 2.1 00170700 00180700 00190700 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00200700 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00210700 SOFTWARE STANDARDS VALIDATION GROUP 00220700 BUILDING 225 RM A266 00230700 GAITHERSBURG, MD 20899 00240700 00250700 00260700 00270700 BE* **** BBCCOMNT *****00280700 SPECIFICATION STATEMENTS 00320700 00330700 INITIALIZE SECTION 00660700 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00740700 FOR IDENTIFYING THE TEST ENVIRONMENT 00750700 00760700 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00770700 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00780700 Z03 ZPROG = 'PROGRAM NAME' 00790700 Z04 ZDATE = 'DATE OF TEST' 00800700 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00810700 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00820700 Z07 ZNAME = 'NAME OF USER' 00830700 Z08 ZTAPE = 'TAPE OWNER/ID' 00840700 Z09 ZTAPED = 'DATE TAPE COPIED' 00850700 00860700 01140700 WRITE REPORT TITLE 01150700 01160700 WRITE DETAIL REPORT HEADERS 01250700 01260700 WRITE OUT TEST SUMMARY 05190700 05200700 WRITE OUT REPORT FOOTINGS 05320700 05330700 FORMATS FOR TEST DETAIL LINES 05410700 05420700 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05620700 05630700 FORMAT STATEMENTS FOR PAGE HEADERS 05770700 05780700 05910700 FORMAT STATEMENTS FOR REPORT FOOTINGS 05920700 05930700 05980700 FORMAT STATEMENTS FOR RUN SUMMARY 05990700 06000700
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | C1N001(3)*5 | ||||
| character | :: | C2N001(3,4)*4 | ||||
| character, | parameter | :: | CPN001*5 | = | "0" | |
| character | :: | CVCOMP*25 | ||||
| character | :: | CVCORR*25 | ||||
| character | :: | CVN001*25 | ||||
| character | :: | CVN002*5 | ||||
| character | :: | CVN003*17 | ||||
| double precision | :: | D1N001(9) | ||||
| double precision, | parameter | :: | DPN001 | = | 0.1948D+3 | |
| double precision | :: | DVCOMP | ||||
| double precision | :: | DVCORR | ||||
| double precision | :: | DVN001 | ||||
| integer | :: | I2N001(2,3) | ||||
| integer | :: | I2N002(7) | ||||
| integer | :: | I2N003(3,7) | ||||
| integer | :: | I2N004(3,10) | ||||
| integer | :: | I2N005(4,5) | ||||
| integer | :: | I2N006(6,8) | ||||
| real | :: | R2E001(2) | ||||
| real | :: | R2N001(5,3) | ||||
| character | :: | REMRKS*31 | ||||
| complex | :: | Z1N001(10) | ||||
| character | :: | ZCOMPL*20 | ||||
| character | :: | ZDATE*17 | ||||
| character | :: | ZNAME*20 | ||||
| character | :: | ZPROG*5 | ||||
| character | :: | ZPROJ*13 | ||||
| character | :: | ZTAPE*10 | ||||
| character | :: | ZTAPED*13 | ||||
| complex | :: | ZVCOMP | ||||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | ||||
| character | :: | ZVERSD*17 | ||||
| complex | :: | ZVN001 |