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

    PR fortran/56081
    * gfortran.dg/select_8.f90: New.

pr56081_v2.diff
Description: Binary data

select_8.f90
Description: Binary data