re PR fortran/69867 (ICE on initializing character in type with array of incompatible data)

2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/69867
	* decl.c (build_struct): Ensure that pointers point to something.

2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/69867
	* gfortran.dg/pr69867.f90: New test.

From-SVN: r238907

gcc/fortran/ChangeLog

 2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>
 
+	PR fortran/69867
+	* decl.c (build_struct): Ensure that pointers point to something.
+
+2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>
+
 	PR fortran/69962
 	* decl.c (gfc_set_constant_character_len):  if expr is not
 	constant issue an error instead of an ICE.

gcc/fortran/decl.c

@@ -1926,7 +1926,9 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init,
 
       if (c->initializer->expr_type == EXPR_CONSTANT)
 	gfc_set_constant_character_len (len, c->initializer, -1);
-      else if (mpz_cmp (c->ts.u.cl->length->value.integer,
+      else if (c->initializer
+		&& c->initializer->ts.u.cl
+		&& mpz_cmp (c->ts.u.cl->length->value.integer,
 			    c->initializer->ts.u.cl->length->value.integer))
 	{
 	  gfc_constructor *ctor;

gcc/testsuite/ChangeLog

 2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>
 
+	PR fortran/69867
+	* gfortran.dg/pr69867.f90: New test.
+
+2016-07-30  Steven G. Kargl  <kargl@gcc.gnu.org>
+
 	PR fortran/69962
 	* gfortran.dg/pr69962.f90: New test.
 

gcc/testsuite/gfortran.dg/pr69867.f90

+! { dg-do compile }
+program p
+ type t
+  character(1) :: c(1)=[1] ! { dg-error "convert INTEGER.4. to CHARACTER.1." }
+ end type
+end