Я пытаюсь вызвать функцию C ++ в подпрограмме Fortran. Эта функция C ++ должна обновлять целочисленный массив. Вот нерабочий код, который я написал. В чем проблема?

! Fortran function that calls a C++ function.

subroutine my_function()

      integer(4) ar(*)

      integer(4) get_filled_ar

      ! Need correct syntax here.
      ar = get_filled_ar()
end


// C++ function:

    extern "C" {
        void get_filled_ar(int *ar){
            ar[0] = 1;
            ar[1] = 10;
            ar[3] = 100;
        }
    }