fm506.for
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 334 行 · 第 1/2 页
FOR
334 行
IVTOTL = 4 00870508
ZPROG = 'FM506' 00880508
CBB** ********************** BBCHED0A **********************************00890508
C**** 00900508
C**** WRITE REPORT TITLE 00910508
C**** 00920508
WRITE (I02, 90002) 00930508
WRITE (I02, 90006) 00940508
WRITE (I02, 90007) 00950508
WRITE (I02, 90008) ZVERS, ZVERSD 00960508
WRITE (I02, 90009) ZPROG, ZPROG 00970508
WRITE (I02, 90010) ZDATE, ZCOMPL 00980508
CBE** ********************** BBCHED0A **********************************00990508
C***** 01000508
WRITE(NUVI,26200) 01010508
26200 FORMAT( 1H , / 39H BLKD3 - (262) BLOCK DATA SUBPROGRAM --// 01020508
1 36H VARYING CHARACTER VARIABLE LENGTHS// 01030508
2 15H ANS REF. - 16) 01040508
CBB** ********************** BBCHED0B **********************************01050508
C**** WRITE DETAIL REPORT HEADERS 01060508
C**** 01070508
WRITE (I02,90004) 01080508
WRITE (I02,90004) 01090508
WRITE (I02,90013) 01100508
WRITE (I02,90014) 01110508
WRITE (I02,90015) IVTOTL 01120508
CBE** ********************** BBCHED0B **********************************01130508
C***** 01140508
CT001* TEST 1 3 CHARACTER VARIABLE 01150508
IVTNUM = 1 01160508
IVCOMP = 0 01170508
IF (C3XVK.EQ.'123') IVCOMP = 1 01180508
IF (IVCOMP - 1) 20010, 10010, 20010 01190508
10010 IVPASS = IVPASS + 1 01200508
WRITE (NUVI, 80002) IVTNUM 01210508
GO TO 0011 01220508
20010 IVFAIL = IVFAIL + 1 01230508
CVCORR = '123' 01240508
WRITE (NUVI, 80018) IVTNUM, C3XVK, CVCORR 01250508
0011 CONTINUE 01260508
CT002* TEST 2 2 CHARACTER VARIABLE 01270508
IVTNUM = 2 01280508
IVCOMP = 0 01290508
IF (D2XVK.EQ.'GH') IVCOMP = 1 01300508
IF (IVCOMP - 1) 20020, 10020, 20020 01310508
10020 IVPASS = IVPASS + 1 01320508
WRITE (NUVI, 80002) IVTNUM 01330508
GO TO 0021 01340508
20020 IVFAIL = IVFAIL + 1 01350508
CVCORR = 'GH' 01360508
WRITE (NUVI, 80018) IVTNUM, D2XVK, CVCORR 01370508
0021 CONTINUE 01380508
CT003* TEST 3 5 CHARACTER VARIABLE 01390508
IVTNUM = 3 01400508
IVCOMP = 0 01410508
IF (E5XVK.EQ.'LONGS') IVCOMP = 1 01420508
IF (IVCOMP - 1) 20030, 10030, 20030 01430508
10030 IVPASS = IVPASS + 1 01440508
WRITE (NUVI, 80002) IVTNUM 01450508
GO TO 0031 01460508
20030 IVFAIL = IVFAIL + 1 01470508
CVCORR = 'LONGS' 01480508
WRITE (NUVI, 80018) IVTNUM, E5XVK, CVCORR 01490508
0031 CONTINUE 01500508
CT004* TEST 4 3 CHARACTER VARIABLE 01510508
IVTNUM = 4 01520508
IVCOMP = 0 01530508
IF (F3XVK.EQ.'END') IVCOMP = 1 01540508
IF (IVCOMP - 1) 20040, 10040, 20040 01550508
10040 IVPASS = IVPASS + 1 01560508
WRITE (NUVI, 80002) IVTNUM 01570508
GO TO 0041 01580508
20040 IVFAIL = IVFAIL + 1 01590508
CVCORR = 'END' 01600508
WRITE (NUVI, 80018) IVTNUM, F3XVK, CVCORR 01610508
0041 CONTINUE 01620508
C***** 01630508
CBB** ********************** BBCSUM0 **********************************01640508
C**** WRITE OUT TEST SUMMARY 01650508
C**** 01660508
IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01670508
WRITE (I02, 90004) 01680508
WRITE (I02, 90014) 01690508
WRITE (I02, 90004) 01700508
WRITE (I02, 90020) IVPASS 01710508
WRITE (I02, 90022) IVFAIL 01720508
WRITE (I02, 90024) IVDELE 01730508
WRITE (I02, 90026) IVINSP 01740508
WRITE (I02, 90028) IVTOTN, IVTOTL 01750508
CBE** ********************** BBCSUM0 **********************************01760508
CBB** ********************** BBCFOOT0 **********************************01770508
C**** WRITE OUT REPORT FOOTINGS 01780508
C**** 01790508
WRITE (I02,90016) ZPROG, ZPROG 01800508
WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01810508
WRITE (I02,90019) 01820508
CBE** ********************** BBCFOOT0 **********************************01830508
CBB** ********************** BBCFMT0A **********************************01840508
C**** FORMATS FOR TEST DETAIL LINES 01850508
C**** 01860508
80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01870508
80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01880508
80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01890508
80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01900508
80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01910508
1I6,/,1H ,15X,10HCORRECT= ,I6) 01920508
80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01930508
1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01940508
80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01950508
1A21,/,1H ,16X,10HCORRECT= ,A21) 01960508
80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 01970508
80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 01980508
80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 01990508
80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02000508
80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02010508
80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02020508
80050 FORMAT (1H ,48X,A31) 02030508
CBE** ********************** BBCFMT0A **********************************02040508
CBB** ********************** BBCFMAT1 **********************************02050508
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02060508
C**** 02070508
80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02080508
1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02090508
80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02100508
80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02110508
80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02120508
80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02130508
80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02140508
80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02150508
80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02160508
11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02170508
21H(,F12.5,2H, ,F12.5,1H)) 02180508
CBE** ********************** BBCFMAT1 **********************************02190508
CBB** ********************** BBCFMT0B **********************************02200508
C**** FORMAT STATEMENTS FOR PAGE HEADERS 02210508
C**** 02220508
90002 FORMAT (1H1) 02230508
90004 FORMAT (1H ) 02240508
90006 FORMAT (1H ,20X,46HNATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY)02250508
90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02260508
90008 FORMAT (1H ,21X,A13,A17) 02270508
90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02280508
90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02290508
90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02300508
1 7X,7HREMARKS,24X) 02310508
90014 FORMAT (1H ,46H----------------------------------------------, 02320508
1 33H---------------------------------) 02330508
90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02340508
C**** 02350508
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02360508
C**** 02370508
90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02380508
90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02390508
1 A13) 02400508
90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02410508
C**** 02420508
C**** FORMAT STATEMENTS FOR RUN SUMMARY 02430508
C**** 02440508
90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02450508
90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02460508
90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02470508
90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02480508
90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02490508
CBE** ********************** BBCFMT0B **********************************02500508
C***** 02510508
END 02520508
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?