xxx

OCamlPro · Jan 31, 2024 · 8edcb71 · 8edcb71
1 parent 33ff630
commit 8edcb71
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/cobc/codegen.c b/cobc/codegen.c
@@ -4365,8 +4365,6 @@ cb_prof_procedure_division (struct cb_program *program,
 			    int source_line)
 {
 	/* invariant: program always has index 0 */
-	if (program->procedure_list != NULL){ exit(3); }
-
 	procedure_list_add (
 		program,
 		COB_PROF_PROCEDURE_MODULE,