------- Comment #1 from fxcoudert at gcc dot gnu dot org 2007-03-16 15:32 ------- Reduced testcase: character(len=1) :: a="1" forall(i=1:1) a(i:i) = a(i:i) end
Adding Roger Sayle in the CC list, since you're our FORALL expert :) Program received signal SIGSEGV, Segmentation fault. integer_onep (expr=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree.c:1311 1311 STRIP_NOPS (expr); (gdb) where #0 integer_onep (expr=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree.c:1311 #1 0x0000000000493a5e in allocate_temp_for_forall_nest_1 (type=0x2a984c7b40, size=0x2a984c68a0, block=0x7fbfffec60, ptemp1=0x7fbfffe8b8) at /utmp/coudert/gfortran/trunk/gcc/fortran/trans-stmt.c:2076 #2 0x0000000000494d84 in gfc_trans_assign_need_temp (expr1=0xe02610, expr2=0xe029a0, wheremask=0x0, invert=0 '\0', nested_forall_info=0xdcec70, block=0x7fbfffec60) at /utmp/coudert/gfortran/trunk/gcc/fortran/trans-stmt.c:2181 #3 0x00000000004986c5 in gfc_trans_forall_1 (code=0xe02e30, nested_forall_info=0x0) at /utmp/coudert/gfortran/trunk/gcc/fortran/trans-stmt.c:2629 #4 0x00000000004665c7 in gfc_trans_code (code=0xe02e30) at /utmp/coudert/gfortran/trunk/gcc/fortran/trans.c:553 #5 0x0000000000479e96 in gfc_generate_function_code (ns=0xdf9060) at /utmp/coudert/gfortran/trunk/gcc/fortran/trans-decl.c:3217 -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |sayle at gcc dot gnu dot org Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Keywords| |ice-on-valid-code Known to fail| |4.1.3 4.2.0 4.3.0 Last reconfirmed|0000-00-00 00:00:00 |2007-03-16 15:32:12 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31217