From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 31166 invoked by alias); 21 Feb 2006 09:08:06 -0000 Received: (qmail 31131 invoked by uid 48); 21 Feb 2006 09:08:01 -0000 Date: Tue, 21 Feb 2006 09:08:00 -0000 Message-ID: <20060221090801.31130.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/25619] tempary array of constant size character type goes wrong In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "fxcoudert at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-02/txt/msg02375.txt.bz2 List-Id: ------- 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 , 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 , 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 , 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 , 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 , 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 , 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 , 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