diff options
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index a39d4140..088fbbd 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -220,7 +220,7 @@ gfc_get_default_type (const char *name, gfc_namespace *ns) letter = name[0]; - if (gfc_option.flag_allow_leading_underscore && letter == '_') + if (flag_allow_leading_underscore && letter == '_') gfc_fatal_error ("Option %<-fallow-leading-underscore%> is for use only by " "gfortran developers, and should not be used for " "implicitly typed variables"); @@ -2372,7 +2372,7 @@ gfc_get_namespace (gfc_namespace *parent, int parent_types) continue; } - if (gfc_option.flag_implicit_none != 0) + if (flag_implicit_none != 0) { gfc_clear_ts (ts); continue; |