Bind(c): Fix bugs in CFI_section
authorSandra Loosemore <sandra@codesourcery.com>
Sat, 17 Jul 2021 23:12:18 +0000 (16:12 -0700)
committerSandra Loosemore <sandra@codesourcery.com>
Wed, 28 Jul 2021 04:24:25 +0000 (21:24 -0700)
commitb4a9bc7856ee1d3ff98b04402334a362540af2cf
treedeee059989f7a38c1199a3d63cfa3c1bb4530055
parenta3b350f1799a1c0f9e2ece5b817a537fe42f0d2d
Bind(c): Fix bugs in CFI_section

CFI_section was incorrectly adjusting the base pointer for the result
array twice in different ways.  It was also overwriting the array
dimension info in the result descriptor before computing the base
address offset from the source descriptor, which caused problems if
the two descriptors are the same.  This patch fixes both problems and
makes the code simpler, too.

A consequence of this patch is that the result array is now 0-based in
all dimensions instead of starting at the numbering to match the first
element of the source array.  The Fortran standard only specifies the
shape of the result array, not its lower bounds, so this is permitted
and probably less confusing for users as well as implementors.

2021-07-17  Sandra Loosemore  <sandra@codesourcery.com>

PR libfortran/101310

libgfortran/
* runtime/ISO_Fortran_binding.c (CFI_section): Fix the base
address computation and simplify the code.

gcc/testsuite/
* gfortran.dg/ISO_Fortran_binding_1.c (section_c): Remove
incorrect assertions.
gcc/testsuite/gfortran.dg/ISO_Fortran_binding_1.c
libgfortran/runtime/ISO_Fortran_binding.c