fm506.for
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 334 行 · 第 1/2 页
FOR
334 行
PROGRAM FM506
C***********************************************************************00010506
C***** FORTRAN 77 00020506
C***** FM506 00030506
C***** BLKD3 - (262) 00040506
C***** USES BLOCK DATA SUBPROGRAM AN507 AND SUBROUTINE SN508 00050506
C***********************************************************************00060506
C***** TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00070506
C***** VARYING CHARACTER VARIABLE LENGTHS 16 00080506
C***** THIS SEGMENT USES SEGMENTS 704 AND 705, BLOCK DATA PROGRAM 00090506
C***** AN507 AND SUBROUTINE SN508 00100506
C***** 00110506
CBB** ********************** BBCCOMNT **********************************00120506
C**** 00130506
C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140506
C**** VERSION 2.1 00150506
C**** 00160506
C**** 00170506
C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180506
C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190506
C**** SOFTWARE STANDARDS VALIDATION GROUP 00200506
C**** BUILDING 225 RM A266 00210506
C**** GAITHERSBURG, MD 20899 00220506
C**** 00230506
C**** 00240506
C**** 00250506
CBE** ********************** BBCCOMNT **********************************00260506
C***** 00270506
C***** S P E C I F I C A T I O N S SEGMENT 262 00280506
C***** 00290506
C***** CHARACTER*3 C3XVK, F3XVK 00300506
C***** CHARACTER*2 D2XVK 00310506
C***** CHARACTER*5 E5XVK 00320506
C***** COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506
C***** 00340506
NUVI = 4 00350506
C***** 00360506
CALL SN508(NUVI) 00370506
C***** 00380506
C***** END OF TEST SEGMENT 262 00390506
STOP 00400506
END 00410506
C***********************************************************************00010507
C***** FORTRAN 77 00020507
C***** FM507 BDS3 - (704) 00030507
C***** BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507
C***********************************************************************00050507
C***** 00060507
C***** GENERAL PURPOSE 00070507
C***** THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080507
C***** TO BE RUN WITH TEST SEGMENT FM506 (262) 00090507
C***** THIS SEGMENT WILL TEST CHARACTER VARIABLES WITH VARYING 00100507
C***** LENGHTS IN COMMON AREAS 00110507
C***** 00120507
CBB** ********************** BBCCOMNT **********************************00130507
C**** 00140507
C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150507
C**** VERSION 2.1 00160507
C**** 00170507
C**** 00180507
C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190507
C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200507
C**** SOFTWARE STANDARDS VALIDATION GROUP 00210507
C**** BUILDING 225 RM A266 00220507
C**** GAITHERSBURG, MD 20899 00230507
C**** 00240507
C**** 00250507
C**** 00260507
CBE** ********************** BBCCOMNT **********************************00270507
BLOCK DATA AN507 00280507
C***** 00290507
CHARACTER*3 C3XVK, F3XVK 00300507
CHARACTER*2 D2XVK 00310507
CHARACTER*5 E5XVK 00320507
COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330507
DATA C3XVK, D2XVK, E5XVK, F3XVK /'123', 'GH', 'LONGS', 'END'/ 00340507
C***** 00350507
END 00360507
C***********************************************************************00010508
C***** FORTRAN 77 00020508
C***** FM508 BLKD3Q - (705) 00030508
C***** THIS SUBROUTINE IS CALLED BY FM506 00040508
C***********************************************************************00050508
C***** 00060508
C***** GENERAL PURPOSE 00070508
C***** THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 262 00080508
C***** THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090508
C***** IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED CHARACTER 00100508
C***** VARIABLES INTERMIXED WITH DIFFERENT LENGTHS 00110508
C***** 00120508
SUBROUTINE SN508 (NWVI) 00130508
C***** 00140508
CBB** ********************** BBCCOMNT **********************************00150508
C**** 00160508
C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170508
C**** VERSION 2.1 00180508
C**** 00190508
C**** 00200508
C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210508
C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220508
C**** SOFTWARE STANDARDS VALIDATION GROUP 00230508
C**** BUILDING 225 RM A266 00240508
C**** GAITHERSBURG, MD 20899 00250508
C**** 00260508
C**** 00270508
C**** 00280508
CBE** ********************** BBCCOMNT **********************************00290508
CHARACTER*3 C3XVK, F3XVK 00300508
CHARACTER*2 D2XVK 00310508
CHARACTER*5 E5XVK, CVCORR 00320508
COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330508
CBB** ********************** BBCINITA **********************************00340508
C**** SPECIFICATION STATEMENTS 00350508
C**** 00360508
CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370508
1 ZNAME*20, ZTAPE*10, ZPROJ*13, ZTAPED*13!, REMRKS*31 00380508
CBE** ********************** BBCINITA **********************************00390508
CBB** ********************** BBCINITB **********************************00400508
C**** INITIALIZE SECTION 00410508
DATA ZVERS, ZVERSD, ZDATE 00420508
1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00430508
DATA ZCOMPL, ZNAME, ZTAPE 00440508
1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450508
DATA ZPROJ, ZTAPED, ZPROG 00460508
1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470508
C DATA REMRKS /' '/ 00480508
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490508
C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500508
C**** 00510508
CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520508
CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530508
CZ03 ZPROG = 'PROGRAM NAME' 00540508
CZ04 ZDATE = 'DATE OF TEST' 00550508
CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00560508
CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00570508
CZ07 ZNAME = 'NAME OF USER' 00580508
CZ08 ZTAPE = 'TAPE OWNER/ID' 00590508
CZ09 ZTAPED = 'DATE TAPE COPIED' 00600508
C 00610508
IVPASS = 0 00620508
IVFAIL = 0 00630508
IVDELE = 0 00640508
IVINSP = 0 00650508
IVTOTL = 0 00660508
IVTOTN = 0 00670508
ICZERO = 0 00680508
C 00690508
C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700508
I01 = 05 00710508
C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720508
I02 = 06 00730508
C 00740508
CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00750508
C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760508
CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770508
C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780508
C 00790508
CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00800508
C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810508
CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820508
C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830508
C 00840508
CBE** ********************** BBCINITB **********************************00850508
NUVI = I02 00860508
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?