From 83a3fccb5310a6e1b821015721041b47be63e548 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Mon, 13 May 2024 14:45:21 -0400
Subject: [PATCH] accept blanks after ">>" in check_source_format_directive
---
gcc/cobol/lexio.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/cobol/lexio.cc b/gcc/cobol/lexio.cc
index 6014b253d6c2..ca41dca87a3d 100644
--- a/gcc/cobol/lexio.cc
+++ b/gcc/cobol/lexio.cc
@@ -340,7 +340,7 @@ check_source_format_directive( filespan_t& mfile ) {
if( ! (p < mfile.eol && p[1] == *p ) ) return;
const char pattern[] =
- ">>source[[:blank:]]+"
+ ">>[[:blank:]]*source[[:blank:]]+"
"(format[[:blank:]]+)?"
"(is[[:blank:]]+)?"
"(fixed|free)";
--
GitLab