diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2009-04-20 21:55:26 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2009-04-20 21:55:26 +0000 |
| commit | c867b7b65310c33d124e0c3bfbb62d9a1001874e (patch) | |
| tree | 12ea6f91abb779d2653ae066d97bedced48be5d9 /libcpp | |
| parent | 311fa510e6d737db7727ab6f4bd1c5598f2b217c (diff) | |
| download | gcc-c867b7b65310c33d124e0c3bfbb62d9a1001874e.zip gcc-c867b7b65310c33d124e0c3bfbb62d9a1001874e.tar.gz gcc-c867b7b65310c33d124e0c3bfbb62d9a1001874e.tar.bz2 | |
re PR fortran/39800 (Rejects PRIVATE TYPE as compont of local type declaration)
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.
From-SVN: r146457
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions