Simon Geard wrote:
.. but when I run it it doesn't work - as illustrated in post#1... If it is possible to use the same name for both C and Fortran calls I'd like to know how because none of the replies in this thread so far have explained that to me.
Re: "none of the replies in this thread so far have explained that to me" - did you see Message #10?
What you're indicating in Message #12 is not the same as in the original post; in Message #12 you say Fortran name and bind(C, name=..) are the same but that is not how it is in the original post. Show a reproducible example that is exactly consistent with your scenario. You can take the code below (a minor variant of Message #10, here C binding name is not upper case). note it has no issues even though it uses " the same name for both C and Fortran calls", so modify it as needed to reproduce the issue you face and post it on this thread:
module mymod
use iso_c_binding, only : c_int
implicit none
type, bind(c) :: my_t
integer(c_int) :: a = 3
end type my_t
contains
subroutine by_val(i,m) bind(C, name='by_val')
integer(c_int), intent(in), value :: i
type(my_t), intent(out) :: m
m%a = i
return
end subroutine by_val
end module mymod
program test
use mymod, only : my_t, by_val
implicit none
integer :: i
type(my_t) :: m
i = 5
call by_val(i, m)
print *, "From Fortran: i = ", i, ", m%a = ", m%a
stop
end program test
Upon execution with Intel Fortran,
From Fortran: i = 5 , m%a = 5
Press any key to continue . . .
#include <stdio.h>
typedef struct {
int a;
} c_t;
extern void by_val(int, c_t *);
int main()
{
int i;
c_t m;
i = 5;
by_val(i, &m);
printf("From C: i = %d, m.a = %d\n", i, m.a);
return(0);
}
Upon execution,
From C: i = 5, m.a = 5
Press any key to continue . . .
