Better guard for warnings about ignored collating sequences

OCamlPro · Oct 1, 2024 · ca1b299 · ca1b299
1 parent 6a777c4
commit ca1b299
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cobc/tree.c b/cobc/tree.c
@@ -4783,7 +4783,8 @@ validate_indexed_key_field (struct cb_file *f, struct cb_field *records,
 	}
 
 	/* check collating sequence is not ignored */
-	if (CB_TREE_CLASS (k) != CB_CLASS_ALPHANUMERIC) {
+	if (get_warn_opt_value (cb_warn_filler) != COBC_WARN_DISABLED
+	 && CB_TREE_CLASS (k) != CB_CLASS_ALPHANUMERIC) {
 		const char *source = "KEY";
 		cb_tree colseq = (cbak == NULL)
 			? f->collating_sequence_key