[Bug fortran/21300] New: ICE: Segmentation fault in gfc_trans_subcomponent_assign

["andrea at poisson dot phc dot unipi dot it" <gcc-bugzilla at gcc dot gnu dot org>]

andrea@poisson:~/gcc/OrbFit3.2/src/suit$ gfortran -I../include -c
astrometric_observations.f90
astrometric_observations.f90: In function 'jplradar_transform':
astrometric_observations.f90:1679: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

gcc version:

Configured with: ../gcc-4.1-20050424/configure --enable-checking
--enable-languages=c,f95 : (reconfigured) ../gcc-4.1-20050424/configure
--enable-checking --enable-languages=c,f95
Thread model: posix
gcc version 4.1.0 20050424 (experimental)

here is a backtrace:

#0  0x080c40ff in gfc_trans_subcomponent_assign (dest=0x403c4a28, cm=0x88e3e98,
expr=0x89830a8)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:1598
#1  0x080c43d1 in gfc_trans_structure_assign (dest=0x40640ca8, expr=0x8981b78)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:1673
#2  0x080c44c0 in gfc_conv_structure (se=0xbfffde9c, expr=0x8981b78, init=0)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:1701
#3  0x080c49c6 in gfc_conv_expr (se=0xbfffde9c, expr=0x8981b78)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:1798
#4  0x080c578e in gfc_trans_assignment (expr1=0x8981b28, expr2=0x8981b78)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:2171
#5  0x080c5a59 in gfc_trans_assign (code=0x89830f8) at
../../gcc-4.1-20050424/gcc/fortran/trans-expr.c:2233
#6  0x080ab3c3 in gfc_trans_code (code=0x89830f8) at
../../gcc-4.1-20050424/gcc/fortran/trans.c:493
#7  0x080bfe9b in gfc_generate_function_code (ns=0x897d810)
    at ../../gcc-4.1-20050424/gcc/fortran/trans-decl.c:2234
#8  0x080ab953 in gfc_generate_module_code (ns=0x88dfe10) at
../../gcc-4.1-20050424/gcc/fortran/trans.c:706
#9  0x0808a22d in gfc_parse_file () at
../../gcc-4.1-20050424/gcc/fortran/parse.c:2629
#10 0x080a4ddd in gfc_be_parse_file (set_yydebug=0) at
../../gcc-4.1-20050424/gcc/fortran/f95-lang.c:263
#11 0x085714b2 in compile_file () at ../../gcc-4.1-20050424/gcc/toplev.c:1000
#12 0x08572d32 in do_compile () at ../../gcc-4.1-20050424/gcc/toplev.c:2120
#13 0x08572d97 in toplev_main (argc=3, argv=0xbfffe154) at
../../gcc-4.1-20050424/gcc/toplev.c:2152
#14 0x080e0d02 in main (argc=3, argv=0xbfffe154) at
../../gcc-4.1-20050424/gcc/main.c:35

listing:

1593            {
1594              /* Array pointer.  */
1595              if (expr->expr_type == EXPR_NULL)
1596                {
1597                  dest = gfc_conv_descriptor_data (dest);
1598                  tmp = fold_convert (TREE_TYPE (se.expr),
1599                                      null_pointer_node);
1600                  gfc_add_modify_expr (&block, dest, tmp);
1601                }
1602              else

TREE_TYPE(se.expr) causes segfault since se is just initialized to zero (line 1590).

-- 
           Summary: ICE: Segmentation fault in gfc_trans_subcomponent_assign
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: andrea at poisson dot phc dot unipi dot it
                CC: gcc-bugs at gcc dot gnu dot org


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