Fix 980615-0.f:

Sat Jul 25 17:23:55 1998  Craig Burley  <burley@gnu.org>
	Fix 980615-0.f:
	* stc.c (ffestc_R1229_start): Set info to ANY as well.

From-SVN: r21401

gcc/f/ChangeLog

@@ -2,6 +2,11 @@
 
 	* BUGS, INSTALL, NEWS: Rebuilt.
 
+Sat Jul 25 17:23:55 1998  Craig Burley  <burley@gnu.org>
+
+	Fix 980615-0.f:
+	* stc.c (ffestc_R1229_start): Set info to ANY as well.
+
 Tue Jul 21 04:33:37 1998  Craig Burley  <burley@gnu.org>
 
 	* g77spec.c (lang_specific_driver): Return unmolested

gcc/f/stc.c

@@ -12798,6 +12798,7 @@ ffestc_R1229_start (ffelexToken name, ffesttTokenList args,
 	{
 	  /* Tell ffeexpr that sfunc def is in progress.  */
 	  ffesymbol_set_sfexpr (s, ffebld_new_any ());
+	  ffebld_set_info (ffesymbol_sfexpr (s), ffeinfo_new_any ());
 	  ffestc_parent_ok_ = TRUE;
 	}
     }

gcc/f/version.c

-char *ffe_version_string = "0.5.24-19980718";
+char *ffe_version_string = "0.5.24-19980725";