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

--- Comment #5 from anlauf at gcc dot gnu.org ---
(In reply to Tobias Burnus from comment #3)
> However, an alternative is the following - which is (nearly) identical,
> except that GCC does some GFC-CFC and back conversations – independent
> whether implemented in C or in Fortran:
> 
> subroutine acc_attach(x) bind(C, name="acc_attach_")
>   use iso_c_binding, only : c_loc
>   implicit none (external, type)
> 
>   type(*), dimension(..), target :: x
> 
>   interface
>     subroutine acc_attach_c(x) bind(C, name="acc_attach")
>       use iso_c_binding
>       type(c_ptr) :: x
>     end subroutine
>   end interface
> 
>   call acc_attach_c(c_loc(x))
> end

Why not:

subroutine acc_attach_f(x)

and "renaming" it via

interface acc_attach
  module procedure acc_attach_f
end

?

Reply via email to