[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