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

G. Steinmetz <gs...@t-online.de> changed:

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

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

While not embedded :


$ cat y1.f90
module m
contains
   integer function f(x) bind(c)
      use iso_c_binding
      c_funloc(f) = x
   end
end


$ cat y2.f90
module m
contains
   integer function f(x)
      use iso_c_binding
      c_funloc(f) = x
   end
end


$ gfortran-11-20200621 -c y2.f90
y2.f90:5:15:

    5 |       c_funloc(f) = x
      |               1
Error: Function result 'f' at (1) is invalid as X argument to C_FUNLOC

Reply via email to