Pointer Fortran 90

Bonjour à tous...

Voilà un petit programme de FORTRAN 90

Code:

---

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

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:

---

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:

---

1 2	1.000000000000000 2.000000000000000

---

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

Code:

---

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.

Très exact!

Merci bien :)