[Bug fortran/66694] Failure in function returning an allocated CHARACTER array

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66694

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-09-05
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from 4.8 up to trunk (6.0). The backtrace is

* thread #1: tid = 0x4aa0976, 0x00000001000e32d2
f951`gfc_alloc_allocatable_for_assignment(loop=<unavailable>,
expr1=0x000000014202b1a0, expr2=<unavailable>) + 3810 at trans-array.c:8698,
queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1,
address=0x0)
    frame #0: 0x00000001000e32d2
f951`gfc_alloc_allocatable_for_assignment(loop=<unavailable>,
expr1=0x000000014202b1a0, expr2=<unavailable>) + 3810 at trans-array.c:8698
   8695     {
   8696       if (expr2->ts.deferred)
   8697         {
-> 8698           if (TREE_CODE (expr2->ts.u.cl->backend_decl) == VAR_DECL)
   8699             tmp = expr2->ts.u.cl->backend_decl;
   8700           else
   8701             tmp = rss->info->string_length;
(lldb) bt
* thread #1: tid = 0x4aa0976, 0x00000001000e32d2
f951`gfc_alloc_allocatable_for_assignment(loop=<unavailable>,
expr1=0x000000014202b1a0, expr2=<unavailable>) + 3810 at trans-array.c:8698,
queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1,
address=0x0)
  * frame #0: 0x00000001000e32d2
f951`gfc_alloc_allocatable_for_assignment(loop=<unavailable>,
expr1=0x000000014202b1a0, expr2=<unavailable>) + 3810 at trans-array.c:8698
    frame #1: 0x000000010010b8a9
f951`gfc_trans_assignment_1(expr1=0x000000014202b1a0, expr2=0x000000014202b610,
init_flag=<unavailable>, dealloc=<unavailable>) + 1545 at trans-expr.c:9330
    frame #2: 0x00000001000d2696 f951`trans_code(code=0x000000014202b6d0,
cond=0x0000000000000000) + 1606 at trans.c:1674
    frame #3: 0x00000001000f7915
f951`gfc_generate_function_code(ns=<unavailable>) + 1061 at trans-decl.c:5900
    frame #4: 0x00000001000f7738
f951`gfc_generate_function_code(ns=0x0000000142814800) + 584 at
trans-decl.c:5038
    frame #5: 0x000000010008a3ec f951`gfc_parse_file() + 1628 at parse.c:5521
    frame #6: 0x00000001000cf386 f951`gfc_be_parse_file + 54 at f95-lang.c:209
    frame #7: 0x0000000100901c09 f951`compile_file + 57 at toplev.c:544
    frame #8: 0x0000000100cd673c f951`toplev::main(int, char**) + 1151 at
toplev.c:2046
    frame #9: 0x0000000100cd62bd f951`toplev::main(this=<unavailable>, argc=2,
argv=0x00007fff5fbff350) + 717
    frame #10: 0x0000000100cd81a9 f951`main(argc=2, argv=0x00007fff5fbff350) +
41 at main.c:39
    frame #11: 0x00007fff8aaf35c9 libdyld.dylib`start + 1