[Bug fortran/32432] New: SEGV/endless loop after: "ERROR: ... already is initialized"

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

+++ This bug was initially created as a clone of Bug #32236 +++

ftp://ftp.icess.ucsb.edu/pub/esrg/sbdart/sbdart_2.4.tar.gz

If I compile (gfortran -c tauaero.f), I get (now that PR #32236 is fixed)  the
expected

Error: 'wlbaer' at (1) already is initialized at (2)

but afterwards nothing happens, also "top" shows no activity.

If I run the program in gdb, I get:

Error: 'wlbaer' at (1) already is initialized at (2)
Program received signal SIGSEGV, Segmentation fault.
#0  0x00002b933c7db1b0 in mpfr_cosh () from /lib64/libc.so.6
#1  0x00002b933c7dd532 in mpfr_cosh () from /lib64/libc.so.6
#2  0x00002b933c5339d9 in __gmp_default_allocate () from /usr/lib64/libgmp.so.3
#3  0x00002b933c5438b8 in __gmpz_init_set_si () from /usr/lib64/libgmp.so.3
#4  0x000000000040ad8b in gfc_get_constructor () at
/home/tob/projects/gcc/gcc/fortran/array.c:675

And valgrind shows:
==15443== Invalid write of size 4
==15443==    at 0x411DAA: gfc_assign_data_value (data.c:306)
==15443==    by 0x4506CF: traverse_data_var (resolve.c:6619)
==15443==    by 0x451C10: resolve_types (resolve.c:6795)
==15443==    by 0x453F7C: gfc_resolve (resolve.c:7473)


-- 
           Summary: SEGV/endless loop after: "ERROR: ... already is
                    initialized"
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org
 BugsThisDependsOn: 32236


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