[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

diff --git a/flang/lib/parser/grammar.h b/flang/lib/parser/grammar.h
index 91e99a9..8512e40 100644 (file)
--- 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 |