[flang] Add details to --help screen on default behaviour

Add a usage string and a defaults section that clarifies:
 * If no input files are given, f18 reads from stdin
 * If no input files are given, f18 dumps the parse tree.
 * The default behaviour is to exec F18_FC.
 * The fefault F18_FC setting is 'gfortran'

Adds a simple regression test which tests the top and tail of the help
screen and the exit status.

Depends on D84855

Differential Revision: https://reviews.llvm.org/D84856
This commit is contained in:
Richard Barton 2020-06-25 16:01:56 +01:00
parent dd5ea5674b
commit b068d19a15
2 changed files with 24 additions and 1 deletions

View File

@ -0,0 +1,9 @@
! RUN: %f18 -help 2>&1 | FileCheck %s
! RUN: %f18 --help 2>&1 | FileCheck %s
! RUN: %f18 -? 2>&1 | FileCheck %s
! CHECK: f18: LLVM Fortran compiler
! CHECK: -help print this again
! CHECK: Unrecognised options are passed through to the external compiler
! CHECK: set by F18_FC (see defaults).

View File

@ -605,6 +605,19 @@ int main(int argc, char *const argv[]) {
driver.byteswapio = true; // TODO: Pass to lowering, generate call
} else if (arg == "-help" || arg == "--help" || arg == "-?") {
llvm::errs()
<< "f18: LLVM Fortran compiler\n"
<< "\n"
<< "Usage: f18 [options] <input files>\n"
<< "\n"
<< "Defaults:\n"
<< " When invoked with input files, and no options to tell\n"
<< " it otherwise, f18 will unparse its input and pass that on to an\n"
<< " external compiler to continue the compilation.\n"
<< " The external compiler is specified by the F18_FC environment\n"
<< " variable. The default is 'gfortran'.\n"
<< " If invoked with no input files, f18 reads source code from\n"
<< " stdin and runs with -fdebug-measure-parse-tree -funparse.\n"
<< "\n"
<< "f18 options:\n"
<< " -Mfixed | -Mfree | -ffixed-form | -ffree-form force the "
"source form\n"
@ -638,7 +651,8 @@ int main(int argc, char *const argv[]) {
<< " -fget-symbols-sources\n"
<< " -v -c -o -I -D -U have their usual meanings\n"
<< " -help print this again\n"
<< "Other options are passed through to the compiler.\n";
<< "Unrecognised options are passed through to the external compiler\n"
<< "set by F18_FC (see defaults).\n";
return exitStatus;
} else if (arg == "-V") {
llvm::errs() << "\nf18 compiler (under development)\n";