Discussion :

[Fortran90]

Bonjour à tous...

Voilà un petit programme de FORTRAN 90

Code :

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

1
2
3
4
5
6
7
8
9
IMPLICIT NONE
REAL*8, POINTER::v(
ALLOCATE(v(2))
v(1) = 1d0
v(2) = 2d0
write(*,*) v
DEALLOCATE(v)
write(*,*) v
END

Et son résultat:
1.00000000000000000 2.00000000000000000
0.000000000000000000E+00 2.00000000000000000

Comment expliquer le fait que, malgré la désallocation du pointer v, v(2) est toujours référencé et contient encore la bonne valeur ? La mémoire est-elle vraiment désallouée ? En remplaçant POINTER par un tableau type ALLOCATE, le comportement n'est pas le même... pourquoi ?

Merci de votre aide !!!

[DaZumba]

Cela depend du compilateur que tu utilises - le tien semble autoriser beaucoup de choses.
En reprennant ton programme et le mettant au standard F90, on a

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
 
program toto
implicit none
 
double precision, dimension(:), pointer :: ptr
 
allocate(ptr(2))
ptr(1) = 1.0d0
ptr(2) = 2.0d0
 
write(*,*) ptr
deallocate(ptr)
write(*,*) ptr
 
end

En utilisant pgf90, le deuxieme write ne s'effectue pas:

Code :

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

1
2
 
    1.000000000000000         2.000000000000000

En utilisant ifc, le compilateur se plaint que le pointeur n'est plus valide:

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
 
   1.00000000000000        2.00000000000000
 
 
Input/Output Error 458: Object not allocated
 
   In Procedure: main program
        At Line: 12
 
      Statement: List-Directed WRITE
           Unit: 6
   Connected To: Stdout
           Form: Formatted (contains List-Directed records)
         Access: Sequential
Records Read   : 0
Records Written: 1
 
End of diagnostics

Regarde dans la doc de ton compilateur pour savoir s'il y a une option pour forcer la verification qu'un pointeur est ASSOCIATED(). Sinon, il faut le faire toi-meme.
Remarque que si tu n'avais pas mis le dimension(: ) dans la declaration de ton pointeur, cela n'aurait pas du compiler.

[Fortran90]

Très exact!

Merci bien