diff options
| author | Marek Polacek <polacek@redhat.com> | 2018-05-10 18:33:22 +0000 |
|---|---|---|
| committer | Marek Polacek <mpolacek@gcc.gnu.org> | 2018-05-10 18:33:22 +0000 |
| commit | 4c35d09956290adf5eb10a7f65351c192d869352 (patch) | |
| tree | 91680c562e1748909780005e5c27a2cb0ad0ba19 /gcc/fortran/options.c | |
| parent | 79e7b1fe3290f351f178dafee4b3df4ece61ba9c (diff) | |
| download | gcc-4c35d09956290adf5eb10a7f65351c192d869352.zip gcc-4c35d09956290adf5eb10a7f65351c192d869352.tar.gz gcc-4c35d09956290adf5eb10a7f65351c192d869352.tar.bz2 | |
re PR fortran/85735 (f951 crashes on empty input)
PR fortran/85735
* options.c (gfc_post_options): Set main_input_filename.
From-SVN: r260120
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 1405f1c..3c17a58 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -313,6 +313,7 @@ gfc_post_options (const char **pfilename) if (gfc_current_form == FORM_UNKNOWN) { gfc_current_form = FORM_FREE; + main_input_filename = filename; gfc_warning_now (0, "Reading file %qs as free form", (filename[0] == '\0') ? "<stdin>" : filename); } |