================
@@ -777,6 +777,15 @@ void Flang::ConstructJob(Compilation &C, const JobAction
&JA,
addFortranDialectOptions(Args, CmdArgs);
+ // 'flang -E' always produces output that is suitable for use as fixed form
+ // Fortran. However it is only valid free form source if the original is also
+ // free form.
+ if (InputType == types::TY_PP_Fortran &&
+ !Args.hasArg(options::OPT_ffixed_form) &&
+ !Args.hasArg(options::OPT_ffree_form)) {
----------------
macurtis-amd wrote:
Updated to use getLastArg
https://github.com/llvm/llvm-project/pull/117563
_______________________________________________
cfe-commits mailing list
cfe-commits@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits
