https://bugzilla.novell.com/show_bug.cgi?id=891349
https://bugzilla.novell.com/show_bug.cgi?id=891349#c1
--- Comment #1 from Dr. Shamsundar 2014-08-11 18:12:52 UTC ---
Postscript: Here is a short Fortran program that exposes this bug.
program test_free_bug
implicit none
real, dimension (:), allocatable :: w
integer :: dim, err, locw, mskadr
dim = 100
print *, "Linear dimension of the matrix", dim
allocate(w(dim), stat=err)
if (err /= 0) print *, "w: allocation request denied"
locw = LOC(w)
write(*,'(A,Z16.16)')'Address of w after allocation = 0X',locw
mskadr=IAND(locw,Z'FC000000')
if(mskadr.eq.0)stop 'masked adrs =zero, will crash free() on Linux
libc.so.6'
if (allocated(w)) deallocate(w, stat=err)
if (err /= 0) print *, "w: deallocation request denied"
end program test_free_bug
--
Configure bugmail: https://bugzilla.novell.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug.