sync g77 to version 0.5.20 - i hope i got everything right because there

is no patch from 0.5.19 to 0.5.20 - so i did it by diffing two gcc trees
looking carefully at the results

what does the new g77 give us:
* now it completely works on the alpha (64bit)
* faster
* less bugs :-)

1 files changed, 9 insertions, 3 deletions

diff --git a/gnu/usr.bin/gcc/f/symbol.c b/gnu/usr.bin/gcc/f/symbol.c
index f4978a0dc24..8b6595dcddd 100644
--- a/gnu/usr.bin/gcc/f/symbol.c
+++ b/gnu/usr.bin/gcc/f/symbol.c
@@ -1,5 +1,5 @@
 /* Implementation of Fortran symbol manager
-   Copyright (C) 1995 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996 Free Software Foundation, Inc.
    Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
 
 This file is part of GNU Fortran.
@@ -359,7 +359,6 @@ ffesymbol_check (ffesymbol s, ffelexToken t, bool maybe_intrin)
   ffeintrinGen gen;
   ffeintrinSpec spec;
   ffeintrinImp imp;
-  ffeinfoKind kind;
 
   if (!ffesrc_check_symbol ()
       || ((s->check_state != FFESYMBOL_checkstateNONE_)
@@ -377,7 +376,7 @@ ffesymbol_check (ffesymbol s, ffelexToken t, bool maybe_intrin)
 
   if (maybe_intrin
       && ffeintrin_is_intrinsic (ffelex_token_text (t), NULL, FALSE,
-				 &gen, &spec, &imp, &kind))
+				 &gen, &spec, &imp))
     {
       s->check_state = FFESYMBOL_checkstatePENDING_;
       s->check_token = ffelex_token_use (t);
@@ -864,6 +863,13 @@ ffesymbol_error (ffesymbol s, ffelexToken t)
 }
 
 void
+ffesymbol_globalize (ffesymbol s)
+{
+  if (ffesymbol_global (s) == NULL)
+    ffesymbol_set_global (s, ffeglobal_promoted (s));
+}
+
+void
 ffesymbol_init_0 ()
 {
   ffesymbolAttrs attrs = FFESYMBOL_attrsetNONE;