fm403.exp
来自「开放源码的编译器open watcom 1.6.0版的源代码」· EXP 代码 · 共 397 行 · 第 1/2 页
EXP
397 行
1
NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
FORTRAN COMPILER VALIDATION SYSTEM
VERSION 2.1 93/10/21*21.02.00
*FM403BEGIN* TEST RESULTS - FM403
TEST DATE*TIME= *NO DATE*TIME - COMPILER= *NONE SPECIFIED*
FMTRW - (020) FORMATTED DATA TRANSFER
SUBSET REFS - 12.9.5.2 13.3 13.5.9
TEST PASS/FAIL DISPLAYED RESULTS REMARKS
-------------------------------------------------------------------------------
THIS PROGRAM HAS 59 TESTS
1 INSPECT 2 COMPUTED LINES EXPECTED
COMPUTED=
1010101010101010101099999999988888888
7777777666666555554444333221
CORRECT: CORRESPONDING LINE MUST MATCH
1010101010101010101099999999988888888
7777777666666555554444333221
2 INSPECT 9 COMPUTED LINES EXPECTED
COMPUTED=
AAA BBB CCC
DDD EEE FFF
GGG HHH III
JJJ KKK LLL
MMM NNN OOO
PPP QQQ RRR
SSS TTT UUU
VVV WWW XXX
YYY ZZZ
CORRECT: CORRESPONDING LINE MUST MATCH
AAA BBB CCC
DDD EEE FFF
GGG HHH III
JJJ KKK LLL
MMM NNN OOO
PPP QQQ RRR
SSS TTT UUU
VVV WWW XXX
YYY ZZZ
3 INSPECT
COMPUTED=
= + - * / ( ) , . '
CORRECT=
= + - * / ( ) , . '
4 INSPECT SLASH DESCRIPTOR
FORMAT(14H SKIP 1 LINE /)
ONE BLANK LINE SHOULD APPEAR ABOVE
1
TEST PASS/FAIL DISPLAYED RESULTS REMARKS
-------------------------------------------------------------------------------
5 INSPECT
FORMAT(15H SKIP 2 LINES //)
TWO BLANK LINES SHOULD APPEAR ABOVE
6 INSPECT
FORMAT(16H SKIP 3 LINES ///)
THREE BLANK LINES SHOULD APPEAR ABOVE
7 INSPECT IMBEDDED SLASHES
1 BLANK LINE SHOULD APPEAR BELOW
2 BLANK LINES SHOULD APPEAR BELOW
3 BLANK LINES SHOULD APPEAR BELOW
0 BLANK LINES SHOULD APPEAR BELOW
END IMBEDDED SLASHES TEST
8 INSPECT DOUBLE SPACE
1 BLANK LINE SHOULD APPEAR BELOW
0 END DOUBLE SPACE TEST
9 INSPECT OVERPRINT
!FIRST PRINT LINE! OVER
+ P R I N T !SECOND PRINT LINE!
10 INSPECT PAGE ADVANCE
THIS SHOULD BE THE LAST LINE ON THIS PAGE
1 NEW PAGE: END OF VERTICAL SPACING TESTS
TEST PASS/FAIL DISPLAYED RESULTS REMARKS
-------------------------------------------------------------------------------
11 INSPECT
COMPUTED=
999
CORRECT=
999
12 INSPECT
COMPUTED=
5555 4444
CORRECT=
5555 4444
13 INSPECT
COMPUTED=
666 777777 8
CORRECT=
666 777777 8
14 INSPECT
COMPUTED=
333333111112222222255555444444444444
CORRECT=
333333111112222222255555444444444444
15 INSPECT
COMPUTED=
7.7123456.7
CORRECT=
7.7123456.7
16 INSPECT
COMPUTED=
8.889.9997.123456
CORRECT=
8.889.9997.123456
17 INSPECT
COMPUTED=
5.44446.5555533.133.133.133.1444.1
CORRECT=
5.44446.5555533.133.133.133.1444.1
18 INSPECT
COMPUTED=
5555.15555.1 66666.166666.1 44.22
CORRECT=
5555.15555.1 66666.166666.1 44.22
19 INSPECT
COMPUTED=
2.12.12.12.12.1666.3334.3334.3334.333
CORRECT=
2.12.12.12.12.1666.3334.3334.3334.333
20 INSPECT LEADING PLUS SIGN/ZERO OPTIONAL
COMPUTED=
-0.1E+01 0.22E-01
CORRECT: 2 CORRECT ANSWERS POSSIBLE
-0.1E+01 +0.22E-01
-0.1+001 +0.22-001
1
TEST PASS/FAIL DISPLAYED RESULTS REMARKS
-------------------------------------------------------------------------------
21 INSPECT LEADING PLUS SIGN/ZERO OPTIONAL
COMPUTED=
0.333E+02 0.4444E+03
CORRECT: 2 CORRECT ANSWERS POSSIBLE
+0.333E+02 +0.4444E+03
+0.333+002 +0.4444+003
22 INSPECT LEADING PLUS SIGN/ZERO OPTIONAL
COMPUTED=
-0.55555E-03 0.666666E+00
CORRECT: 2 CORRECT ANSWERS POSSIBLE
-0.55555E-03 +0.666666E+00
-0.55555-003 +0.666666+000
23 INSPECT LEADING PLUS SIGN/ZERO OPTIONAL
COMPUTED=
0.9876543E+12
CORRECT: 2 CORRECT ANSWERS POSSIBLE
+0.9876543E+12
+0.9876543+012
24 INSPECT
COMPUTED=
T F F T T FTF
CORRECT=
T F F T T FTF
25 INSPECT
COMPUTED:
-9.9-9.9-9.9-9.9
CORRECT:
-9.9-9.9-9.9-9.9
26 INSPECT
COMPUTED:
9999999999
CORRECT:
9999999999
27 INSPECT LEADING PLUS SIGN/ZERO OPTIONAL
COMPUTED: 3 COMPUTED LINES EXPECTED
0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
CORRECT: EACH RESULT LINE SHOULD EQUAL
0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
28 INSPECT
COMPUTED:
TF
CORRECT:
TF
1
TEST PASS/FAIL DISPLAYED RESULTS REMARKS
-------------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?