Discussion :

[tiresias54]

Bonjour,

Le programme suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

f90 test.f90 -o test.bin

fonctionne (compilateur sunstudio version 12)

Par contre le même programme splité:

fichier main.f90:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

compilé par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[__dardanos__]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tiresias54]

ça fonctionne merci!