2007-06-24 Tobias Burnus <burnus@net-de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 24 Jun 2007 16:19:11 +0000 (16:19 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 24 Jun 2007 16:19:11 +0000 (16:19 +0000)
commit899aa0f5b99527056ddfbfb9d6b6898ddd211e44
treefeea8d3621fb013795c4e24773c0d395214dd5fc
parent30dc020ce6caf2e3bdfecfacca44670e3dba7f7f
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
gcc/fortran/ChangeLog
gcc/fortran/dump-parse-tree.c
gcc/fortran/gfortran.h
gcc/fortran/interface.c
gcc/fortran/module.c
gcc/fortran/primary.c
gcc/fortran/symbol.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/private_type_6.f90 [new file with mode: 0644]