From 058fa829fbb4217e014ce401a0bea7869ba37cd8 Mon Sep 17 00:00:00 2001
From: peter klausler <pklausler@nvidia.com>
Date: Mon, 16 Apr 2018 09:43:22 -0700
Subject: [PATCH] [flang] fix misrecognition of a bounds-spec-list or
 bound-remapping-list in a pointer-assignment-stmt

Original-commit: flang-compiler/f18@32148441f5e8a500648c61709c50c8530d2395db
Reviewed-on: https://github.com/flang-compiler/f18/pull/56
---
 flang/lib/parser/grammar.h | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/flang/lib/parser/grammar.h b/flang/lib/parser/grammar.h
index ae6f678..91e99a9 100644
--- a/flang/lib/parser/grammar.h
+++ b/flang/lib/parser/grammar.h
@@ -1617,7 +1617,8 @@ TYPE_PARSER(
 
 // R912 part-ref -> part-name [( section-subscript-list )] [image-selector]
 TYPE_PARSER(construct<PartRef>{}(name,
-    defaulted(parenthesized(nonemptyList(Parser<SectionSubscript>{}))),
+    defaulted(
+        parenthesized(nonemptyList(Parser<SectionSubscript>{})) / !"=>"_tok),
     maybe(Parser<ImageSelector>{})))
 
 // R913 structure-component -> data-ref
-- 
2.7.4