diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-11-10 19:04:04 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-11-10 19:04:04 +0100 |
| commit | 1d3a84ce0338d5002672a643ca506224cd944298 (patch) | |
| tree | 67a1fe76be31a8c6ed217135b30c3902c00a2d68 /gcc/fortran/intrinsic.c | |
| parent | 95b53b576b7372dd13ab1115df13c2dc92b730b9 (diff) | |
| download | gcc-1d3a84ce0338d5002672a643ca506224cd944298.zip gcc-1d3a84ce0338d5002672a643ca506224cd944298.tar.gz gcc-1d3a84ce0338d5002672a643ca506224cd944298.tar.bz2 | |
re PR fortran/46411 (MOVE_ALLOC wrongly rejected as impure)
2010-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46411
* intrinsic.c (gfc_intrinsic_sub_interface): Check for attr.pure
and not for attr.elemental.
* intrinsic.texi (move_alloc): Document as being pure.
2010-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46411
* gfortran.dg/intrinsic_7.f90: New.
From-SVN: r166550
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index f7f0e05..d17544c 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -4193,7 +4193,7 @@ gfc_intrinsic_sub_interface (gfc_code *c, int error_flag) c->resolved_sym->attr.elemental = isym->elemental; } - if (gfc_pure (NULL) && !isym->elemental) + if (gfc_pure (NULL) && !isym->pure) { gfc_error ("Subroutine call to intrinsic '%s' at %L is not PURE", name, &c->loc); |