feat(cobc): COMPUTE文の文字列チェックを独立

feat(cobc): Independent check string on COMPUTE

これまで-debugオプションの一部であったCOMPUTE文中での文字列チェックをオプション化した。

Author: n-isaka

cobc/cobc.c

@@ -2331,6 +2331,10 @@ main (int argc, char *argv[])
 	if (cb_enable_check_subscript_out_of_bounds) {
 		CB_EXCEPTION_ENABLE (COB_EC_BOUND_SUBSCRIPT) = 1;
 	}
+	if (cb_enable_expect_compute_string_error) {
+		CB_EXCEPTION_ENABLE (COB_EC_DATA_INCOMPATIBLE) = 1;
+	}
+
 
 	/* Check the filename */
 	if (iargs == argc) {

cobc/config.def

@@ -62,6 +62,7 @@ CB_CONFIG_BOOLEAN (cb_ignore_invalid_record_contains, "ignore-invalid-record-con
 CB_CONFIG_BOOLEAN (cb_zero_division_error, "zero_division_error")
 CB_CONFIG_BOOLEAN (cb_enable_check_subscript_out_of_bounds, "enable-check-subscript-out-of-bounds")
 CB_CONFIG_BOOLEAN (cb_enable_expect_numeric_error, "enable-expect-numeric-error")
+CB_CONFIG_BOOLEAN (cb_enable_expect_compute_string_error, "enable-expect-compute-string-error")
 CB_CONFIG_SUPPORT (cb_author_paragraph, "author-paragraph")
 CB_CONFIG_SUPPORT (cb_memory_size_clause, "memory-size-clause")
 CB_CONFIG_SUPPORT (cb_multiple_file_tape_clause, "multiple-file-tape-clause")

config/default-en.conf

@@ -150,3 +150,4 @@ ignore-invalid-record-contains:		no
 zero_division_error:			no
 enable-check-subscript-out-of-bounds:	yes
 enable-expect-numeric-error:		yes
+enable-expect-compute-string-error:	yes

config/default-jp.conf

@@ -150,3 +150,4 @@ ignore-invalid-record-contains:		no
 zero_division_error:			yes
 enable-check-subscript-out-of-bounds:	yes
 enable-expect-numeric-error:		yes
+enable-expect-compute-string-error:	yes

config/default.conf

@@ -150,3 +150,4 @@ ignore-invalid-record-contains:		no
 zero_division_error:			no
 enable-check-subscript-out-of-bounds:	no
 enable-expect-numeric-error:		no
+enable-expect-compute-string-error:	no

config/jp-compat.conf

@@ -25,6 +25,7 @@ ignore-invalid-record-contains:		yes
 zero_division_error:			yes
 enable-check-subscript-out-of-bounds:	yes
 enable-expect-numeric-error:		yes
+enable-expect-compute-string-error:	yes
 
 # Value: 'any', 'fatal', 'never'
 abort-on-io-exception: 			fatal