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,19 +16467,22 @@ ffeexpr_sym_impdoitem_ (ffesymbol sp, ffelexToken t)
 					   version. */
 	  if (!ffeimplic_establish_symbol (sp))
 	    ffesymbol_error (sp, t);
-	  ffesymbol_set_info (sp,
-			      ffeinfo_new (ffesymbol_basictype (sp),
-					   ffesymbol_kindtype (sp),
-					   ffesymbol_rank (sp),
-					   kind,
-					   where,
-					   ffesymbol_size (sp)));
-	  ffesymbol_set_attrs (sp, na);
-	  ffesymbol_set_state (sp, ns);
-	  ffesymbol_resolve_intrin (sp);
-	  if (!ffesymbol_state_is_specable (ns))
-	    sp = ffecom_sym_learned (sp);
-	  ffesymbol_signal_unreported (sp);	/* For debugging purposes. */
+	  else
+	    {
+	      ffesymbol_set_info (sp,
+				  ffeinfo_new (ffesymbol_basictype (sp),
+					       ffesymbol_kindtype (sp),
+					       ffesymbol_rank (sp),
+					       kind,
+					       where,
+					       ffesymbol_size (sp)));
+	      ffesymbol_set_attrs (sp, na);
+	      ffesymbol_set_state (sp, ns);
+	      ffesymbol_resolve_intrin (sp);
+	      if (!ffesymbol_state_is_specable (ns))
+		sp = ffecom_sym_learned (sp);
+	      ffesymbol_signal_unreported (sp);	/* For debugging purposes. */
+	    }
 	}
     }