From ddb7359e24ffb85518580ee3149a7a867349f9d5 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Wed, 24 Apr 2024 10:05:54 -0400
Subject: [PATCH] continue parsing after errors in Data Division
---
gcc/cobol/parse.y | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y
index 33333c911490..2c490aae24d7 100644
--- a/gcc/cobol/parse.y
+++ b/gcc/cobol/parse.y
@@ -920,7 +920,9 @@ programs: program
program: cdf_empty id_div options_para env_div data_div
{
- if( ! data_division_ready() ) YYERROR;
+ if( ! data_division_ready() ) {
+ mode_syntax_only(procedure_div_e);
+ }
current_division = procedure_div_e;
}
procedure_div
--
GitLab