20000306 hppa2.0-hp-hpux10.20 f771 SEGVs

[Rodney Brown <rdb at localhost>]

bash-2.02$ gdb ../f771 core
Hewlett-Packard Wildebeest 0.75.04 10-Sep-1998 17:34 (based on GDB 4.16)
(built for PA-RISC 1.1 or 2.0, HP-UX 10.20)
Copyright 1996, 1997 Free Software Foundation, Inc...
Core was generated by `f771'.
Program terminated with signal 10, Bus error.

#0  0xd4b34 in ffesymbol_resolve_intrin (s=0x0)
    at ../../../egcs-20000306/gcc/f/symbol.c:1201
1201      if (!ffesrc_check_symbol ())
#0  0xd4b34 in ffesymbol_resolve_intrin (s=0x0)
    at ../../../egcs-20000306/gcc/f/symbol.c:1201
1201      if (!ffesrc_check_symbol ())
(gdb) bt
#0  0xd4b34 in ffesymbol_resolve_intrin (s=0x0)
    at ../../../egcs-20000306/gcc/f/symbol.c:1201
#1  0x766f0 in ffeexpr_sym_lhs_call_ (s=0x400660c8, t=0x40065ef0)
    at ../../../egcs-20000306/gcc/f/expr.c:16652
#2  0x7564c in ffeexpr_declare_unadorned_ (t=0x40065ef0, maybe_intrin=-8)
    at ../../../egcs-20000306/gcc/f/expr.c:15896
#3  0x736dc in ffeexpr_token_name_lhs_ (t=0x40065ae0)
    at ../../../egcs-20000306/gcc/f/expr.c:15113
#4  0x96720 in ffestb_R1212 (t=0x40065ae0)
    at ../../../egcs-20000306/gcc/f/stb.c:7506
#5  0x8ac34 in ffesta_second_ (t=0x40065ae0)
    at ../../../egcs-20000306/gcc/f/sta.c:1359
#6  0x840d4 in ffelex_send_token_ () at ../../../egcs-20000306/gcc/f/lex.c:1696
#7  0x85788 in ffelex_file_fixed (wf=0x400660c8, f=0x7b013c60)
    at ../../../egcs-20000306/gcc/f/lex.c:2578
#8  0xdb7f8 in ffe_file (wf=0x40075cf0, f=0x7b013c60)
    at ../../../egcs-20000306/gcc/f/top.c:541
#9  0x88bbc in yyparse () at ../../../egcs-20000306/gcc/f/parse.c:79
#10 0xdff4c in compile_file (name=0x40075ce0 "/dev/null")
    at ../../egcs-20000306/gcc/toplev.c:2440
#11 0xe450c in main (argc=10, argv=0x7b03b114)
    at ../../egcs-20000306/gcc/toplev.c:4873
(gdb) l
1196    ffesymbol_resolve_intrin (ffesymbol s)
1197    {
1198      char c;
1199      ffebad bad;
1200    
1201      if (!ffesrc_check_symbol ())
1202        return;
1203      if (s->check_state != FFESYMBOL_checkstatePENDING_)
1204        return;
1205      if (ffebad_inhibit ())
(gdb) p s
$1 = 0x0
(gdb) up 1
#1  0x766f0 in ffeexpr_sym_lhs_call_ (s=0x400660c8, t=0x40065ef0)
    at ../../../egcs-20000306/gcc/f/expr.c:16652
16652         ffesymbol_resolve_intrin (s);
(gdb) p s
$2 = 0x400660c8
(gdb) p *s
$3 = {name = 0x40066098, other_space_name = 0x0, global = 0x0, attrs = 0, 
  state = FFESYMBOL_stateUNDERSTOOD, info = {
    basictype = FFEINFO_basictypeNONE, kindtype = FFEINFO_kindtypeNONE, 
    rank = 0 '\000', kind = FFEINFO_kindSUBROUTINE, 
    where = FFEINFO_whereGLOBAL, size = -1}, dims = 0x0, extents = 0x0, 
  dim_syms = 0x0, array_size = 0x0, init = 0x0, accretion = 0x0, 
  accretes = 0x0000000000000000, dummy_args = 0x0, namelist = 0x0, 
  common_list = 0x0, sfunc_expr = 0x0, list_bottom = 0x0, common = 0x0, 
  equiv = 0x0, storage = 0x0, hook = {decl_tree = 0x0, length_tree = 0x0, 
    vardesc_tree = 0x0, assign_tree = 0x0, addr = false}, 
  sfa_dummy_parent = 0x0, func_result = 0x0, value = 0, 
  check_state = FFESYMBOL_checkstateNONE_, check_token = 0x0, 
  max_entry_num = 0, num_entries = 0, generic = FFEINTRIN_genNONE, 
  specific = FFEINTRIN_specNONE, implementation = FFEINTRIN_impNONE, 
  is_save = false, is_init = false, do_iter = false, reported = false, 
  have_old = false, explicit_where = false, namelisted = false, 
  assigned = false}
(gdb) ptype s
type = struct _ffesymbol_ {
    ...
} *
(gdb) l
16647                                          ffesymbol_rank (s),
16648                                          kind,    /* SUBROUTINE. */
16649                                          where,   /* GLOBAL or DUMMY. */
16650                                          ffesymbol_size (s)));
16651         ffesymbol_set_state (s, FFESYMBOL_stateUNDERSTOOD);
16652         ffesymbol_resolve_intrin (s);
16653         ffesymbol_reference (s, t, FALSE);
16654         s = ffecom_sym_learned (s);
16655         ffesymbol_signal_unreported (s);  /* For debugging purposes. */
16656       }
(gdb) p t
$4 = 0x40065ef0
(gdb) ptype t
type = struct _lextoken_ {
    ...
} *
(gdb) p *t
$5 = {id_ = 4, size = 10, length = 10, uses = 3, 
  text = 0x40065f80 "g77__fvers", type = FFELEX_typeNAME, 
  where_line = 0x40065a10, where_col = 12 '\f', currentnames_line = 0x0, 
  currentnames_col = 0 '\000', wheretrack = '\000' <repeats 69 times>}
(gdb) l
16657   
16658     return s;
16659   }
16660   
16661   /* Have FOO in DATA FOO/.../.  Local name space and executable context
16662      only.  (This will change in the future when DATA FOO may be followed
16663      by COMMON FOO or even INTEGER FOO(10), etc.)  */
16664   
16665   static ffesymbol
16666   ffeexpr_sym_lhs_data_ (ffesymbol s, ffelexToken t)