From 7a6cf82a9f121bef94bdac070254af31efd0ea55 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Thu, 25 Apr 2024 11:36:41 -0400
Subject: [PATCH] lex inline comments in Data Division
---
gcc/cobol/scan.l | 2 ++
1 file changed, 2 insertions(+)
diff --git a/gcc/cobol/scan.l b/gcc/cobol/scan.l
index ab023df251f4..b2027b477efc 100644
--- a/gcc/cobol/scan.l
+++ b/gcc/cobol/scan.l
@@ -1091,6 +1091,8 @@ USE({SPC}FOR)? { return USE; }
LINKAGE{SECTION} { return LINKAGE_SECT; }
PROCEDURE{SPC}DIVISION { BEGIN(procedure_div); return PROCEDURE_DIV; }
+
+ [*]>.*$ // ignore inline comment
}
<numstr_state>{
--
GitLab