Skip to content

Commit 8b478ec

Browse files
fix: warning messages involved with MOVE statements
1 parent 15111da commit 8b478ec

File tree

2 files changed

+1
-8
lines changed

2 files changed

+1
-8
lines changed

cobj/typeck.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4877,7 +4877,7 @@ int validate_move(cb_tree src, cb_tree dst, size_t is_value) {
48774877
if (is_value) {
48784878
cb_error_x(loc, _("Invalid VALUE clause"));
48794879
} else {
4880-
// cb_error_x (loc, _("Invalid MOVE statement"));
4880+
cb_error_x(loc, _("Invalid MOVE statement"));
48814881
return 0;
48824882
}
48834883
return -1;

tests/syntax.src/move.at

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,6 @@
3535
# 5) DONE
3636

3737
AT_SETUP([MOVE SPACE TO numeric or numeric-edited item])
38-
AT_CHECK([${SKIP_TEST}])
3938

4039
AT_DATA([prog.cob], [
4140
IDENTIFICATION DIVISION.
@@ -61,7 +60,6 @@ AT_CLEANUP
6160
# 6) DONE
6261

6362
AT_SETUP([MOVE ZERO TO alphabetic item])
64-
AT_CHECK([${SKIP_TEST}])
6563

6664
AT_DATA([prog.cob], [
6765
IDENTIFICATION DIVISION.
@@ -87,7 +85,6 @@ AT_CLEANUP
8785
# 8) TODO
8886

8987
AT_SETUP([MOVE alphabetic TO x])
90-
AT_CHECK([${SKIP_TEST}])
9188

9289
AT_DATA([prog.cob], [
9390
IDENTIFICATION DIVISION.
@@ -143,7 +140,6 @@ AT_CHECK([${COMPILE_ONLY} prog.cob], [0])
143140
AT_CLEANUP
144141

145142
AT_SETUP([MOVE alphanumeric-edited TO x])
146-
AT_CHECK([${SKIP_TEST}])
147143

148144
AT_DATA([prog.cob], [
149145
IDENTIFICATION DIVISION.
@@ -173,7 +169,6 @@ prog.cob:17: Error: Invalid MOVE statement
173169
AT_CLEANUP
174170

175171
AT_SETUP([MOVE numeric (integer) TO x])
176-
AT_CHECK([${SKIP_TEST}])
177172

178173
AT_DATA([prog.cob], [
179174
IDENTIFICATION DIVISION.
@@ -202,7 +197,6 @@ AT_CHECK([${COMPILE_ONLY} prog.cob], [1], ,
202197
AT_CLEANUP
203198

204199
AT_SETUP([MOVE numeric (non-integer) TO x])
205-
AT_CHECK([${SKIP_TEST}])
206200

207201
AT_DATA([prog.cob], [
208202
IDENTIFICATION DIVISION.
@@ -233,7 +227,6 @@ prog.cob:15: Error: Invalid MOVE statement
233227
AT_CLEANUP
234228

235229
AT_SETUP([MOVE numeric-edited TO x])
236-
AT_CHECK([${SKIP_TEST}])
237230

238231
AT_DATA([prog.cob], [
239232
IDENTIFICATION DIVISION.

0 commit comments

Comments
 (0)