[flang-commits] [clang] [flang] [Flang] Adding -ffree-line-length-<value> flag (PR #192941)

[Jean-Didier PAILLEUX via flang-commits]

================
@@ -568,6 +569,8 @@ void Prescanner::SkipToEndOfLine() {
 bool Prescanner::MustSkipToEndOfLine() const {
   if (inFixedForm_ && column_ > fixedFormColumnLimit_ && !tabInCurrentLine_) {
     return true; // skip over ignored columns in right margin (73:80)
+  } else if (!inFixedForm_ && column_ > freeFormColumnLimit_) {
----------------
JDPailleux wrote:

Hmm Ok

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