http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60922
Salvatore Filippone <sfilippone at uniroma2 dot it> changed:
What |Removed |Added
----------------------------------------------------------------------------
Summary|[4.10 regression] Memory |[4.9/4.10 regression]
|leak with INTENT(OUT) CLASS |Memory leak with
|argument w/ allocatable |INTENT(OUT) CLASS argument
|CLASS components |w/ allocatable CLASS
| |components
--- Comment #1 from Salvatore Filippone <sfilippone at uniroma2 dot it> ---
Yup, it is a regression in 4.9.0 as well.
[sfilippo@epsilon IMAGING]$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/opt/gnu/4.9.0/libexec/gcc/x86_64-unknown-linux-gnu/4.9.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc-4.9.0/configure --prefix=/opt/gnu/4.9.0
--enable-languages=c,c++,fortran --with-gmp=/usr/local/travel/GNU/gmp
--with-mpfr=/usr/local/travel/GNU/mpfr --with-mpc=/usr/local/travel/GNU/mpc
--with-cloog=/usr/local/travel/GNU/cloog
Thread model: posix
gcc version 4.9.0 (GCC)
[sfilippo@epsilon IMAGING]$ gfortran -o test_leak_490 -O3 test_leak.f90
[sfilippo@epsilon IMAGING]$ valgrind ./test_leak_490
==4473== Memcheck, a memory error detector
==4473== Copyright (C) 2002-2012, and GNU GPL'd, by Julian Seward et al.
==4473== Using Valgrind-3.8.1 and LibVEX; rerun with -h for copyright info
==4473== Command: ./test_leak_490
==4473==
Iteration 1
Iteration 2
==4473==
==4473== HEAP SUMMARY:
==4473== in use at exit: 6,291,552 bytes in 5 blocks
==4473== total heap usage: 32 allocs, 27 frees, 10,497,741 bytes allocated
==4473==
==4473== LEAK SUMMARY:
==4473== definitely lost: 48 bytes in 1 blocks
==4473== indirectly lost: 2,097,152 bytes in 1 blocks
==4473== possibly lost: 0 bytes in 0 blocks
==4473== still reachable: 4,194,352 bytes in 3 blocks
==4473== suppressed: 0 bytes in 0 blocks
==4473== Rerun with --leak-check=full to see details of leaked memory
==4473==
==4473== For counts of detected and suppressed errors, rerun with: -v
==4473== ERROR SUMMARY: 0 errors from 0 contexts (suppressed: 6 from 6)
