From 2ff12c47266b9dda7de2c9f689d6a2fe20d05d3f Mon Sep 17 00:00:00 2001
From: Christopher Bignamini <christopher.bignamini@gmail.com>
Date: Fri, 8 Apr 2022 19:10:21 +0200
Subject: [PATCH] Array low bound value bug (?) fixed

---
 CFICDesc.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/CFICDesc.cpp b/CFICDesc.cpp
index b89a9e2..0d5b234 100644
--- a/CFICDesc.cpp
+++ b/CFICDesc.cpp
@@ -1,6 +1,7 @@
 #include "CFICDesc.hpp"
 #include <cstdlib>
 #include <ISO_Fortran_binding.h>
+#include <iostream>
 
 CFICDesc::CFICDesc(const CFI_cdesc_t& i_cdesc_t)
     :m_base_addr(i_cdesc_t.base_addr)
@@ -10,8 +11,9 @@ CFICDesc::CFICDesc(const CFI_cdesc_t& i_cdesc_t)
     ,m_attribute(i_cdesc_t.attribute)
     ,m_type(i_cdesc_t.type)
 {
+    // TODO: by default dim[i].lower_bound is 0 even if the corresponding fortran array has lbound = 1
     for(auto i=0; i<m_rank; i++) {
-        m_dim.push_back(CFI_dim_t{i_cdesc_t.dim[i].lower_bound, i_cdesc_t.dim[i].extent, i_cdesc_t.dim[i].sm});
+        m_dim.push_back(CFI_dim_t{i_cdesc_t.dim[i].lower_bound+1, i_cdesc_t.dim[i].extent, i_cdesc_t.dim[i].sm});
     }
 }