Fix 980427-0.f:

Tue Apr 28 09:23:10 1998  Craig Burley  <burley@gnu.org>
	Fix 980427-0.f:
	* global.c (ffeglobal_ref_progunit_): When transitioning
	from EXT to FUNC, discard hook, since the decl, if any, is
	probably wrong.

From-SVN: r19574

gcc/f/ChangeLog

+Tue Apr 28 09:23:10 1998  Craig Burley  <burley@gnu.org>
+
+	Fix 980427-0.f:
+	* global.c (ffeglobal_ref_progunit_): When transitioning
+	from EXT to FUNC, discard hook, since the decl, if any, is
+	probably wrong.
+
 Tue Apr 14 14:40:40 1998  Craig Burley  <burley@gnu.org>
 
 	* com.c (ffecom_start_progunit_): Mark function decl

gcc/f/global.c

@@ -1360,6 +1360,9 @@ ffeglobal_ref_progunit_ (ffesymbol s, ffelexToken t, ffeglobalType type)
       /* We've learned more, so point to where we learned it.  */
       g->t = ffelex_token_use (t);
       g->type = type;
+#ifdef FFECOM_globalHOOK
+      g->hook = FFECOM_globalNULL;	/* Discard previous _DECL. */
+#endif
       g->u.proc.n_args = -1;
     }