mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 20:06:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/45432 (gfortran.dg/allocate_alloc_opt_9.f90: Segfault due to invalid FREE)

Browse Source 
2010-08-27  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/45432
	* match.c (gfc_match_allocate): Avoid double free on error.

From-SVN: r163599
This commit is contained in:
Janus Weil 2010-08-27 23:50:47 +02:00
parent 7042fe5ef8
commit b052cbd0cd
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2010-08-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/45432
* match.c (gfc_match_allocate): Avoid double free on error.
2010-08-27 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/32049

4
gcc/fortran/match.c
View File

@ -2955,6 +2955,7 @@ alloc_opt_list:
}
stat = tmp;
tmp = NULL;
saw_stat = true;
if (gfc_check_do_variable (stat->symtree))
@ -2981,6 +2982,7 @@ alloc_opt_list:
}
errmsg = tmp;
tmp = NULL;
saw_errmsg = true;
if (gfc_match_char (',') == MATCH_YES)
@ -3019,6 +3021,7 @@ alloc_opt_list:
}
source = tmp;
tmp = NULL;
saw_source = true;
if (gfc_match_char (',') == MATCH_YES)
@ -3050,6 +3053,7 @@ alloc_opt_list:
}
mold = tmp;
tmp = NULL;
saw_mold = true;
mold->mold = 1;