diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-03-20 07:53:01 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-03-20 07:53:01 +0100 |
| commit | 9964e8304b1ea841583e3aea27fdbc65281e0ed3 (patch) | |
| tree | 3627540c9ce583bad2dfc87f4e1d24e50acbbd32 /gcc/fortran/resolve.c | |
| parent | a69e09c8ec22bddd81bf14361915394c51e7e098 (diff) | |
| download | gcc-9964e8304b1ea841583e3aea27fdbc65281e0ed3.zip gcc-9964e8304b1ea841583e3aea27fdbc65281e0ed3.tar.gz gcc-9964e8304b1ea841583e3aea27fdbc65281e0ed3.tar.bz2 | |
re PR fortran/60543 (Function with side effect removed by the optimizer.)
2014-03-19 Tobias Burnus <burnus@net-b.>
PR fortran/60543
* io.c (check_io_constraints): Use gfc_unset_implicit_pure.
* resolve.c (resolve_ordinary_assign): Ditto.
From-SVN: r208693
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index ac58167..6e23e57 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9165,7 +9165,7 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) if (lhs->expr_type == EXPR_VARIABLE && lhs->symtree->n.sym != gfc_current_ns->proc_name && lhs->symtree->n.sym->ns != gfc_current_ns) - gfc_current_ns->proc_name->attr.implicit_pure = 0; + gfc_unset_implicit_pure (NULL); if (lhs->ts.type == BT_DERIVED && lhs->expr_type == EXPR_VARIABLE @@ -9173,11 +9173,11 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) && rhs->expr_type == EXPR_VARIABLE && (gfc_impure_variable (rhs->symtree->n.sym) || gfc_is_coindexed (rhs))) - gfc_current_ns->proc_name->attr.implicit_pure = 0; + gfc_unset_implicit_pure (NULL); /* Fortran 2008, C1283. */ if (gfc_is_coindexed (lhs)) - gfc_current_ns->proc_name->attr.implicit_pure = 0; + gfc_unset_implicit_pure (NULL); } /* F2008, 7.2.1.2. */ |