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 b2f5ed09c5ecc443faa798d2e9fcf434dadbf88d..806841a40b3ee3eb2f3f30e2cdb1ade9e939b4e5 100644 (file)
--- 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 937e661d14b69e7c87965e74666d766c75171d63..e720f9dd03e0e2eb9c31af1d1f11e6de17b54b11 100644 (file)
--- 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 5bc030bcda1d8826fa8ce0d7b3d93ca83bed1c6a..001df0c69f8c6eb5bb271c3ee40e2031cc6de9d5 100644 (file)
--- 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";