diff options
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); } |