diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-10-23 15:48:08 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-10-23 15:48:08 +0200 |
| commit | 67f67405cb4f5fec7950c18f5e15da06d4852acb (patch) | |
| tree | bdffa72fd30d81b09a902bb409ba967a2f583aac /gcc/fortran/expr.c | |
| parent | 15ac39424201c42cc637cb034102ddd689ad75d8 (diff) | |
| download | gcc-67f67405cb4f5fec7950c18f5e15da06d4852acb.zip gcc-67f67405cb4f5fec7950c18f5e15da06d4852acb.tar.gz gcc-67f67405cb4f5fec7950c18f5e15da06d4852acb.tar.bz2 | |
re PR fortran/46122 (PROTECTED check too strict)
2010-10-23 Tobias Burnus <burnus@net-b.de>
PR fortran/46122
* expr.c (gfc_check_vardef_context): Fix PROTECTED check.
2010-10-23 Tobias Burnus <burnus@net-b.de>
PR fortran/46122
* gfortran.dg/protected_8.f90: New.
From-SVN: r165883
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 ef516a4..e567c98 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4400,7 +4400,7 @@ gfc_check_vardef_context (gfc_expr* e, bool pointer, const char* context) } /* PROTECTED and use-associated. */ - if (sym->attr.is_protected && sym->attr.use_assoc) + if (sym->attr.is_protected && sym->attr.use_assoc && check_intentin) { if (pointer && is_pointer) { |