[Patch, Fortran] PR 56081: [4.7/4.8 Regression] Seg fault ICE on select with bad case

[Janus Weil]

Hi all,

here is a regression fix for an ICE-on-invalid bug with SELECT CASE.
The check to reject non-scalar selectors had been present in 4.6, but
was apparently removed when CLASS arrays were implemented.

The patch re-inserts the check and makes sure it is not applied to
SELECT TYPE (where class arrays are allowed).

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

Cheers,
Janus



2013-01-23  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/56081
    * resolve.c (resolve_select): Add argument 'select_type', reject
    non-scalar expressions.
    (resolve_select_type,resolve_code): Pass new argument to
    'resolve_select'.


2013-01-23  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/56081
    * gfortran.dg/select_8.f90: New.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr56081_v2.diff
Type: application/octet-stream
Size: 1706 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130123/60b1a484/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: select_8.f90
Type: application/octet-stream
Size: 278 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130123/60b1a484/attachment-0001.obj>