[Bug fortran/25619] tempary array of constant size character type goes wrong

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2006-02-21 09:08 -------
(In reply to comment #2)
> the variable does not have to be a "dummy" variable either to reproduce this.
> subroutine option_stopwatch_s()
> character(len=1) :: default_clock
>    call option_stopwatch_a((/default_clock/))
> end subroutine option_stopwatch_s
> 

Another example of the (probably) same bug (reported by Vivek Rao, reduced by
myself):

$ cat vivek.f90 
  character(len=1) :: s(1) = ""
  integer :: i(1)
  print *, s(i)
  end
$ gfortran -c vivek.f90 
vivek.f90: In function ‘MAIN__’:
vivek.f90:3: internal compiler error: in gimplify_expr, at gimplify.c:5788


The top of the gdb backtrace is:

Breakpoint 1, fancy_abort (file=0x859ff15 "../../../trunk/gcc/gimplify.c", 
    line=5788, function=0x85a052e "gimplify_expr")
    at ../../../trunk/gcc/diagnostic.c:641
641     {
(gdb) where
#0  fancy_abort (file=0x859ff15 "../../../trunk/gcc/gimplify.c", line=5788, 
    function=0x85a052e "gimplify_expr") at ../../../trunk/gcc/diagnostic.c:641
#1  0x080e49d0 in gimplify_expr (expr_p=0xb7bcc09c, pre_p=0xbfafd324,
post_p=Variable "post_p" is not available.
)
    at ../../../trunk/gcc/gimplify.c:5788
#2  0x080e2b5b in gimplify_expr (expr_p=0xb7b6e434, pre_p=0xbfafd324, 
    post_p=0xbfafd320, gimple_test_f=0x80dae80 <is_gimple_mem_rhs>, 
    fallback=fb_rvalue) at ../../../trunk/gcc/gimplify.c:5341
#3  0x080e1a1a in gimplify_modify_expr (expr_p=0xb7bba554, pre_p=0xbfafd324, 
    post_p=0xbfafd320, want_value=0 '\0') at ../../../trunk/gcc/gimplify.c:3433
#4  0x080e3b1a in gimplify_expr (expr_p=0xb7bba554, pre_p=0xbfafd324,
post_p=Variable "post_p" is not available.
)
    at ../../../trunk/gcc/gimplify.c:5270
#5  0x080e5dcf in gimplify_stmt (stmt_p=0xb7bba554)
    at ../../../trunk/gcc/gimplify.c:4129
#6  0x080e27f7 in gimplify_expr (expr_p=0xb7bb0570, pre_p=0xbfafd3c4, 
    post_p=0xbfafd3c0, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:3591
#7  0x080e5dcf in gimplify_stmt (stmt_p=0xb7bb0570)
    at ../../../trunk/gcc/gimplify.c:4129
#8  0x080e6c17 in gimplify_to_stmt_list (stmt_p=0xb7bb0570)
    at ../../../trunk/gcc/gimplify.c:4137
#9  0x080e7753 in gimplify_bind_expr (expr_p=0xb7bba56c, temp=0x0, 
    pre_p=0xbfafd4c4) at ../../../trunk/gcc/gimplify.c:1036
#10 0x080e30e5 in gimplify_expr (expr_p=0xb7bba56c, pre_p=0xbfafd4c4, 
    post_p=0xbfafd4c0, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:5376
#11 0x080e5dcf in gimplify_stmt (stmt_p=0xb7bba56c)
    at ../../../trunk/gcc/gimplify.c:4129
#12 0x080e27f7 in gimplify_expr (expr_p=0xbfafd5b0, pre_p=0xbfafd564, 
    post_p=0xbfafd560, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:3591
#13 0x080e5dcf in gimplify_stmt (stmt_p=0xbfafd5b0)
    at ../../../trunk/gcc/gimplify.c:4129
#14 0x080e7c6f in gimplify_and_add (t=0xb7bc88e8, list_p=0xbfafd614)
    at ../../../trunk/gcc/gimplify.c:336
#15 0x080e2c8c in gimplify_expr (expr_p=0xb7bba590, pre_p=0xbfafd614, 
    post_p=0xbfafd610, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:1241
#16 0x080e5dcf in gimplify_stmt (stmt_p=0xb7bba590)
    at ../../../trunk/gcc/gimplify.c:4129
#17 0x080e27f7 in gimplify_expr (expr_p=0xb7bb05c0, pre_p=0xbfafd6b4, 
    post_p=0xbfafd6b0, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:3591
#18 0x080e5dcf in gimplify_stmt (stmt_p=0xb7bb05c0)
    at ../../../trunk/gcc/gimplify.c:4129
#19 0x080e6c17 in gimplify_to_stmt_list (stmt_p=0xb7bb05c0)
    at ../../../trunk/gcc/gimplify.c:4137
#20 0x080e7753 in gimplify_bind_expr (expr_p=0xb7bba5a8, temp=0x0, 
    pre_p=0xbfafd7b4) at ../../../trunk/gcc/gimplify.c:1036
#21 0x080e30e5 in gimplify_expr (expr_p=0xb7bba5a8, pre_p=0xbfafd7b4, 
    post_p=0xbfafd7b0, gimple_test_f=0x80daf90 <is_gimple_stmt>, 
    fallback=fb_none) at ../../../trunk/gcc/gimplify.c:5376
#22 0x080e5dcf in gimplify_stmt (stmt_p=0xb7bba5a8)
    at ../../../trunk/gcc/gimplify.c:4129


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
   Last reconfirmed|2006-01-27 20:42:14         |2006-02-21 09:08:01
               date|                            |


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