**********00010405 * FORTRAN 77 00020405 FM405 00030405 * INTER1 - (390) 00040405 00050405 **********00060405 * TESTING OF INTERNAL FILES - SUBSET REF00070405 USING READ 12.2.5 00080405 * 00090405 BB* **** BBCCOMNT *****00100405 00110405 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120405 VERSION 2.1 00130405 00140405 00150405 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160405 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170405 SOFTWARE STANDARDS VALIDATION GROUP 00180405 BUILDING 225 RM A266 00190405 GAITHERSBURG, MD 20899 00200405 00210405 00220405 00230405 BE **** BBCCOMNT ******00240405 00250405 * S P E C I F I C A T I O N S SEGMENT 390 00260405 00270405 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460405 FOR IDENTIFYING THE TEST ENVIRONMENT 00470405 00480405 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490405 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500405 Z03 ZPROG = 'PROGRAM NAME' 00510405 Z04 ZDATE = 'DATE OF TEST' 00520405 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530405 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540405 Z07 ZNAME = 'NAME OF USER' 00550405 Z08 ZTAPE = 'TAPE OWNER/ID' 00560405 Z09 ZTAPED = 'DATE TAPE COPIED' 00570405 00580405 00830405 * 00850405 00900405 WRITE REPORT TITLE 00910405 00920405 * 01000405 01060405 * HEADER FOR SEGMENT 390 01070405 01080405 WRITE DETAIL REPORT HEADERS 01130405 01140405 * 01210405 ******** 01220405 T001* TEST 1 CHARACTER VARIABLE, INTEGER 01230405 * 01390405 T002 TEST 2 REAL, FW.D 01400405 START READING JUST AFTER FIRST VARIABLE 02850405 * WITH RUN TIME EXPRESSION AS SUBSCRIPT03270405 03560405 * 04060405 END OF TEST SEGMENT 390 04070405 BB *** BBCSUM0 ******04080405 WRITE OUT TEST SUMMARY 04090405 04100405 WRITE OUT REPORT FOOTINGS 04220405 04230405 FORMATS FOR TEST DETAIL LINES 04290405 04300405 FORMAT STATEMENTS FOR PAGE HEADERS 04500405 04510405 04640405 FORMAT STATEMENTS FOR REPORT FOOTINGS 04650405 04660405 04710405 FORMAT STATEMENTS FOR RUN SUMMARY 04720405 04730405
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character | :: | A1VK*1 | ||||
| character | :: | A38VK*38 | ||||
| character | :: | A4VK*4 | ||||
| character | :: | A5VK*5 | SPECIFICATION STATEMENTS 00320405 00330405 |
|||
| character | :: | A8VK*8 | SPECIFICATION STATEMENTS 00320405 00330405 |
|||
| logical | :: | AVB | ||||
| character | :: | B1VK*1 | ||||
| character | :: | B381K(4)*38 | ||||
| character | :: | B4VK*4 | ||||
| character | :: | B5VK*5 | SPECIFICATION STATEMENTS 00320405 00330405 |
|||
| character | :: | B8VK*8 | SPECIFICATION STATEMENTS 00320405 00330405 |
|||
| logical | :: | BVB | ||||
| logical | :: | CVB | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00380405 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00380405 |