16 lines · plain
1! Verify that the output from `-E` is valid fixed-form source. See2! 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-empty5 6! CHECK-NOT: error7! CHECK-NOT: warning8 9! https://bugs.llvm.org/show_bug.cgi?id=5121910! CHECK-NOT: Character in fixed-form label field must be a digit11 12 PROGRAM HELLO13 write(*, *), "hello, world!"14c Some irrelevant comment that's only valid in fixed-form15 END PROGRAM16