diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-05-10 10:48:50 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-05-10 10:48:50 +0000 |
| commit | 9caa7e073b3e03a8fd1402fe0087b8078c6973de (patch) | |
| tree | 5462f5826baf175356cf39d9559745de624efac7 /gcc/fortran/resolve.c | |
| parent | 84ec5aea4833897a100ca6a3a257ebab23b44f93 (diff) | |
| download | gcc-9caa7e073b3e03a8fd1402fe0087b8078c6973de.zip gcc-9caa7e073b3e03a8fd1402fe0087b8078c6973de.tar.gz gcc-9caa7e073b3e03a8fd1402fe0087b8078c6973de.tar.bz2 | |
re PR fortran/68846 (Pointer function as LValue doesn't work when the assignment regards a dummy argument.)
2018-05-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/68846
PR fortran/70864
* resolve.c (get_temp_from_expr): The temporary must not have
dummy or intent attributes.
2018-05-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/68846
* gfortran.dg/temporary_3.f90 : New test.
PR fortran/70864
* gfortran.dg/temporary_2.f90 : New test.
From-SVN: r260113
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 18da947..913320c 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10503,6 +10503,8 @@ get_temp_from_expr (gfc_expr *e, gfc_namespace *ns) tmp->n.sym->attr.function = 0; tmp->n.sym->attr.result = 0; tmp->n.sym->attr.flavor = FL_VARIABLE; + tmp->n.sym->attr.dummy = 0; + tmp->n.sym->attr.intent = INTENT_UNKNOWN; if (as) { |