[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  <janus@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  <janus@gcc.gnu.org>

    PR fortran/58185
    * gfortran.dg/select_type_34.f90: New.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr58185.diff
Type: application/octet-stream
Size: 2981 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130819/40f919b0/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: select_type_34.f90
Type: application/octet-stream
Size: 272 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130819/40f919b0/attachment-0001.obj>