세그멘테이션 결함 C 포트란

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); 

및 포트란 코드는 이것이다 :

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) 

그 변화와 함께, 그것은 나를 위해 작동합니다.