From cf8f173512579cb9ec3f7c5c6cca8e31e025d627 Mon Sep 17 00:00:00 2001
From: peter klausler <pklausler@nvidia.com>
Date: Mon, 18 Mar 2019 13:05:21 -0700
Subject: [PATCH] [flang] Final tweak before review

Original-commit: flang-compiler/f18@5dda7b2f658198b21a35edc295a488ebada84244
Reviewed-on: https://github.com/flang-compiler/f18/pull/339
Tree-same-pre-rewrite: false
---
 flang/lib/parser/prescan.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flang/lib/parser/prescan.cc b/flang/lib/parser/prescan.cc
index 2b3590d..16cb11e 100644
--- a/flang/lib/parser/prescan.cc
+++ b/flang/lib/parser/prescan.cc
@@ -398,7 +398,7 @@ bool Prescanner::NextToken(TokenSequence &tokens) {
       if (*at_ == '\n') {
         // Discard white space at the end of a line.
       } else if (!inPreprocessorDirective_ &&
-          (previous == '(' || *at_ == ')')) {
+          (previous == '(' || *at_ == '(' || *at_ == ')')) {
         // Discard white space before/after parentheses, unless in a
         // preprocessor directive.  This helps yield space-free contiguous
         // names for generic interfaces like OPERATOR( + ) and
-- 
2.7.4