[Bug fortran/85840] Memory leak in write.c

[jjcogliati-r1 at yahoo dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85840

Joshua Cogliati <jjcogliati-r1 at yahoo dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jjcogliati-r1 at yahoo dot com

--- Comment #2 from Joshua Cogliati <jjcogliati-r1 at yahoo dot com> ---
I haven't found a short reproducer yet.

Here is how I can reproduce it.

Get marbles from:
http://jjc.freeshell.org/marbles/marbles.tar.gz


tar -xzf marbles.tar.gz

cd marbles/src
cat > short <<EOF
runs 100
done
EOF

make
valgrind --leak-check=full ./marbles9 short



and with that you get output like:
==15790== 646,000 bytes in 2,000 blocks are definitely lost in loss record 65
of 70
==15790==    at 0x4C2CB6B: malloc (vg_replace_malloc.c:299)
==15790==    by 0x4E53454: _gfortrani_xmalloc (memory.c:42)
==15790==    by 0x4FD637A: write_float_0 (write.c:1593)
==15790==    by 0x4FCD98C: formatted_transfer_scalar_write (transfer.c:2041)
==15790==    by 0x4FCDF9C: formatted_transfer (transfer.c:2279)
==15790==    by 0x421CC6:
__marbles9_common_module_MOD_display_pebble_info.constprop.72
(marbles9_common_module.f90:1058)
==15790==    by 0x4061EA: do_runs.3497 (marbles9.f90:611)
==15790==    by 0x40CB2D: MAIN__ (marbles9.f90:497)
==15790==    by 0x4011EC: main (marbles9.f90:42)


The line marbles9_common_module.f90:1058
is
       PRINT '(A3,I6,9(1X,F0.11))',"P:
",j,pp(j)%x,pp(j)%y,pp(j)%z,pv(j)%x,pv(j)%y,pv(j)%z,pw(j)%x,pw(j)%y,pw(j)%z


with inputs that take longer to run, I can also get it to trigger on other
lines such as 1124:
       print '(A16,I7,6E25.16E3)',"#P_surface_slip ",i,&
            current_state%pss(i)%x,current_state%pss(i)%y,&
            current_state%pss(i)%z,0.0,0.0,0.0