feat(cobc): 添え字範囲外エラーチェックを独立

feat(cobc): Independent check subscript out of bounds

これまで-debugオプションの一部であった範囲外エラーチェックを独立して設定可能とした

Author: n-isaka

cobc/cobc.c

@@ -2327,6 +2327,11 @@ main (int argc, char *argv[])
 	/* Process command line arguments */
 	iargs = process_command_line (argc, argv);
 
+	/* Process config file options */
+	if (cb_enable_check_subscript_out_of_bounds) {
+		CB_EXCEPTION_ENABLE (COB_EC_BOUND_SUBSCRIPT) = 1;
+	}
+
 	/* Check the filename */
 	if (iargs == argc) {
 		fprintf (stderr, "cobc: No input files\n");

cobc/config.def

@@ -60,6 +60,7 @@ CB_CONFIG_BOOLEAN (cb_allow_is_in_sort_key_spec, "allow-is-in-sort-key-spec")
 CB_CONFIG_BOOLEAN (cb_allow_search_key_in_rhs, "allow-search-key-in-rhs")
 CB_CONFIG_BOOLEAN (cb_ignore_invalid_record_contains, "ignore-invalid-record-contains")
 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_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

@@ -148,3 +148,4 @@ allow-is-in-sort-key-spec:		no
 allow-search-key-in-rhs:		no
 ignore-invalid-record-contains:		no
 zero_division_error:			no
+enable-check-subscript-out-of-bounds:	yes

config/default-jp.conf

@@ -148,3 +148,4 @@ allow-is-in-sort-key-spec:		no
 allow-search-key-in-rhs:		no
 ignore-invalid-record-contains:		no
 zero_division_error:			yes
+enable-check-subscript-out-of-bounds:	yes

config/default.conf

@@ -148,3 +148,4 @@ allow-is-in-sort-key-spec:		no
 allow-search-key-in-rhs:		no
 ignore-invalid-record-contains:		no
 zero_division_error:			no
+enable-check-subscript-out-of-bounds:	no

config/jp-compat.conf

@@ -23,6 +23,7 @@ allow-is-in-sort-key-spec:		yes
 allow-search-key-in-rhs:		yes
 ignore-invalid-record-contains:		yes
 zero_division_error:			yes
+enable-check-subscript-out-of-bounds:	yes
 
 # Value: 'any', 'fatal', 'never'
 abort-on-io-exception: 			fatal