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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203909
138bc75d-0d04-0410-961f-
82ee72b054a4
+2013-10-21 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/58803
+ * decl.c (match_ppc_decl): Prevent later
+ double free.
+
2013-10-17 Andrew MacLeod <amacleod@redhat.com>
* trans-openmp.c: Include omp-low.h.
if (!gfc_add_proc (&c->attr, name, NULL))
return MATCH_ERROR;
- c->tb = tb;
+ if (num == 1)
+ c->tb = tb;
+ else
+ {
+ c->tb = XCNEW (gfc_typebound_proc);
+ c->tb->where = gfc_current_locus;
+ *c->tb = *tb;
+ }
/* Set interface. */
if (proc_if != NULL)
+2013-10-21 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/58803
+ * gfortran.dg/proc_ptr_comp_38.f90: New.
+
2013-10-21 Marek Polacek <polacek@redhat.com>
PR middle-end/58809
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/58803
+!
+! Contributed by Vittorio Zecca
+!
+! Was before ICEing due to a double free
+!
+ type t
+ procedure(real), pointer, nopass :: f1, f2
+ end type
+ end