OSDN Git Service

gcc/fortran/
authorjanus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 19 Jan 2010 13:45:07 +0000 (13:45 +0000)
committerjanus <janus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 19 Jan 2010 13:45:07 +0000 (13:45 +0000)
commit1b4ad9dac6939b8e1e110e51f70625f48f30023a
tree862f8561a7cde35057e44f9c5f3509db7dee40ad
parent270a54d23107df4f9b7bd64858393e89af094d83
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156040 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/fortran/symbol.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/extends_10.f03 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/extends_6.f03
gcc/testsuite/gfortran.dg/private_type_6.f90
gcc/testsuite/gfortran.dg/structure_constructor_8.f03