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

PR fortran/78746 - invalid access after error recovery

Browse Source 
The error recovery after an invalid reference to an undefined CLASS
during a TYPE declaration lead to an invalid access.  Add a check.

gcc/fortran/ChangeLog:

	* resolve.c (resolve_component): Add check for valid CLASS
	reference before trying to access CLASS data.
This commit is contained in:
Harald Anlauf 2021-01-06 19:37:11 +01:00
parent e6a5daae7e
commit 8b6f1e8f97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/resolve.c
View File

@ -14384,7 +14384,7 @@ resolve_component (gfc_component *c, gfc_symbol *sym)
/* F2008, C448. */
if (c->ts.type == BT_CLASS)
{
if (CLASS_DATA (c))
if (c->attr.class_ok && CLASS_DATA (c))
{
attr = &(CLASS_DATA (c)->attr);