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
