[Bug fortran/53306] [4.6/4.7/4.8 Regression] ICE on invalid 'array(*) =' statement

["dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=53306

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-05-10 13:27:57 UTC ---
Gfortran 4.6 gives at revision 159106

pr53306.f90:2.2:

a(*) = 1
  1
Error: Expected array subscript at (1)

At r162456, I get

[macbook] f90/bug% /opt/gcc/gcc4.6p-162456/bin/gfortran pr53306.f90
f951: internal compiler error: Segmentation fault

On trunk the backtrace is

Program received signal SIGSEGV, Segmentation fault.
resolve_ref (expr=<value optimized out>) at
../../work/gcc/fortran/resolve.c:4595
4595        switch (e->rank)
(gdb) bt
#0  resolve_ref (expr=<value optimized out>) at
../../work/gcc/fortran/resolve.c:4595
#1  0x000000010008426d in gfc_resolve_expr (e=<value optimized out>) at
../../work/gcc/fortran/resolve.c:5112
#2  0x000000010008dfc6 in resolve_code (code=<value optimized out>, ns=<value
optimized out>) at ../../work/gcc/fortran/resolve.c:9381
#3  0x000000010008f804 in resolve_codes (ns=<value optimized out>) at
../../work/gcc/fortran/resolve.c:14028
#4  0x000000010007f438 in gfc_resolve (ns=<value optimized out>) at
../../work/gcc/fortran/resolve.c:14055
#5  0x0000000100074d9b in gfc_parse_file () at
../../work/gcc/fortran/parse.c:4387
#6  0x00000001000b3d46 in gfc_be_parse_file () at
../../work/gcc/fortran/f95-lang.c:191
#7  0x00000001007d7b41 in toplev_main (argc=2, argv=0x7fff5fbfd960) at
../../work/gcc/toplev.c:552
#8  0x0000000100001634 in start ()