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