https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63230
--- Comment #3 from matthew.hambley at metoffice dot gov.uk ---
(In reply to matthew.hambley from comment #2)
> Created attachment 34067 [details]
> Minimal test case for the issue under v4.9.2.
>
> I just stumbled across this in v4.9.2. Attached is a minimal test case.
And I should have included the compiler output:
$ gfortran -Wall -Wextra stringalloc.f90
stringalloc.f90: In function ‘test’:
stringalloc.f90:20:0: internal compiler error: in gimplify_expr, at
gimplify.c:8538
allocate( character( len=len_trim( thing ) ) :: local%thing )
^
0x80569e gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:8538
0x802929 gimplify_modify_expr
../../gcc-4.9.2/gcc/gimplify.c:4510
0x804b67 gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:7627
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x805033 gimplify_statement_list
../../gcc-4.9.2/gcc/gimplify.c:1432
0x805033 gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:8042
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x806e1b gimplify_bind_expr
../../gcc-4.9.2/gcc/gimplify.c:1099
0x80438e gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:7824
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x805033 gimplify_statement_list
../../gcc-4.9.2/gcc/gimplify.c:1432
0x805033 gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:8042
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x80408a gimplify_and_add
../../gcc-4.9.2/gcc/gimplify.c:385
0x80408a gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:7964
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x806e1b gimplify_bind_expr
../../gcc-4.9.2/gcc/gimplify.c:1099
0x80438e gimplify_expr(tree_node**, gimple_statement_base**,
gimple_statement_base**, bool (*)(tree_node*), int)
../../gcc-4.9.2/gcc/gimplify.c:7824
0x806586 gimplify_stmt(tree_node**, gimple_statement_base**)
../../gcc-4.9.2/gcc/gimplify.c:5373
0x80743a gimplify_body(tree_node*, bool)
../../gcc-4.9.2/gcc/gimplify.c:8734
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.
