[flang][nfc] Add a regression test for #50993

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.

Differential Revision: https://reviews.llvm.org/D107260
This commit is contained in:
Andrzej Warzynski 2021-08-02 10:22:08 +00:00
parent 245f2ee647
commit ad2e830fe2

View File

@ -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