OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/27954 (ICE on garbage in DATA statement)

Browse Source 
2006-10-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/27954
	* decl.c (gfc_free_data_all): New function to free all data structures
	after errors in DATA statements and declarations.
	(top_var_list): Use new function.(top_val_list): Use new function.
	(gfc_match_data_decl): Use new function.
	* misc.c (gfc_typename): Fixed incorrect function name in error text.

From-SVN: r118084
This commit is contained in:
Jerry DeLisle 2006-10-27 20:47:28 +00:00
parent 95c0fb7a06
commit a9f6f1f27f
3 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,12 @@
2006-10-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/27954
* decl.c (gfc_free_data_all): New function to free all data structures
after errors in DATA statements and declarations.
(top_var_list): Use new function.(top_val_list): Use new function.
(gfc_match_data_decl): Use new function.
* misc.c (gfc_typename): Fixed incorrect function name in error text.
2006-10-24 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/29393

19
gcc/fortran/decl.c
View File

@ -128,6 +128,21 @@ gfc_free_data (gfc_data * p)
}
/* Free all data in a namespace. */
static void
gfc_free_data_all (gfc_namespace * ns)
{
gfc_data *d;
for (;ns->data;)
{
d = ns->data->next;
gfc_free (ns->data);
ns->data = d;
}
}
static match var_element (gfc_data_variable *);
/* Match a list of variables terminated by an iterator and a right
@ -262,6 +277,7 @@ top_var_list (gfc_data * d)
syntax:
gfc_syntax_error (ST_DATA);
gfc_free_data_all (gfc_current_ns);
return MATCH_ERROR;
}
@ -374,6 +390,7 @@ top_val_list (gfc_data * data)
syntax:
gfc_syntax_error (ST_DATA);
gfc_free_data_all (gfc_current_ns);
return MATCH_ERROR;
}
@ -2368,6 +2385,8 @@ ok:
gfc_error ("Syntax error in data declaration at %C");
m = MATCH_ERROR;
gfc_free_data_all (gfc_current_ns);
cleanup:
gfc_free_array_spec (current_as);
current_as = NULL;

2
gcc/fortran/misc.c
View File

@ -193,7 +193,7 @@ gfc_typename (gfc_typespec * ts)
strcpy (buffer, "UNKNOWN");
break;
default:
gfc_internal_error ("gfc_typespec(): Undefined type");
gfc_internal_error ("gfc_typename(): Undefined type");
}
return buffer;