diff --git a/cobc/codegen.c b/cobc/codegen.c
index 6e644493b..613675afb 100644
--- 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,