From: Harald Anlauf <anlauf@gmx.de>
Date: Sat, 7 Aug 2021 18:30:32 +0000 (+0200)
Subject: Fortran: ICE with automatic character object, save, and various options
X-Git-Tag: basepoints/gcc-13~5517
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cd754efa9a5349c693919046b8be074395ea114e;p=thirdparty%2Fgcc.git

Fortran: ICE with automatic character object, save, and various options

gcc/fortran/ChangeLog:

	PR fortran/68568
	* primary.c (gfc_expr_attr): Variable attribute can only be
	inquired when symtree is non-NULL.
---

diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 9fe8d1ee20ce..56a78d6f89f4 100644
--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -2779,7 +2779,7 @@ gfc_expr_attr (gfc_expr *e)
 	       && e->value.function.isym->transformational
 	       && e->ts.type == BT_CLASS)
 	attr = CLASS_DATA (e)->attr;
-      else
+      else if (e->symtree)
 	attr = gfc_variable_attr (e, NULL);
 
       /* TODO: NULL() returns pointers.  May have to take care of this