[Bug fortran/39800] Rejects PRIVATE TYPE as compont of local type declaration

[pault at gcc dot gnu dot org]

------- Comment #5 from pault at gcc dot gnu dot org  2009-04-20 21:55 -------
Subject: Bug 39800

Author: pault
Date: Mon Apr 20 21:55:26 2009
New Revision: 146457

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=146457
Log:
2009-04-20  Paul Thomas  <pa...@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  <pa...@gcc.gnu.org>

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

Added:
    trunk/gcc/testsuite/gfortran.dg/private_type_13.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/private_type_2.f90


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39800