セグメンテーションフォールトCおよびFortran

Question

------ main.cの---------

#include <stdio.h> 
#include <stdlib.h> 
#include <dlfcn.h> 
#include <string.h> 

int main() 
{ 
    char* lib_name = "./a.out"; 
    int array[5] = {1,2,3,4,5}; 
    int size_a = sizeof(array)/sizeof(int);    
    void* handle = dlopen(lib_name, RTLD_NOW); 
    if (handle) { 
     printf("[%s] dlopen(\"%s\", RTLD_NOW): incarcare finalizata\n", 
      __FILE__, lib_name); 
    } 
    else { 
     printf("[%s] nu poate fi deschis: %s\n", __FILE__, dlerror()); 
     exit(EXIT_FAILURE); 
    } 
    void (*subrutine_fortran)(int*, int*) = dlsym(handle, "putere"); 
    if (subrutine_fortran) { 
     printf("[%s] dlsym(handle, \"_set_name\"): simbol gasit\n", __FILE__); 
    } 
    else { 
     printf("[%s] simbol negasit: %s\n", __FILE__, dlerror()); 
     exit(EXIT_FAILURE); 
    } 



    subrutine_fortran(&array,&size_a); 
    //dlclose(handle); 
    for(int i=1;i<4;i++) { 
    array[i]=array[i]+1; 
    } 
} 

------ hello.f90 --------

subroutine putere(a,h) bind(c) 
    use ISO_C_BINDING 
    implicit none 
    integer(c_int) :: h 
    integer(c_int), dimension(h) :: a 
    integer i 
    do concurrent (i=0:5) 
     a(i)=a(i)*10 
    end do 
    !write (*,*) a 
end subroutine 

私は配列の要素をループ実行すると：

for(int i=1;i<4;i++) { 
    array[i]=array[i]+1; 
} 

を私はセグメンテーションフォールトを取得します。

私が書くときには発生しません：

array[3]=array[3]+1 

Answer 1

あなたのCコードはこれです：

int array[5] = {1,2,3,4,5}; 
int size_a = sizeof(array)/sizeof(int);    

subrutine_fortran(&array,&size_a); 

とあなたのFortranコードはこれです：

subroutine putere(a,h) bind(c) 
    use ISO_C_BINDING 
    implicit none 
    integer(c_int) :: h 
    integer(c_int), dimension(h) :: a 
    integer i 
    do concurrent (i=0:5) 
     a(i)=a(i)*10 
    end do 
    !write (*,*) a 
end subroutine 

です間違った方法 - Zackが指摘しているように、Fortran配列は（Cのような他の場所から来た場合でも）1つのインデックスが付けられます。だから、これは1から始めるべきです。また、0が正しければ、サイズは間違っています。あなたは何かをしたいです

do concurrent (i=1:h) 

この変更で、それは私のために働いています。