diff options
| author | H.J. Lu <hjl.tools@gmail.com> | 2012-06-26 11:54:58 -0700 |
|---|---|---|
| committer | H.J. Lu <hjl.tools@gmail.com> | 2012-06-26 11:54:58 -0700 |
| commit | 241abac138d2b3bd184cbc9d5bf53cde3857a7a4 (patch) | |
| tree | 50e18f41c302adc6a4d490cad98365f60c9465c1 /gcc/fortran/expr.c | |
| parent | e7e782527af100a7802b6903b15524fac6cd5da2 (diff) | |
| parent | 24fe62c79a89d579257790e268b0b9ea87940a89 (diff) | |
| download | gcc-hjl/x32/gcc-4_6-branch+mx32.tar.gz | |
Merge branch 'hjl/x32/gcc-4_6-branch' into hjl/x32/gcc-4_6-branch+mx32hjl/x32/gcc-4_6-branch+mx32
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index a4da37c20dc..3330cc89313 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4474,7 +4474,11 @@ gfc_check_vardef_context (gfc_expr* e, bool pointer, const char* context) if (ptr_component && ref->type == REF_COMPONENT) check_intentin = false; if (ref->type == REF_COMPONENT && ref->u.c.component->attr.pointer) - ptr_component = true; + { + ptr_component = true; + if (!pointer) + check_intentin = false; + } } if (check_intentin && sym->attr.intent == INTENT_IN) { |