[Bug fortran/58803] New: free_components deallocates twice pointer p->tb at symbol.c:2068

[Bug fortran/58803] New: free_components deallocates twice pointer p->tb at symbol.c:2068

[zeccav at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58803

            Bug ID: 58803
           Summary: free_components deallocates twice pointer p->tb at
                    symbol.c:2068
           Product: gcc
           Version: 4.8.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: zeccav at gmail dot com

! free_components deallocates twice pointer p->tb at symbol.c:2068
! you may double check with "export MALLOC_CHECK_=2"
      type t
       procedure(real), pointer, nopass  :: f1, f2
      end type
      end
*** Error in
`/home/vitti/local/gcc-4.8.2/libexec/gcc/x86_64-unknown-linux-gnu/4.8.2/f951':
free(): invalid pointer: 0x0000000002150b00 ***
with export MALLOC_CHECK_=2 I get the following

[vitti f95]$gfortran gfbug98.f
gfbug98.f:6:0: internal compiler error: Aborted
       end
 ^
0x869b1f crash_signal
    ../../gcc-4.8.2/gcc/toplev.c:332
0x581eb0 free_components
    ../../gcc-4.8.2/gcc/fortran/symbol.c:2068
0x581eb0 gfc_free_symbol(gfc_symbol*)
    ../../gcc-4.8.2/gcc/fortran/symbol.c:2496
0x582063 free_sym_tree
    ../../gcc-4.8.2/gcc/fortran/symbol.c:3302
0x58205a free_sym_tree
    ../../gcc-4.8.2/gcc/fortran/symbol.c:3300
0x582051 free_sym_tree
    ../../gcc-4.8.2/gcc/fortran/symbol.c:3299
0x581d1a gfc_free_namespace(gfc_namespace*)
    ../../gcc-4.8.2/gcc/fortran/symbol.c:3465
0x5822cf gfc_symbol_done_2()
    ../../gcc-4.8.2/gcc/fortran/symbol.c:3507
0x53f288 gfc_done_2()
    ../../gcc-4.8.2/gcc/fortran/misc.c:267
0x5527f9 translate_all_program_units
    ../../gcc-4.8.2/gcc/fortran/parse.c:4493
0x5527f9 gfc_parse_file()
    ../../gcc-4.8.2/gcc/fortran/parse.c:4688
0x58e195 gfc_be_parse_file
    ../../gcc-4.8.2/gcc/fortran/f95-lang.c:189
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.

[Bug fortran/58803] Proc-pointer component: free_components deallocates twice pointer p->tb at symbol.c:2068

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58803

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Author: burnus
Date: Mon Oct 21 19:39:19 2013
New Revision: 203909

URL: http://gcc.gnu.org/viewcvs?rev=203909&root=gcc&view=rev
Log:
2013-10-21  Tobias Burnus  <burnus@net-b.de>

        PR fortran/58803
        * decl.c (match_ppc_decl): Prevent later
        double free.

2013-10-21  Tobias Burnus  <burnus@net-b.de>

        PR fortran/58803
        * gfortran.dg/proc_ptr_comp_38.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_38.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/58803] Proc-pointer component: free_components deallocates twice pointer p->tb at symbol.c:2068

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58803

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |FIXED

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> ---
FIXED on the trunk (4.9).

Thanks for the report!