aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8/gcc/fortran/symbol.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.8/gcc/fortran/symbol.c')
-rw-r--r--gcc-4.8/gcc/fortran/symbol.c4
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)
{