From 2b8ae840e677cda82b40178dc93db4dfa367617c Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Sat, 30 Dec 2023 12:43:32 -0500
Subject: [PATCH] accept EJECT in Data Division
---
gcc/cobol/scan.l | 1 +
1 file changed, 1 insertion(+)
diff --git a/gcc/cobol/scan.l b/gcc/cobol/scan.l
index 691800996183..6b62969d8123 100644
--- a/gcc/cobol/scan.l
+++ b/gcc/cobol/scan.l
@@ -990,6 +990,7 @@ USE([[:space:]]+FOR)? { return USE; }
DEPENDING { return DEPENDING; }
DESCENDING { return DESCENDING; }
DISPLAY { return DISPLAY; }
+ EJECT { return EJECT; }
EXTERNAL { return EXTERNAL; }
FALSE { return FALSE_kw; }
FROM { return FROM; }
--
GitLab