Dear Fortranners,

I intend to commit the following pretty obvious fix within the next
24 hours unless there are objections.

Regtested on x86_64-pc-linux-gnu.

Thanks,
Harald

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.

gcc/testsuite/ChangeLog:

        PR fortran/68568
        * gfortran.dg/pr68568.f90: New test.

diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 9fe8d1ee20c..56a78d6f89f 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
diff --git a/gcc/testsuite/gfortran.dg/pr68568.f90 b/gcc/testsuite/gfortran.dg/pr68568.f90
new file mode 100644
index 00000000000..eab5744b363
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr68568.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! { dg-options "-finit-character=7 -Wsurprising" }
+! PR fortran/68568 - ICE with automatic character object, save, and options
+
+subroutine s(n) ! { dg-error "non-constant initialization expression" }
+  integer, intent(in) :: n
+  character(len=n) :: x
+  save
+  x = 'a'
+end

Reply via email to