xref: /llvm-project/flang/test/Preprocessing/parse-preprocessed.F (revision ad2e830fe2f791ef37faa2238caed0a73e0cc51d)
1! Verify that the output from `-E` is valid fixed-form source. See
2! https://bugs.llvm.org/show_bug.cgi?id=50993.
3
4! RUN: %flang_fc1 -E %s 2>&1 | %flang_fc1 -fsyntax-only -ffixed-form 2>&1 | FileCheck %s --allow-empty
5
6! CHECK-NOT: error
7! CHECK-NOT: warning
8
9! https://bugs.llvm.org/show_bug.cgi?id=51219
10! CHECK-NOT: Character in fixed-form label field must be a digit
11
12      PROGRAM HELLO
13        write(*, *), "hello, world!"
14c     Some irrelevant comment that's only valid in fixed-form
15      END PROGRAM
16