[Patch, Fortran, OOP] PR 58185: [4.8/4.9 Regression] ICE when selector in SELECT TYPE is non-polymorphic

[Janus Weil]

Hi all,

here is a small patch which does some cleanup to avoid an ICE on
invalid SELECT TYPE statements.

The first three hunks are just cosmetics, and the fourth one also
contains minor refactoring, where I pull some common code out of the
two branches of an if statement. The important part, however, is that
I prevent gfc_build_class_symbol from being called if no type symbol
is available.

Regtested on x86_64-unknown-linux-gnu. Ok for trunk and 4.8?

Cheers,
Janus


2013-08-19  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/58185
    * match.c (copy_ts_from_selector_to_associate): Don't build class
    symbol if type is not available. Some cleanup.


2013-08-19  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/58185
    * gfortran.dg/select_type_34.f90: New.

pr58185.diff
Description: Binary data

select_type_34.f90
Description: Binary data