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/io.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/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 8d3dc46..84d0db8 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -3259,9 +3259,8 @@ if (condition) \ "an internal file in a PURE procedure", io_kind_name (k)); - if (gfc_implicit_pure (NULL) && (k == M_READ || k == M_WRITE)) - gfc_current_ns->proc_name->attr.implicit_pure = 0; - + if (k == M_READ || k == M_WRITE) + gfc_unset_implicit_pure (NULL); } if (k != M_READ) |