expr.c (ffeexpr_sym_impdoitem_): Don't blindly reset symbol info after calling…

expr.c (ffeexpr_sym_impdoitem_): Don't blindly reset symbol info after calling ffesymbol_error, to avoid crash.

        * expr.c (ffeexpr_sym_impdoitem_): Don't blindly
        reset symbol info after calling ffesymbol_error,
        to avoid crash.
Another patch from Craig.

From-SVN: r18863

gcc/f/ChangeLog

+Mon Mar 16 21:20:35 1998  Craig Burley  <burley@gnu.org>
+
+	* expr.c (ffeexpr_sym_impdoitem_): Don't blindly
+	reset symbol info after calling ffesymbol_error,
+	to avoid crash.
+
 Mon Mar 16 15:38:50 1998  Craig Burley  <burley@gnu.org>
 
 	* Version 0.5.22 released.

gcc/f/expr.c

@@ -16467,6 +16467,8 @@ ffeexpr_sym_impdoitem_ (ffesymbol sp, ffelexToken t)
 					   version. */
 	  if (!ffeimplic_establish_symbol (sp))
 	    ffesymbol_error (sp, t);
+	  else
+	    {
 	      ffesymbol_set_info (sp,
 				  ffeinfo_new (ffesymbol_basictype (sp),
 					       ffesymbol_kindtype (sp),
@@ -16482,6 +16484,7 @@ ffeexpr_sym_impdoitem_ (ffesymbol sp, ffelexToken t)
 	      ffesymbol_signal_unreported (sp);	/* For debugging purposes. */
 	    }
 	}
+    }
 
   /* Here we create the sfunc-name-space symbol representing what should
      become an iterator in this name space at this or an outermore (lower-