[Bug fortran/47767] [OOP] SELECT TYPE fails to execute correct TYPE IS block

[janus at gcc dot gnu.org]

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

--- Comment #4 from janus at gcc dot gnu.org 2011-02-18 10:04:33 UTC ---
Author: janus
Date: Fri Feb 18 10:04:30 2011
New Revision: 170269

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=170269
Log:
2011-02-18  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/47767
    * gfortran.h (gfc_check_access): Removed prototype.
    (gfc_check_symbol_access): Added prototype.
    * module.c (gfc_check_access): Renamed to 'check_access', made static.
    (gfc_check_symbol_access): New function, basically a shortcut for
    'check_access'.
    (write_dt_extensions,write_symbol0,write_generic,write_symtree): Use
    'gfc_check_symbol_access'.
    (write_operator,write_module): Renamed 'gfc_check_access'.
    * resolve.c (resolve_fl_procedure,resolve_fl_derived,
    resolve_fl_namelist,resolve_symbol,resolve_fntype): Use
    'gfc_check_symbol_access'.

2011-02-18  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/47767
    * gfortran.dg/class_40.f03: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/class_40.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/module.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog