From: Mumit Khan <khan@xraylith.wisc.edu>
To: egcs@cygnus.com
Subject: f771 dies with trivial fortran code
Date: Wed, 20 Aug 1997 05:23:02 -0000 [thread overview]
Message-ID: <199708200523.AAA02390@mercury.xraylith.wisc.edu> (raw)
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-`,\x10\b\x03'.
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
next reply other threads:[~1997-08-20 5:23 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-08-20 5:23 Mumit Khan [this message]
1997-08-20 5:23 objc SMP patch Oleg Krivosheev
1997-08-20 5:23 ` f771 dies with trivial fortran code Craig Burley
1997-08-20 15:03 cross compiling to m68k Joel Sherrill
1997-08-20 15:03 ` f771 dies with trivial fortran code Mumit Khan
1997-08-20 16:37 Trouble with GAS halfword extraction on PPC Peter Barada
1997-08-20 16:37 ` f771 dies with trivial fortran code Jeffrey A Law
1997-08-20 19:30 Jim Wilson
1997-08-20 23:11 Mumit Khan
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=199708200523.AAA02390@mercury.xraylith.wisc.edu \
--to=khan@xraylith.wisc.edu \
--cc=egcs@cygnus.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).