trans-expr.c (gfc_conv_initializer): Fix expr == NULL check.

2007-09-12  Tobias Burnus  <burnus@net-b.de>

	* trans-expr.c (gfc_conv_initializer): Fix expr == NULL check.

From-SVN: r128422

gcc/fortran/ChangeLog

+2007-09-12  Tobias Burnus  <burnus@net-b.de>
+
+	* trans-expr.c (gfc_conv_initializer): Fix expr == NULL check.
+
 2007-09-12  Jan Hubicka  <jh@suse.cz>
 
 	* f95-lang.c (LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.

gcc/fortran/trans-expr.c

@@ -2855,7 +2855,8 @@ gfc_conv_initializer (gfc_expr * expr, gfc_typespec * ts, tree type,
      (these are the only two iso_c_binding derived types that can be
      used as initialization expressions).  If so, we need to modify
      the 'expr' to be that for a (void *).  */
-  if (expr->ts.type == BT_DERIVED && expr->ts.is_iso_c && expr->ts.derived)
+  if (expr != NULL && expr->ts.type == BT_DERIVED
+      && expr->ts.is_iso_c && expr->ts.derived)
     {
       gfc_symbol *derived = expr->ts.derived;