[6 Regession] Usage of unitialized pointer io/list_read.c (

Jerry DeLisle jvdelisle@charter.net
Tue Feb 16 20:50:00 GMT 2016


On 02/16/2016 11:38 AM, Dominique d'Humières wrote:
> With the following reduced test
> 
> program test
>   implicit none
>   integer :: i, j, k, ios
>   integer, parameter :: big = 600
>   character(kind=4,len=big) :: str1, str2
> 
>   do i=1,big, 10
>     do j = 0, 9
>       k = i + j
>       str2(k:k) = char(65+j)
>     end do
>   end do
>   open(15, status='scratch', encoding="utf-8")
>   write(15,*) "  'abcdefgh!'", " ", str2
>   rewind(15)
>   read(15,*,iostat=ios) str1, str2
>   close(15)
> end program
> 
> valgrind shows a lot of errors before and after the commit.
> 

Yes, its modeled after the kind=1 version, push_char. I am thinking that we are
allocating as kind=4 and trying to free as kind=1, so the free is messed up.

More on this later.

Jerry



More information about the Fortran mailing list