match.c (gfc_match_allocate): Check for NULL pointer.

2018-01-08  Steven G. Kargl  <kargl@gcc.gnu.org>

	* match.c (gfc_match_allocate): Check for NULL pointer.

From-SVN: r256364

gcc/fortran/ChangeLog

 2018-01-08  Steven G. Kargl  <kargl@gcc.gnu.org>
 
+	* match.c (gfc_match_allocate): Check for NULL pointer.
+
+2018-01-08  Steven G. Kargl  <kargl@gcc.gnu.org>
+
 	* expr.c (gfc_check_pointer_assign): Fix typo in comment.
 
 2018-01-08  Paul Thomas  <pault@gcc.gnu.org>

gcc/fortran/match.c

@@ -4071,7 +4071,7 @@ gfc_match_allocate (void)
 	 for which the corresponding type parameter is assumed.  */
       if (saw_assumed
 	  && (tail->expr->ts.deferred
-	      || tail->expr->ts.u.cl->length
+	      || (tail->expr->ts.u.cl && tail->expr->ts.u.cl->length)
 	      || tail->expr->symtree->n.sym->attr.dummy == 0))
 	{
 	  gfc_error ("Incompatible allocate-object at %C for CHARACTER "