deallocate error: free(): invalid next size (fast)

[gio2k]

I am debugging a program compiled with intel fortran 9.0 for linux, the code looks like this:

module yyy

integer, allocatable :: s(:,:)

contains

subroutine xxx
if (ALLOCATED(s)) then
write(*,*) 'de-allocating s() matrix0'
DEALLOCATE(s, STAT=ierr)
write(*,*) 'de-allocating s() matrix1'
endif
end subroutine xxx
end module

The deallocate statement crashes my application with the following information:

*** glibc detected *** free(): invalid next size (fast): 0x08a523d8 ***
forrtl: error (76): IOT trap signal

Anyone has an idea how to fix this?

[gio2k]

Never mind. The bug was actually somewhere else. I found the offending code after compiling with the -check option.