re PR fortran/87992 (ICE in resolve_fl_variable, at fortran/resolve.c:12314)

2018-12-19  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/87992
	* resolve.c (resolve_fl_variable): Avoid a NULL pointer.

2018-12-19  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/87992
	* gfortran.dg/pr87992.f90: New test.

From-SVN: r267288

gcc/fortran/ChangeLog

+2018-12-19  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/87992
+	* resolve.c (resolve_fl_variable): Avoid a NULL pointer.
+
 2018-12-16  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	* resolve.c (resolve_transfer): Remove dead code.

gcc/fortran/resolve.c

@@ -12310,7 +12310,11 @@ resolve_fl_variable (gfc_symbol *sym, int mp_flag)
     {
       /* Make sure that character string variables with assumed length are
 	 dummy arguments.  */
-      e = sym->ts.u.cl->length;
+      if (sym->ts.u.cl)
+	e = sym->ts.u.cl->length;
+      else
+	return false;
+
       if (e == NULL && !sym->attr.dummy && !sym->attr.result
 	  && !sym->ts.deferred && !sym->attr.select_type_temporary
 	  && !sym->attr.omp_udr_artificial_var)

gcc/testsuite/ChangeLog

+2018-12-19  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/87992
+	* gfortran.dg/pr87992.f90: New test.
+
 2018-12-19  Uros Bizjak  <ubizjak@gmail.com>
 
 	* gcc.target/i386/avx512dq-pr82855.c: Update scan-assembler pattern.

gcc/testsuite/gfortran.dg/pr87992.f90

+! { dg-do compile }
+subroutine s(x)
+   class(*), allocatable :: x
+   x = ''
+end