Как вызвать функцию C в Fortran и правильно передать аргументы uint32_t

Похоже, вы знаете об iso_c_binding, так как используете этот тег. Изучите взаимодействие Fortran 2003 с C. Прочтите описание тега и некоторую документацию, например http://gcc.gnu.org/onlinedocs/gcc-4.9.0/gfortran/Interoperability-with-C.html . В современном Фортране нет места для ваших конечных подчеркиваний и подобных вещей.

В Fortran нет неподписанных типов, вы должны использовать подписанные. Пока значения со знаком положительные, это работает. Если вам нужны большие значения, используйте больший целочисленный тип. Вы можете transfer() младшие байты преобразовать в int32, если вам это нужно.

В-третьих, Фортран по умолчанию использует некоторые варианты передачи по ссылке, особенно для bind(c) процедур (это может быть ссылка на копию или какой-то другой вариант). Вы должны использовать атрибут value для передачи по значению.

uint32_t encode(uint32_t x, uint32_t y)
uint32_t decode(uint32_t dec)

module c_procs
  interface
    function encode(x, y) bind(C, name="encode")
      use iso_c_binding
      integer(c_int32_t) :: encode
      integer(c_int32_t), value :: x, y
    end function
    function decode(x, y) bind(C, name="decode")
      use iso_c_binding
      integer(c_int32_t) :: decode
      integer(c_int32_t), value :: dec
    end function
  end interface
end module

...

use iso_c_binding
use c_procs

integer(c_int32_t) :: cod, i, j
cod = encode(i,j)

Последние версии GCC способны обнаруживать, что мы смешиваем подписанные и неподписанные типы во время оптимизации времени компоновки:

rng.f90:173:0: warning: type of 'sub' does not match original declaration [-Wlto-type-mismatch]
     ival = sub(jz, jsr)
^
rng_c.c:2:10: note: return value type mismatch
 uint32_t sub(uint32_t a, uint32_t b) {
          ^
/usr/include/stdint.h:51:23: note: type 'uint32_t' should match type 'int'
 typedef unsigned int  uint32_t;
                       ^
rng_c.c:2:10: note: 'sub' was previously declared here
 uint32_t sub(uint32_t a, uint32_t b) {

Вы можете игнорировать предупреждение или отключить его, если знаете, что делаете.

Вы можете написать функцию C, которая принимает C_INT (или int в C), а затем преобразует его в uint32_t. Затем вы ссылаетесь на это из Фортрана.

in C:

uint32_t to_uint32_t ( int i ) {
    return (uint32_t)i; //cast actually not needed since it implicitly converts
}

в фортране:

module convert
    interface
        integer(C_INT32_T) function integer_to_uint32_t_C ( i ) bind (c,name="to_uint32_t")
            use iso_c_binding
            use user32_constants_types
            integer(c_int), value :: i
        end function
    end interface

end module convert

Затем вы можете использовать integer_to_uint32_t_C для передачи целочисленных значений Fortran функциям C, которые ожидают uint32_t. Кроме того, вы можете захотеть создать функцию C, которая преобразует обратно в обычный ole int, чтобы вы могли использовать результаты в Fortran.