[flang] fix misrecognition of a bounds-spec-list or bound-remapping-list in a pointer...

Original-commit: flang-compiler/f18@32148441f5e8a500648c61709c50c8530d2395db
Reviewed-on: https://github.com/flang-compiler/f18/pull/56

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