From 2db73970bd5264c36b01ed74cb1d0f37966daf4c Mon Sep 17 00:00:00 2001
From: peter klausler <pklausler@nvidia.com>
Date: Mon, 16 Apr 2018 09:39:45 -0700
Subject: [PATCH] [flang] fix misrecogition of actual argument "a==b" as
 keyword "a=" and value "=b"

Original-commit: flang-compiler/f18@52b18374194742b62d906ca4ee07ef09755c672e
Reviewed-on: https://github.com/flang-compiler/f18/pull/57
---
 flang/lib/parser/grammar.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flang/lib/parser/grammar.h b/flang/lib/parser/grammar.h
index 91e99a9..8512e40 100644
--- a/flang/lib/parser/grammar.h
+++ b/flang/lib/parser/grammar.h
@@ -3415,7 +3415,7 @@ TYPE_PARSER(construct<ProcedureDesignator>{}(Parser<ProcComponentRef>{}) ||
 
 // R1523 actual-arg-spec -> [keyword =] actual-arg
 TYPE_PARSER(
-    construct<ActualArgSpec>{}(maybe(keyword / "="), Parser<ActualArg>{}))
+    construct<ActualArgSpec>{}(maybe(keyword / "=" / !"="_ch), Parser<ActualArg>{}))
 
 // R1524 actual-arg ->
 //         expr | variable | procedure-name | proc-component-ref |
-- 
2.7.4