From: Harald Anlauf <anlauf@gmx.de>
Date: Thu, 2 Jul 2020 18:41:51 +0000 (+0200)
Subject: PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d9fb6f2b4f1321b059807ff6073156f07d9d376b;p=gcc.git

PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441

When declaring a polymorphic variable that is not a dummy, allocatable or
pointer, an ICE occurred due to a NULL pointer dereference.  Check for
that situation and punt.

gcc/fortran/
	PR fortran/93337
	* class.c (gfc_find_derived_vtab): Punt if name is not set.
---

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 08705c7e95d..d6847eb0004 100644
--- a/gcc/fortran/class.c
+++ b/gcc/fortran/class.c
@@ -2277,6 +2277,9 @@ gfc_find_derived_vtab (gfc_symbol *derived)
   if (!derived)
     return NULL;
 
+  if (!derived->name)
+    return NULL;
+
   /* Find the gsymbol for the module of use associated derived types.  */
   if ((derived->attr.use_assoc || derived->attr.used_in_submodule)
        && !derived->attr.vtype && !derived->attr.is_class)
diff --git a/gcc/testsuite/gfortran.dg/pr93337.f90 b/gcc/testsuite/gfortran.dg/pr93337.f90
new file mode 100644
index 00000000000..5cfb9297990
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr93337.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441
+
+program p
+  type t
+     character(:), allocatable :: a
+  end type t
+  class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
+  x = x         ! { dg-error "must not be polymorphic in intrinsic assignment" }
+end