diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-14 17:59:29 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-14 17:59:29 +0000 |
| commit | 62291378c2712a9c133ee33e59028d32dfd2e4cc (patch) | |
| tree | 8d8f91fd12d00a01db813b0d977357403fd7e78e /gcc/fortran/expr.c | |
| parent | b3a4e486dd049ce32f884a33ad5afd20b9862206 (diff) | |
2011-10-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/50570
* expr.c (gfc_check_vardef_context): Don't throw an error on
non-pointer assignments involving an intent(in) pointer dummy.
2011-10-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/50570
* gfortran.dg/pointer_intent_5.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180000 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 8a09a28b2898..504c7cf7d6bf 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4635,7 +4635,7 @@ gfc_check_vardef_context (gfc_expr* e, bool pointer, bool alloc_obj, sym->name, context, &e->where); return FAILURE; } - if (!pointer && !is_pointer) + if (!pointer && !is_pointer && !sym->attr.pointer) { if (context) gfc_error ("Dummy argument '%s' with INTENT(IN) in variable" |