#include #include #include #include "ISO_Fortran_binding.h" void addr_c(const CFI_cdesc_t *restrict); void addr_c(const CFI_cdesc_t *restrict auxp){ int *ip = NULL; CFI_index_t i, lb, ub, sz; assert(auxp); assert(auxp->base_addr); assert(auxp->rank==1); assert(auxp->dim[0].sm==sizeof(int)); printf("base_addr: %p (%d)\n", auxp->base_addr, *(int*)auxp->base_addr); lb = auxp->dim[0].lower_bound; sz = auxp->dim[0].extent; ub = sz + lb - 1; printf("dim: %ld:%ld (%ld)\n", lb, ub, sz); ip = (int*)auxp->base_addr; for(i=0; i