[flang] Fix recent regression on NAG tests found during pre-merge testing

Original-commit: flang-compiler/f18@1fc6d00ac8eaaf952bfb0dd2fe3b14d9d104496f
Reviewed-on: https://github.com/flang-compiler/f18/pull/183
Tree-same-pre-rewrite: false

diff --git a/flang/lib/parser/stmt-parser.h b/flang/lib/parser/stmt-parser.h
index 6e3d8d1..9bee606 100644 (file)
--- a/flang/lib/parser/stmt-parser.h
+++ b/flang/lib/parser/stmt-parser.h
@@ -27,7 +27,7 @@ namespace Fortran::parser {
 // end-of-statement markers.
 
 // R611 label -> digit [digit]...
-constexpr auto label{space >> digitString / spaceCheck};
+constexpr auto label{space >> digitString / !"_.edq"_ch};
 
 template<typename PA> inline constexpr auto unterminatedStatement(const PA &p) {
   return skipStuffBeforeStatement >>