]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
Fortran: ICE with automatic character object, save, and various options
authorHarald Anlauf <anlauf@gmx.de>
Sat, 7 Aug 2021 18:30:32 +0000 (20:30 +0200)
committerHarald Anlauf <anlauf@gmx.de>
Sat, 7 Aug 2021 18:30:32 +0000 (20:30 +0200)
gcc/fortran/ChangeLog:

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

gcc/fortran/primary.c

index 9fe8d1ee20cea2e93032924eebcf9932b6beb192..56a78d6f89f4e4f58ac2df4bcc6845e450ed5f91 100644 (file)
@@ -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