Как передать массив C_FLOAT в подпрограмму Fortran

В Fortran у меня есть массив C_FLOAT, который объявлен как входной аргумент:

SUBROUTINE Main(n,myCArray)  BIND(C, NAME = 'Main')
INTEGER(C_INT),         INTENT(IN   ) :: n
REAL(C_FLOAT),          INTENT(INOUT), dimension(n) :: myCArray
    CALL PrintTheArray(n,myCArray)
END SUBROUTINE MAIN

Как написано в теле подпрограммы Main, я хочу передать myCArray другой подпрограмме следующим образом:

SUBROUTINE PrintTheArray(n,theCArray)
INTEGER(C_INT),         INTENT(IN   ) :: n
REAL(C_FLOAT),          INTENT(INOUT), dimension(n) :: theCArray
print *, theCArray(1), theCArray(2)
END SUBROUTINE PrintTheArray

Делая это, я никогда не печатаю правильные значения массива. Однако, если я распечатаю значения в подпрограмме Main(), значения будут правильными. Что не так и как я могу это исправить?

Действительно, нет проблем с передачей массива C_FLOAT в Fortran. Так что вопрос неверный. Я привожу здесь минимальный, полный и проверяемый пример (я использую Ubuntu, GNU Fortran (GCC) 6.3.0, gcc (GCC) 6.3.0):

Код Fortran с именем файла FORTRANFunc.f90

MODULE TEST
USE, INTRINSIC :: ISO_C_Binding
  IMPLICIT NONE
contains
subroutine CALLFORTRAN(n,myArray) BIND (C, NAME = 'CALLFORTRAN')
  INTEGER(C_INT),  INTENT(IN   )  :: n
  REAL(C_FLOAT),   INTENT(IN   )  :: myArray(n)
  CALL PRINTARRAY(n,myArray)
end subroutine CALLFORTRAN

subroutine PRINTARRAY(n, myArray)
  INTEGER(C_INT),  INTENT(IN   )  :: n
  REAL(C_FLOAT),   INTENT(IN   )  :: myArray(n)
  print *, myArray(1), myArray(2)
end subroutine PRINTARRAY
END MODULE TEST

Код C с именем файла main.c

#include <stdio.h>
#include <stdlib.h>
extern void CALLFORTRAN(int* n, float* myArray);

int main()
{
   int n=2;
   float*  myArray = (float*) malloc(2);
   myArray[0] = 0.5;
   myArray[1] = 1.5;
   CALLFORTRAN(&n,myArray);
   return 0;
}

вы можете скомпилировать с:

gfortran -c FORTRANFunc.f90
gfortran main.c FORTRANFunc.o -o test

затем вы выполняете с:

./test

Результат должен быть:

  0.500000000       1.50000000