diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-24 16:19:11 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-24 16:19:11 +0000 |
| commit | 899aa0f5b99527056ddfbfb9d6b6898ddd211e44 (patch) | |
| tree | feea8d3621fb013795c4e24773c0d395214dd5fc /gcc/fortran/dump-parse-tree.c | |
| parent | 30dc020ce6caf2e3bdfecfacca44670e3dba7f7f (diff) | |
| download | gcc-899aa0f5b99527056ddfbfb9d6b6898ddd211e44.tar.gz | |
2007-06-24 Tobias Burnus <burnus@net-de>
PR fortran/32460
* interface.c (gfc_compare_derived_types): Add access check.
* symbol.c (gfc_find_component): Ditto.
(gfc_set_component_attr,gfc_get_component_attr) Copy access state.
* dump-parse-tree.c (gfc_show_components): Dump access state.
* gfortran.h (struct gfc_component): Add gfc_access.
* module.c (mio_component): Add access state.
* (gfc_match_structure_constructor): Check for private access state.
2007-06-24 Tobias Burnus <burnus@net-de>
PR fortran/32460
* gfortran.dg/private_type_6.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125984 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 51af1c401f2..5d26a78af1b 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -624,6 +624,8 @@ gfc_show_components (gfc_symbol *sym) gfc_status (" DIMENSION"); gfc_status_char (' '); gfc_show_array_spec (c->as); + if (c->access) + gfc_status (" %s", gfc_code2string (access_types, c->access)); gfc_status (")"); if (c->next != NULL) gfc_status_char (' '); |