diff options
Diffstat (limited to 'gcc-4.8/gcc/fortran/symbol.c')
-rw-r--r-- | gcc-4.8/gcc/fortran/symbol.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc-4.8/gcc/fortran/symbol.c b/gcc-4.8/gcc/fortran/symbol.c index ef4076df3..1b3702f82 100644 --- a/gcc-4.8/gcc/fortran/symbol.c +++ b/gcc-4.8/gcc/fortran/symbol.c @@ -1110,8 +1110,8 @@ gfc_add_save (symbol_attribute *attr, save_state s, const char *name, return FAILURE; } - if (s == SAVE_EXPLICIT && gfc_implicit_pure (NULL)) - gfc_current_ns->proc_name->attr.implicit_pure = 0; + if (s == SAVE_EXPLICIT) + gfc_unset_implicit_pure (NULL); if (s == SAVE_EXPLICIT && attr->save == SAVE_EXPLICIT) { |