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

#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<sz; i++, ip++)
    printf("%ld (%p) = %d\n", i, (void*)ip, ((ip)?(*ip):(0)));
  printf("\n");
  for(i=lb; i<ub+1; i++){
    ip = (int*)CFI_address(auxp, &i);
    printf("%ld (%p) = %d\n", i, (void*)ip, ((ip)?(*ip):(0)));
  }
  printf("\n");
  for(i=0; i<sz; i++){
    ip = (int*)CFI_address(auxp, &i);
    printf("%ld (%p) = %d\n", i, (void*)ip, ((ip)?(*ip):(0)));
  }
  return;
}