From: Craig Burley <burley@gnu.org>
Date: Sun, 26 Jul 1998 14:49:27 +0000 (-0400)
Subject: Fix 980615-0.f:
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=99b712ffc9cb63c73e144214dc54f165ec59e8be;p=gcc.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: r21401
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index b2f5ed09c5e..806841a40b3 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 937e661d14b..e720f9dd03e 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 5bc030bcda1..001df0c69f8 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";