From 22786d89e41434e29bfce56b6abd2c860228e223 Mon Sep 17 00:00:00 2001
From: peter klausler <pklausler@nvidia.com>
Date: Tue, 3 Jul 2018 16:17:52 -0700
Subject: [PATCH] [flang] Fix issue flang-compiler/f18#113.

Original-commit: flang-compiler/f18@835e51b6e6e4030a26398f4c0e550d7baad13aa9
Reviewed-on: https://github.com/flang-compiler/f18/pull/117
Tree-same-pre-rewrite: false
---
 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 31758ce..e6ccce7 100644
--- a/flang/lib/parser/grammar.h
+++ b/flang/lib/parser/grammar.h
@@ -3123,7 +3123,7 @@ TYPE_PARSER("INTRINSIC" >> maybe("::"_tok) >>
 // R1520 function-reference -> procedure-designator ( [actual-arg-spec-list] )
 TYPE_CONTEXT_PARSER("function reference"_en_US,
     construct<FunctionReference>(construct<Call>(Parser<ProcedureDesignator>{},
-        parenthesized(optionalList(actualArgSpec)))))
+        parenthesized(optionalList(actualArgSpec)))) / !"["_tok)
 
 // R1521 call-stmt -> CALL procedure-designator [( [actual-arg-spec-list] )]
 TYPE_PARSER(
-- 
2.7.4