[Bug fortran/43539] internal compiler error: in gfc_typenode_for_spec, at fortran/trans-types.c:995

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

------- Comment #1 from dominiq at lps dot ens dot fr  2010-03-26 20:35 -------
Reduced test

program sizetest1 
   use ISO_C_BINDING 
   implicit none 
   type contains_pointer 
      integer data 
      type(contains_pointer), pointer :: next 
   end type contains_pointer 
   type(contains_pointer) sp 
   write(*,'(a,i0)') 'In f08: ', C_SIZEOF(sp) 
end program sizetest1 

(gdb) bt
#0  fancy_abort (file=0x10098f878 "../../p_work/gcc/fortran/trans-types.c",
line=995, function=0x1009f8b00 "gfc_typenode_for_spec") at
../../p_work/gcc/diagnostic.c:762
#1  0x00000001000f61c8 in gfc_typenode_for_spec (spec=0x14181e1d0) at
../../p_work/gcc/fortran/trans-types.c:995
#2  0x00000001000f696b in gfc_sym_type (sym=0x14181e1b0) at
../../p_work/gcc/fortran/trans-types.c:1770
#3  0x00000001000f65fd in gfc_get_function_type (sym=0x14181e1b0) at
../../p_work/gcc/fortran/trans-types.c:2397
#4  0x00000001000bd9ce in gfc_get_extern_function_decl (sym=0x14181e1b0) at
../../p_work/gcc/fortran/trans-decl.c:1503
#5  0x00000001000cf828 in gfc_conv_procedure_call (se=0x7fff5fbfd460,
sym=0x14181e1b0, arg=<value temporarily unavailable, due to optimizations>,
expr=0x14181e350, append_args=0x0) at
../../p_work/gcc/fortran/trans-expr.c:1678
#6  0x00000001000cfbc5 in gfc_conv_function_expr (se=0x7fff5fbfd460,
expr=<value temporarily unavailable, due to optimizations>) at
../../p_work/gcc/fortran/trans-expr.c:3911
#7  0x00000001000ca219 in gfc_conv_expr_reference (se=0x7fff5fbfd460,
expr=<value temporarily unavailable, due to optimizations>) at
../../p_work/gcc/fortran/trans-expr.c:4698
#8  0x00000001000e2464 in gfc_trans_transfer (code=0x14181e4d0) at
../../p_work/gcc/fortran/trans-io.c:2259
#9  0x00000001000a7478 in trans_code (code=0x14181e4d0, cond=0x1417d0188) at
../../p_work/gcc/fortran/trans.c:1251
#10 0x00000001000e00b9 in build_dt (function=0x141df0100, code=0x14181e6e0) at
../../p_work/gcc/fortran/trans-io.c:1830
#11 0x00000001000a7498 in trans_code (code=0x14181e6e0, cond=0x0) at
../../p_work/gcc/fortran/trans.c:1223
#12 0x00000001000c3c8f in gfc_generate_function_code (ns=<value temporarily
unavailable, due to optimizations>) at
../../p_work/gcc/fortran/trans-decl.c:4380
#13 0x0000000100069b8f in gfc_parse_file () at
../../p_work/gcc/fortran/parse.c:4226
#14 0x00000001000a291c in gfc_be_parse_file (set_yydebug=<value temporarily
unavailable, due to optimizations>) at ../../p_work/gcc/fortran/f95-lang.c:239
#15 0x00000001006d6b5a in toplev_main (argc=3, argv=0x7fff5fbfd9d8) at
../../p_work/gcc/toplev.c:1053
#16 0x00000001000019e4 in start ()


-- 


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