[Bug fortran/17792] New: deallocate does not return stat

[sfilippone at uniroma2 dot it]

The following code should return 0 in info:
-------------------------------------------
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
-------------------------------------------
[sfilippo@euler CODE]$ gfortran -v  try.f90 -o try
Driving: gfortran -v try.f90 -o try -lgfortranbegin -lgfortran -lm -shared-libgcc
Reading specs from /home/local/gfortran/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/specs
Configured with: ../gcc-4.0-20040926/configure --prefix=/usr/local/gfortran
Thread model: posix
gcc version 4.0.0 20040926 (experimental)
 /home/local/gfortran/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/f951 try.f90
-quiet -dumpbase try.f90 -mtune=pentiumpro -auxbase try -version -o /tmp/cc6VWeJf.s
GNU F95 version 4.0.0 20040926 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 4.0.0 20040926 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 as -V -Qy -o /tmp/ccIr28ep.o /tmp/cc6VWeJf.s
GNU assembler version 2.14.90.0.6 (i386-redhat-linux) using BFD version
2.14.90.0.6 20030820
 /home/local/gfortran/bin/../libexec/gcc/i686-pc-linux-gnu/4.0.0/collect2
--eh-frame-hdr -m elf_i386 -dynamic-linker /lib/ld-linux.so.2 -o try
/usr/lib/crt1.o /usr/lib/crti.o
/home/local/gfortran/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/crtbegin.o
-L/home/local/gfortran/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0
-L/home/local/gfortran/bin/../lib/gcc
-L/usr/local/gfortran/lib/gcc/i686-pc-linux-gnu/4.0.0
-L/home/local/gfortran/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/../../..
-L/usr/local/gfortran/lib/gcc/i686-pc-linux-gnu/4.0.0/../../.. /tmp/ccIr28ep.o
-lgfortranbegin -lgfortran -lm -lgcc_s -lgcc -lc -lgcc_s -lgcc
/home/local/gfortran/bin/../lib/gcc/i686-pc-linux-gnu/4.0.0/crtend.o /usr/lib/crtn.o

[sfilippo@euler CODE]$ ./try
 From deallocate:  1073958278

-- 
           Summary: deallocate does not return stat
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: sfilippone at uniroma2 dot it
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17792