Fortran: Free type-bound procedure structs
authorBernhard Reutner-Fischer <aldot@gcc.gnu.org>
Wed, 6 Dec 2017 21:55:10 +0000 (22:55 +0100)
committerBernhard Reutner-Fischer <aldot@gcc.gnu.org>
Fri, 29 Oct 2021 16:26:27 +0000 (18:26 +0200)
commit7883a7f07c1ad9c8aaccc5bbd96e0ae1fa230c89
tree386260693883ed0ed8018f7b36b665e783eb5b3e
parent5380cf0272800847858e117740efaa6d0d6a3996
Fortran: Free type-bound procedure structs

compiling gfortran.dg/typebound_proc_31.f90 leaked the type-bound
structs:

56 bytes in 1 blocks are definitely lost.
  at 0x4C2CC05: calloc (vg_replace_malloc.c:711)
  by 0x151EA90: xcalloc (xmalloc.c:162)
  by 0x8E3E4F: gfc_get_typebound_proc(gfc_typebound_proc*) (symbol.c:4945)
  by 0x84C095: match_procedure_in_type (decl.c:10486)
  by 0x84C095: gfc_match_procedure() (decl.c:6696)
...

gcc/fortran/ChangeLog:

2017-12-06  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

* symbol.c (free_tb_tree): Free type-bound procedure struct.
(gfc_get_typebound_proc): Use explicit memcpy for clarity.
gcc/fortran/symbol.c