ошибка сегментации С и Фортран - PullRequest
Новая
       50

ошибка сегментации С и Фортран

0 голосов
/ 15 августа 2011

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

1 Ответ

2 голосов
/ 15 августа 2011

Ваш 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

Это неверно с двух сторон - как отмечает Зак, массивы Фортрана 1-индексированы (даже если они приходят откуда-то еще, например, C). Так что это должно начинаться с 1. Кроме того, если бы 0 было правильным, размер был бы неправильным. Вы хотите что-то вроде 

    do concurrent (i=1:h)

С этим изменением оно работает для меня.

...