C API로 확인된 스토리지를 Fortran 으로 정렬

#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>

int* myalloc() {
  int* ptr = (int*) malloc(4 * sizeof(int));
  ptr[0] = 1;
  ptr[1] = 2;
  ptr[2] = 3;
  ptr[3] = 4;
  return ptr;
}

program f1
  use iso_c_binding
  interface
    function myalloc() bind(c)
      import c_ptr
      type(c_ptr) myalloc
    end function
  end interface

  type(c_ptr) addr
  integer, pointer :: array(:)

  addr = myalloc()
  call c_f_pointer(addr, array, [4])

  print *, array ! [1, 2, 3, 4]
end

참고 자료