From: Craig Burley <burley@gnu.org>
Date: Sun, 26 Jul 1998 14:43:36 +0000 (-0400)
Subject: Fix 980615-0.f:
X-Git-Tag: prereleases/egcs-1.1-prerelease~165
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=47d60857de57a4a9b0306cf7601599f8879bf717;p=thirdparty%2Fgcc.git

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: r21400
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 21b669c9d8dd..4da2c4e707cb 100644
--- a/gcc/f/ChangeLog
+++ b/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
diff --git a/gcc/f/stc.c b/gcc/f/stc.c
index 937e661d14b6..e720f9dd03e0 100644
--- a/gcc/f/stc.c
+++ b/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;
 	}
     }
diff --git a/gcc/f/version.c b/gcc/f/version.c
index 5bc030bcda1d..001df0c69f8c 100644
--- a/gcc/f/version.c
+++ b/gcc/f/version.c
@@ -1 +1 @@
-char *ffe_version_string = "0.5.24-19980718";
+char *ffe_version_string = "0.5.24-19980725";