diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-01-19 14:45:07 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-01-19 14:45:07 +0100 |
| commit | f89cc1a337524ae9d1e32e020562ec27ca056ad2 (patch) | |
| tree | 862f8561a7cde35057e44f9c5f3509db7dee40ad /gcc/fortran/resolve.c | |
| parent | d6600130faf0a670610f412c88dd3614be5886c0 (diff) | |
| download | gcc-f89cc1a337524ae9d1e32e020562ec27ca056ad2.zip gcc-f89cc1a337524ae9d1e32e020562ec27ca056ad2.tar.gz gcc-f89cc1a337524ae9d1e32e020562ec27ca056ad2.tar.bz2 | |
re PR fortran/42545 (type extension: parent component has wrong accessibility)
gcc/fortran/
2010-01-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/42545
* resolve.c (resolve_fl_derived): Set the accessibility of the parent
component for extended types.
* symbol.c (gfc_find_component): Remove a wrongly-worded error message
and take care of parent component accessibility.
gcc/testsuite/
2010-01-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/42545
* gfortran.dg/extends_6.f03: Modified an error message.
* gfortran.dg/extends_10.f03: New test.
* gfortran.dg/private_type_6.f03: Modified an error message.
* gfortran.dg/structure_constructor_8.f03: Ditto.
From-SVN: r156040
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 6bc5fde..8f32d1a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10494,6 +10494,12 @@ resolve_fl_derived (gfc_symbol *sym) && resolve_typespec_used (&c->ts, &c->loc, c->name) == FAILURE) return FAILURE; + /* If this type is an extension, set the accessibility of the parent + component. */ + if (super_type && c == sym->components + && strcmp (super_type->name, c->name) == 0) + c->attr.access = super_type->attr.access; + /* If this type is an extension, see if this component has the same name as an inherited type-bound procedure. */ if (super_type |