[PATCH] D107260: [flang][nfc] Add a regression test for #50993

[Andrzej Warzynski via Phabricator via llvm-commits]

awarzynski created this revision.
Herald added a reviewer: sscalpone.
awarzynski requested review of this revision.
Herald added a project: LLVM.
Herald added a subscriber: llvm-commits.

https://bugs.llvm.org/show_bug.cgi?id=50993 was effectively fixed in
https://reviews.llvm.org/D106727. This patch adds a regression
test specifically for the use case reported in 50993.


Repository:
  rG LLVM Github Monorepo

https://reviews.llvm.org/D107260

Files:
  flang/test/Preprocessing/parse-preprocessed.F


Index: flang/test/Preprocessing/parse-preprocessed.F
===================================================================
--- /dev/null
+++ flang/test/Preprocessing/parse-preprocessed.F
@@ -0,0 +1,15 @@
+! Verify that the output from `-E` is valid fixed-form source. See
+! https://bugs.llvm.org/show_bug.cgi?id=50993.
+
+! RUN: %flang_fc1 -E %s 2>&1 | %flang_fc1 -fsyntax-only -ffixed-form 2>&1 | FileCheck %s --allow-empty
+
+! CHECK-NOT: error
+! CHECK-NOT: warning
+
+! https://bugs.llvm.org/show_bug.cgi?id=51219
+! CHECK-NOT: Character in fixed-form label field must be a digit
+
+      PROGRAM HELLO
+        write(*, *), "hello, world!"
+c     Some irrelevant comment that's only valid in fixed-form
+      END PROGRAM


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D107260.363425.patch
Type: text/x-patch
Size: 726 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/llvm-commits/attachments/20210802/14e942e5/attachment.bin>