[Patch, Fortran, OOP] PR 47767: SELECT TYPE fails to execute correct TYPE IS block

[Janus Weil]

>> The patch was regtested on x86_64-unknown-linux-gnu. Ok for trunk?
>
> OK.

Thanks. Committed as r170269.

Cheers,
Janus



>> 2011-02-17  Janus Weil<janus@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-17  Janus Weil<janus@gcc.gnu.org>
>>
>>        PR fortran/47767
>>        * gfortran.dg/class_40.f03: New.
>
>