2009-04-20 Paul Thomas <pault@gcc.gnu.org>
commit9386f3435d09dd0c757eef506b16b93229a47cd3
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 20 Apr 2009 21:55:26 +0000 (20 21:55 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 20 Apr 2009 21:55:26 +0000 (20 21:55 +0000)
tree12ea6f91abb779d2653ae066d97bedced48be5d9
parentb6879aae811621ff7758ccce1acf23f04f02e8bb
2009-04-20  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/39800
* resolve.c (is_sym_host_assoc): New function.
(resolve_fl_derived): Call it when checking PRIVATE components
of PUBLIC derived types.  Change gfc_error to a gfc_notify_std
with std=f2003.
(resolve_fl_namelist): Call it twice to check for host
association.

2009-04-20  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/39800
* gfortran.dg/private_type_13.f90: New test.
* gfortran.dg/private_type_2.f90: Add option -std=f95.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146457 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/private_type_13.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/private_type_2.f90