erreur de segmentation en fonction de la manière de compiler

Version imprimable

Bonjour,

Le programme suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
      program test
      character(80), pointer, dimension(:) :: x
 
      allocate(x(100))
      call subtest(x)
      print*, x(1)
 
      contains
 
      subroutine subtest(X)
      character(80), intent(out), dimension(:) :: X
      X=""
      X(1) = "bonjour"
      end subroutine subtest
 
      end program test

compilé par:

Code:

f90 test.f90 -o test.bin

fonctionne (compilateur sunstudio version 12)

Par contre le même programme splité:

fichier main.f90:

Code:

1
2
3
4
5
6
7
8
      program test
      character(80), pointer, dimension(:) :: x
 
      allocate(x(100))
      call subtest(x)
      print*, x(1)
 
      end program test

fichier sub.f90:

Code:

1
2
3
4
5
      subroutine subtest(X)
      character(80), intent(out), dimension(:) :: X
      X=""
      X(1) = "bonjour"
      end subroutine subtest

compilé par:

Code:

1
2
f90 sub.f90 -c
f90 sub.o main.f90 -o main.bin

plante avec une erreur de segmentation (le débogueur dit que le tableau n'est pas alloué).

Quelqu'un aurait une idée? :oops:

Salut.
Des pointeurs sont passés en argument de la procédure. Dans ce cas, l'interfaçage est indispensable pour que le compilateur ne transmette pas le pointeur mais l'objet pointé.
N'oublie les bonnes pratiques de développement : « implicit none », compiler à minima en activant les messages d'alerte.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test
      implicit none
 
      interface
        subroutine subtest(X)
          character(80), intent(out) :: X(:)
        end subroutine subtest       
      end interface
 
      character(80), pointer :: x(:)
 
      allocate(x(100))
      x(1) = "salusava"
      print *, x(1)
      call subtest(x)
      print *, x(1)
 
end program test

Code:

1
2
3
4
5
6
7
subroutine subtest(X)
     character(80), intent(out) :: X(:)
     print *, "in sub 1 :", x(1)
     X = ""
     X(1) = "bonjour"
     print *, "in sub 2:", x(1)
end subroutine subtest

25/11/2014, 09h18
tiresias54

ça fonctionne merci! :)