Fix return value and add intent(in) to bindc values

Author: sethrj

Lib/fortran/fundamental.swg

@@ -148,7 +148,7 @@ SWIGINTERN SwigArrayWrapper SwigArrayWrapper_uninitialized() {
    %{FTYPE%}
   %typemap(ftype, in={FTYPE, intent(in)}) CTYPE
    %{FTYPE%}
-  %typemap(bindc, in={FTYPE, value}) CTYPE
+  %typemap(bindc, in={FTYPE, intent(in), value}) CTYPE
    %{FTYPE%}
   %typemap(in) CTYPE = FORTRAN_INTRINSIC_TYPE;
   %typemap(out) CTYPE = FORTRAN_INTRINSIC_TYPE;

Lib/fortran/funptrs.swg

@@ -10,8 +10,8 @@
   "$1_ltype"
 %typemap(imtype, in="type(C_FUNPTR), value") SWIGTYPE (*)(ANY)
   "type(C_FUNPTR)"
-%typemap(ftype) SWIGTYPE (*)(ANY)
-  "procedure($*fortranclassname)"
+%typemap(ftype, in="procedure($*fortranclassname)") SWIGTYPE (*)(ANY)
+  "procedure($*fortranclassname), pointer"
 %typemap(bindc, in="type(C_FUNPTR), value") SWIGTYPE (*)(ANY)
   "type(C_FUNPTR)"