From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mumit Khan To: egcs@cygnus.com Subject: f771 dies with trivial fortran code Date: Wed, 20 Aug 1997 05:23:02 -0000 Message-id: <199708200523.AAA02390@mercury.xraylith.wisc.edu> X-SW-Source: 1997-08/0197.html f771 dumps core on i386-linux-gnulibc1 when compiling the following simple piece of code. Ditto for a cross-compiled i386-cygwin32-g77. could someone please check on other platforms just so I know that it's not a local problem? c ==== f77-bug1.f subroutine foo () character*(*) str c return c entry bar (str) str = 'a' c ^^^^^^^^ culprit return end c c ==== END f77-bug1.f % /scratch/src/gnu/bin/g77 -v -c f77-bug1.f g77 version 0.5.21-19970811 /scratch/src/gnu/bin/gcc -v -c f77-bug1.f Reading specs from /scratch/src/gnu/lib/gcc-lib/i386-linux-gnulibc1/egcs-2.90.00/specs gcc version egcs-2.90.00 970814 (gcc2-970802 experimental) /scratch/src/gnu/lib/gcc-lib/i386-linux-gnulibc1/egcs-2.90.00/f771 f77-bug1.f -fset-g77-defaults -quiet -dumpbase f77-bug1.f -version -fversion -o /tmp/cca32362.s GNU F77 version egcs-2.90.00 970814 (gcc2-970802 experimental) (i386-linux-gnulibc1) compiled by GNU C version egcs-2.90.00 970814 (gcc2-970802 experimental). GNU Fortran Front End version 0.5.21-19970811 compiled: Aug 17 1997 12:38:30 gcc: Internal compiler error: program f771 got fatal signal 11 % gdb /scratch/src/gnu/lib/gcc-lib/i386-linux-gnulibc1/egcs-2.90.00/f771 core GDB is free software and you are welcome to distribute copies of it under certain conditions; type "show copying" to see the conditions. There is absolutely no warranty for GDB; type "show warranty" for details. GDB 4.16 (i586-unknown-linux), Copyright 1996 Free Software Foundation, Inc... Core was generated by `/scratch/src/gnu/lib/gcc-lib/i386-linux-gnulibc1/egcs-2.90.00/f771 f77-bug1.f -fset-`,'. Program terminated with signal 11, Segmentation fault. Reading symbols from /lib/libc.so.5.3.12...done. Reading symbols from /lib/ld-linux.so.1...done. #0 0x80dadb4 in start_cleanup_deferal () at stmt.c:4215 4215 ++block_stack->data.block.conditional_code; (gdb) print block_stack $1 = (struct nesting *) 0x0 (gdb) bt #0 0x80dadb4 in start_cleanup_deferal () at stmt.c:4215 #1 0x80e717a in expand_expr (exp=0x8206f58, target=0x8207368, tmode=SImode, modifier=EXPAND_NORMAL) at expr.c:6848 #2 0x80e1d36 in store_expr (exp=0x8206f58, target=0x8207368, want_value=0) at expr.c:3228 #3 0x80e47df in expand_expr (exp=0x8206f74, target=0x0, tmode=VOIDmode, modifier=EXPAND_MEMORY_USE_BAD) at expr.c:5180 #4 0x80d64aa in expand_function_start (subr=0x82189d4, parms_have_cleanups=0) at function.c:5445 #5 0x805bc30 in store_parm_decls (is_main_program=0) at f/com.c:14394 #6 0x8054a06 in ffecom_start_progunit_ () at f/com.c:7867 #7 0x80587c5 in ffecom_end_transition () at f/com.c:11319 #8 0x80a5e31 in ffestd_exec_end () at f/std.c:1402 #9 0x809d948 in ffestc_shriek_subroutine_ (ok=true) at f/stc.c:4935 #10 0x80a45fd in ffestc_R1225 (name=0x0) at f/stc.c:12423 #11 0x809e17e in ffestc_end () at f/stc.c:5658 #12 0x80874d0 in ffestb_end3_ (t=0x821c850) at f/stb.c:3207 #13 0x808719a in ffestb_end (t=0x821c850) at f/stb.c:2986 #14 0x808433d in ffesta_second_ (t=0x821c850) at f/sta.c:1358 #15 0x807f20d in ffelex_send_token_ () at f/lex.c:1652 #16 0x807e196 in ffelex_finish_statement_ () at f/lex.c:973 #17 0x808079b in ffelex_file_fixed (wf=0x821b9d8, f=0x8202bb8) at f/lex.c:2994 #18 0x80bc767 in ffe_file (wf=0x821b9d8, f=0x8202bb8) at f/top.c:555 #19 0x8082b3d in yyparse () at f/parse.c:77 #20 0x80be9bc in compile_file (name=0xbffffad4 "f77-bug1.f") at toplev.c:2470 #21 0x80c123b in main (argc=10, argv=0xbffff968, envp=0xbffff994) at toplev.c:4309 #22 0x80491db in _start () (gdb) quit