[flang-commits] [flang] [flang] Accept C-style comments in label fields (PR #207012)

[Eugene Epshteyn via flang-commits]

================
@@ -1366,12 +1400,19 @@ const char *Prescanner::FixedFormContinuationLine(bool atNewline) {
   }
   tabInCurrentLine_ = false;
   char col1{*nextLine_};
+  int trailingSpaces{0};
+  for (int i{4}; i > 0 && nextLine_[i] == ' '; --i) {
+    ++trailingSpaces;
+  }
+  const char *afterCComment{SkipCComment(SkipWhiteSpace(nextLine_))};
+  bool CCommentAndSpaces{!HasTabInLabelField(nextLine_) && afterCComment &&
----------------
eugeneepshteyn wrote:

Please start the local variable name with lower case.

https://github.com/llvm/llvm-project/pull/207012