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

David Binderman <dcb314 at hotmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |dcb314 at hotmail dot com

--- Comment #11 from David Binderman <dcb314 at hotmail dot com> ---
>From the flang testsuite file ./Lower/HLFIR/bindc-entry-stmt.f90, 
these two should work:

function foo() bind(c)
  character(1) :: foo, bar
entry bar()
  bar = "a"
end function

and

function foo2()
  character(1) :: foo2, bar2
entry bar2() bind(c)
  bar2 = "a"
end function

Instead, I get:

internal compiler error: Segmentation fault
0xf580a9 crash_signal(int)
    /home/dcb38/gcc/working/gcc/../../trunk.20210101/gcc/toplev.cc:317
0x866511 build_entry_thunks(gfc_namespace*, bool)
   
/home/dcb38/gcc/working/gcc/../../trunk.20210101/gcc/fortran/trans-decl.cc:0
0x866511 gfc_create_function_decl(gfc_namespace*, bool)

Reply via email to