flang/test/Preprocessing/parse-preprocessed.F

   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!"
  14 c     Some irrelevant comment that's only valid in fixed-form
  15       END PROGRAM