diff options
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index c13e0579585..dc8dc3e7333 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -77,7 +77,7 @@ gfc_match_space (void) locus old_loc; int c; - if (gfc_current_file->form == FORM_FIXED) + if (gfc_current_form == FORM_FIXED) return MATCH_YES; old_loc = *gfc_current_locus (); @@ -337,7 +337,7 @@ gfc_match_strings (mstring * a) if (*p->mp == ' ') { /* Space matches 1+ whitespace(s). */ - if ((gfc_current_file->form == FORM_FREE) + if ((gfc_current_form == FORM_FREE) && gfc_is_whitespace (c)) continue; |
