This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
deallocate
- From: Salvatore Filippone <sfilippone at uniroma2 dot it>
- To: fortran at gcc dot gnu dot org
- Date: Fri, 01 Oct 2004 17:52:20 +0200
- Subject: deallocate
Ok, here is my second attempt in two days to make a fool of myself
(having been successful at the first one).
I fail to see why the attached code does not come out with info==0
i686-linux, 20040926 snapshot
[sfilippo@euler CODE]$ gfortran -o try try.f90
[sfilippo@euler CODE]$ ./try
From deallocate: 1073958278
-----------------------------------------------------------
program try
type item
integer :: i
type(item), pointer :: next
end type item
type(item), pointer :: this=>null()
integer :: info
allocate(this)
deallocate(this,stat=info)
print *,'From deallocate:',info
end program try
--
Salvatore Filippone -- sfilippone@NOSPAMuniroma2.it