[Bug fortran/34202] [4.3 Regression] ICE (segfault) for invalid code in formalize_init_expr (data.c:691)

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

------- Comment #2 from dfranke at gcc dot gnu dot org  2008-01-24 19:44 -------
Simplified testcase:

$> cat pr34202.f90
program bug4a
   implicit none
   type bug4
! Intentionally left empty
   end type bug4

   type compound
      type(bug4) b
   end type compound

   type(bug4), parameter :: f = bug4()
   type(compound), parameter :: g = compound(bug4())
end program bug4a


$> valgrind [...]f951 pr34202.f90
[...]
==8693== Invalid read of size 4
==8693==    at 0x805A5AD: formalize_init_expr (data.c:691)
==8693==    by 0x4600BC7: ???
==8693==  Address 0x20 is not stack'd, malloc'd or (recently) free'd
f951: internal compiler error: Segmentation fault
Please submit a full bug report,

Backtrace:

Program received signal SIGSEGV, Segmentation fault.
formalize_init_expr (expr=0x89b0b48) at ../../../gcc/gcc/fortran/data.c:691
691       if (c->n.component == NULL)
(gdb) bt
#0  formalize_init_expr (expr=0x89b0b48) at ../../../gcc/gcc/fortran/data.c:691
#1  0x080b85bd in traverse_ns (st=0x898dab8, func=0x805a690
<gfc_formalize_init_value>) at ../../../gcc/gcc/fortran/symbol.c:2951
#2  0x080a790f in resolve_types (ns=0x89afd68) at
../../../gcc/gcc/fortran/resolve.c:9010
#3  0x080ab63c in gfc_resolve (ns=0x89afd68) at
../../../gcc/gcc/fortran/resolve.c:9062
#4  0x0809c4c8 in gfc_parse_file () at ../../../gcc/gcc/fortran/parse.c:3554
#5  0x080c5815 in gfc_be_parse_file (set_yydebug=0) at
../../../gcc/gcc/fortran/f95-lang.c:260
#6  0x08367f34 in toplev_main (argc=2, argv=0xbf94fef4) at
../../../gcc/gcc/toplev.c:1042
#7  0x08111c4f in main (argc=0, argv=0x0) at ../../../gcc/gcc/main.c:35


-- 


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