diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-28 18:18:11 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-28 18:18:11 +0000 |
| commit | bead03991b4636a61785b622701abcb08eb6e324 (patch) | |
| tree | 5be2f0ea12e7a10432b21d557c2aa0a43179bda2 | |
| parent | a9b0176aa4f2c3a53f73c6530951bfcc12d683a0 (diff) | |
| download | gcc-bead03991b4636a61785b622701abcb08eb6e324.tar.gz | |
2012-08-28 Tobias Burnus <burnus@net-b.de>
PR fortran/54389
* trans-decl.c (gfc_get_extern_function_decl,
build_function_decl): Don't mark impure elemental
functions as DECL_PURE_P and honour implicit_pure.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190757 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3a6a23e8199..582eb26f2c0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 2012-08-28 Tobias Burnus <burnus@net-b.de> + PR fortran/54389 + * trans-decl.c (gfc_get_extern_function_decl, + build_function_decl): Don't mark impure elemental + functions as DECL_PURE_P and honour implicit_pure. + +2012-08-28 Tobias Burnus <burnus@net-b.de> + PR fortran/54382 * error.c (show_locus): Avoid out of bound access. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 35a859b6d6c..7e59cb6dcb4 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1783,7 +1783,7 @@ gfc_get_extern_function_decl (gfc_symbol * sym) /* Set attributes for PURE functions. A call to PURE function in the Fortran 95 sense is both pure and without side effects in the C sense. */ - if (sym->attr.pure || sym->attr.elemental) + if (sym->attr.pure || sym->attr.implicit_pure) { if (sym->attr.function && !gfc_return_by_reference (sym)) DECL_PURE_P (fndecl) = 1; @@ -1912,7 +1912,7 @@ build_function_decl (gfc_symbol * sym, bool global) /* Set attributes for PURE functions. A call to a PURE function in the Fortran 95 sense is both pure and without side effects in the C sense. */ - if (attr.pure || attr.elemental) + if (attr.pure || attr.implicit_pure) { /* TODO: check if a pure SUBROUTINE has no INTENT(OUT) arguments including an alternate return. In that case it can also be |