g77 testsuite failures under hpux 10.20

[John David Anglin]

> Basically treat it as a memory corruption problem.  You know when the value
> is OK.  Now you have to figure out where it goes bad.  

This is the point where the pointer to the string is clobbered.  I noticed
that the pointer seems to get replaced by the first 4 characters of the
string itself.

#0  0x7af4054c in ?? () from /usr/lib/libc.1
#1  0x1b648c in record_constant_rtx (mode=1074056004, x=0x7b03b6b0)
    at ../../gcc/varasm.c:3534
#2  0x1b668c in force_const_mem (mode=SImode, x=0x40052248)
    at ../../gcc/varasm.c:3590
#3  0x17b9a4 in expand_expr (exp=0x400a0a00, target=0x0, tmode=VOIDmode,
    modifier=EXPAND_NORMAL) at ../../gcc/expr.c:8315
#4  0x1855a0 in precompute_register_parameters (num_actuals=1074056004,
    args=0x7b03b6b0, reg_parm_seen=0x7b03b0d0) at ../../gcc/calls.c:811
#5  0x188398 in expand_call (exp=0x400a0c60, target=0x0, ignore=1)
    at ../../gcc/calls.c:2825
#6  0x173758 in expand_expr (exp=0x400a0c60, target=0x0, tmode=VOIDmode,
    modifier=EXPAND_NORMAL) at ../../gcc/expr.c:7101
#7  0x152728 in expand_expr_stmt (exp=0x400a0c60) at ../../gcc/stmt.c:1876
#8  0xeb0ec in ffeste_R911_item (expr=0x4007ee58, expr_token=0x7b03b6b0)
    at ../../../gcc/f/ste.c:815
#9  0xdb160 in ffestd_stmt_pass_ () at ../../../gcc/f/std.c:970
#10 0xdcef4 in ffestd_exec_end () at ../../../gcc/f/std.c:1509
#11 0xd5ef0 in ffestc_R1221 (name=0x40009440) at ../../../gcc/f/stc.c:4759
#12 0xcd6a8 in ffestc_end () at ../../../gcc/f/stc.c:5666
#13 0xa65d8 in ffestb_end3_ (t=0x400965f8) at ../../../gcc/f/stb.c:3206
#14 0xa2414 in ffesta_second_ (t=0x400965f8) at ../../../gcc/f/sta.c:1359
#15 0x99550 in ffelex_send_token_ () at ../../../gcc/f/lex.c:1692
#16 0x97d04 in ffelex_finish_statement_ () at ../../../gcc/f/lex.c:970
#17 0x9b1c8 in ffelex_file_fixed (wf=0x4004cb44, f=0x7aeabc50)
    at ../../../gcc/f/lex.c:3054
#18 0xfdeb8 in ffe_file (wf=0x4006d9c0, f=0x7aeabc50)
    at ../../../gcc/f/top.c:541
#19 0x9eca4 in yyparse () at ../../../gcc/f/parse.c:79
#20 0x103d68 in compile_file (name=0x400902c0 "19990218-0.f")
    at ../../gcc/toplev.c:2289
#21 0x109f14 in main (argc=2, argv=0x7b03a794) at ../../gcc/toplev.c:4732
#22 0x7af1e6bc in ?? () from /usr/lib/libc.1

Dave
-- 
J. David Anglin                                  dave.anglin@nrc.ca
National Research Council of Canada              (613) 990-0752 (FAX: 952-6605)