FM718 Program

00080718 1978 FORTRAN COMPILER VALIDATION SYSTEM 00090718 VERSION 2.1 00100718 00110718 00120718 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00130718 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00140718 SOFTWARE STANDARDS VALIDATION GROUP 00150718 BUILDING 225 RM A266 00160718 GAITHERSBURG, MD 20899 00170718 00180718 00190718 00200718 BE* **** BBCCOMNT *****00210718 SPECIFICATION STATEMENTS 00250718 00260718 INITIALIZE SECTION 00380718 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460718 FOR IDENTIFYING THE TEST ENVIRONMENT 00470718 00480718 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490718 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500718 Z03 ZPROG = 'PROGRAM NAME' 00510718 Z04 ZDATE = 'DATE OF TEST' 00520718 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530718 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540718 Z07 ZNAME = 'NAME OF USER' 00550718 Z08 ZTAPE = 'TAPE OWNER/ID' 00560718 Z09 ZTAPED = 'DATE TAPE COPIED' 00570718 00580718 00860718 WRITE REPORT TITLE 00870718 00880718 WRITE DETAIL REPORT HEADERS 00970718 00980718 WRITE OUT TEST SUMMARY 06000718 06010718 WRITE OUT REPORT FOOTINGS 06130718 06140718 FORMATS FOR TEST DETAIL LINES 06220718 06230718 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06430718 06440718 FORMAT STATEMENTS FOR PAGE HEADERS 06580718 06590718 06720718 FORMAT STATEMENTS FOR REPORT FOOTINGS 06730718 06740718 06790718 FORMAT STATEMENTS FOR RUN SUMMARY 06800718 06810718


Calls

program~~fm718~~CallsGraph program~fm718 FM718 27 27 program~fm718->27

Contents


Variables

Type AttributesNameInitial
logical, parameter:: LPN001 = .TRUE.
logical, parameter:: LPN002 = .FALSE.
logical, parameter:: LPN003 = .TRUE.
logical, parameter:: LPN004 = .FALSE.
logical :: LVCOMP
logical :: LVCORR
logical :: LVN001
character :: REMRKS*31
character :: ZCOMPL*20
character :: ZDATE*17
character :: ZNAME*20
character :: ZPROG*5
character :: ZPROJ*13
character :: ZTAPE*10
character :: ZTAPED*13
character :: ZVERS*13
character :: ZVERSD*17