[Bug fortran/34246] gfortran.dg/bind_c_usage_16.f03 doesn't work

[burnus at gcc dot gnu dot org]

------- Comment #6 from burnus at gcc dot gnu dot org  2007-11-27 23:12 -------
   character(kind=1) __result_foo[1:1];
   <retval> = __result_foo;

As Andrew pointed out, we return an array and not a scalar.

TODO:

a) Check that we expect a scalar to be returned in gfc_conv_function_call.

b) Ensure that we return a scalar - not only for FUNCTION but also for ENTRY.
Possible place to do this is gfc_generate_function_code.

c) Fix the following ICE (occurs if either the function or the entry is bind(C)
or both):

function test() bind(C)
  use iso_c_binding
  implicit none
  character(len=1,kind=c_char) :: test, bar
entry bar() bind(C)
end function test

d) Find out whether we are still crashing on some systems; if yes, fix it.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code


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