Re: g77 testsuite failures under hpux 10.20

["John David Anglin" <dave at hiauly1 dot hia dot nrc dot ca>]

> You might put a conditional breakpoint in make_call_insn_raw on
> cur_insn_uid == 17, then start walking backwards from there through
> the call expanders.

I got a little ways back (nearly to the fortran code):

(gdb) bt
#0  expand_expr_stmt (exp=0x400a0f60) at ../../gcc/stmt.c:1876
#1  0xeb0bc in ffeste_R911_item (expr=0x40095648, expr_token=0x0)
    at ../../../gcc/f/ste.c:815
#2  0xdb138 in ffestd_stmt_pass_ () at ../../../gcc/f/std.c:970
#3  0xdcecc in ffestd_exec_end () at ../../../gcc/f/std.c:1509
#4  0xd5ec8 in ffestc_R1221 (name=0x40009440) at ../../../gcc/f/stc.c:4759
#5  0xcd680 in ffestc_end () at ../../../gcc/f/stc.c:5666
#6  0xa65b0 in ffestb_end3_ (t=0x40096498) at ../../../gcc/f/stb.c:3206
#7  0xa23ec in ffesta_second_ (t=0x40096498) at ../../../gcc/f/sta.c:1359
#8  0x99528 in ffelex_send_token_ () at ../../../gcc/f/lex.c:1692
#9  0x97cdc in ffelex_finish_statement_ () at ../../../gcc/f/lex.c:970
#10 0x9b1a0 in ffelex_file_fixed (wf=0x4006ad80, f=0x7aeabc50)
    at ../../../gcc/f/lex.c:3054
#11 0xfde88 in ffe_file (wf=0x4006d9c0, f=0x7aeabc50)
    at ../../../gcc/f/top.c:541
#12 0x9ec7c in yyparse () at ../../../gcc/f/parse.c:79
#13 0x103cd8 in compile_file (name=0x400902c0 "19990218-0.f")
    at ../../gcc/toplev.c:2289
#14 0x109204 in main (argc=3, argv=0x7b03a7cc) at ../../gcc/toplev.c:4725
#15 0x7af1e6bc in ?? () from /usr/lib/libc.1

This is exp:

(gdb) p debug_tree(exp)
 <call_expr 400a0f60
    type <integer_type 4006ad80 __g77_f2c_integer SI
        size <integer_cst 40054ce0 constant 32>
        unit size <integer_cst 40054d00 constant 4>
        align 32 symtab 0 alias set -1 precision 32
        min <integer_cst 4006d540 constant -2147483648>
        max <integer_cst 4006d560 constant 2147483647>
        pointer_to_this <pointer_type 40071980>>
    side-effects
    arg 0 <addr_expr 400a0f40
        type <pointer_type 4009c400 type <function_type 4009c300>
            unsigned SI size <integer_cst 40054ce0 32> unit size <integer_cst 40054d00 4>
            align 32 symtab 0 alias set -1>
        constant
        arg 0 <function_decl 4009c700 do_lio type <function_type 4009c300>
            addressable used public common external SI file 19990218-0.f line 5
            (mem:SI (symbol_ref/v:SI ("")) 0) chain <function_decl 4009c380 s_wsle>>>
    arg 1 <tree_list 400a0ec0
        value <addr_expr 400a0e20 type <pointer_type 40071900>

            arg 0 <integer_cst 400a0e00 constant 5>>
        chain <tree_list 400a0ee0
            value <addr_expr 400a0e80 type <pointer_type 40071880>

                arg 0 <integer_cst 40062c20 constant 1>>
            chain <tree_list 400a0f00
                value <nop_expr 400a0ea0 type <pointer_type 40064d00>
                    arg 0 <parm_decl 4009cc80 a>>
                chain <tree_list 400a0f20
                    value <integer_cst 400a0e60 constant 8>>>>>
    rtl 2 (nil)

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