| 1 |
149 |
jeremybenn |
c { dg-do compile }
|
| 2 |
|
|
* Date: Sat, 16 Mar 1996 19:58:37 -0500 (EST)
|
| 3 |
|
|
* From: Kate Hedstrom <kate@ahab.Rutgers.EDU>
|
| 4 |
|
|
* To: burley@gnu.ai.mit.edu
|
| 5 |
|
|
* Subject: g77 bug in assign
|
| 6 |
|
|
*
|
| 7 |
|
|
* I found some files in the NCAR graphics source code which used to
|
| 8 |
|
|
* compile with g77 and now don't. All contain the following combination
|
| 9 |
|
|
* of "save" and "assign". It fails on a Sun running SunOS 4.1.3 and a
|
| 10 |
|
|
* Sun running SunOS 5.5 (slightly older g77), but compiles on an
|
| 11 |
|
|
* IBM/RS6000:
|
| 12 |
|
|
*
|
| 13 |
|
|
C
|
| 14 |
|
|
SUBROUTINE QUICK
|
| 15 |
|
|
SAVE
|
| 16 |
|
|
C
|
| 17 |
|
|
ASSIGN 101 TO JUMP ! { dg-warning "Obsolete: ASSIGN" "" }
|
| 18 |
|
|
101 Continue
|
| 19 |
|
|
C
|
| 20 |
|
|
RETURN
|
| 21 |
|
|
END
|
| 22 |
|
|
*
|
| 23 |
|
|
* Everything else in the NCAR distribution compiled, including quite a
|
| 24 |
|
|
* few C routines.
|
| 25 |
|
|
*
|
| 26 |
|
|
* Kate
|
| 27 |
|
|
*
|
| 28 |
|
|
*
|
| 29 |
|
|
* nemo% g77 -v -c quick.f
|
| 30 |
|
|
* gcc -v -c -xf77 quick.f
|
| 31 |
|
|
* Reading specs from /usr/local/lib/gcc-lib/sparc-sun-sunos4.1.3/2.7.2/specs
|
| 32 |
|
|
* gcc version 2.7.2
|
| 33 |
|
|
* /usr/local/lib/gcc-lib/sparc-sun-sunos4.1.3/2.7.2/f771 quick.f -fset-g77-defaults -quiet -dumpbase quick.f -version -fversion -o /usr/tmp/cca24166.s
|
| 34 |
|
|
* GNU F77 version 2.7.2 (sparc) compiled by GNU C version 2.7.1.
|
| 35 |
|
|
* GNU Fortran Front End version 0.5.18-960314 compiled: Mar 16 1996 14:28:11
|
| 36 |
|
|
* gcc: Internal compiler error: program f771 got fatal signal 11
|
| 37 |
|
|
*
|
| 38 |
|
|
*
|
| 39 |
|
|
* nemo% gdb /usr/local/lib/gcc-lib/*/*/f771 core
|
| 40 |
|
|
* GDB is free software and you are welcome to distribute copies of it
|
| 41 |
|
|
* under certain conditions; type "show copying" to see the conditions.
|
| 42 |
|
|
* There is absolutely no warranty for GDB; type "show warranty" for details.
|
| 43 |
|
|
* GDB 4.14 (sparc-sun-sunos4.1.3),
|
| 44 |
|
|
* Copyright 1995 Free Software Foundation, Inc...
|
| 45 |
|
|
* Core was generated by `f771'.
|
| 46 |
|
|
* Program terminated with signal 11, Segmentation fault.
|
| 47 |
|
|
* Couldn't read input and local registers from core file
|
| 48 |
|
|
* find_solib: Can't read pathname for load map: I/O error
|
| 49 |
|
|
*
|
| 50 |
|
|
* Couldn't read input and local registers from core file
|
| 51 |
|
|
* #0 0x21aa4 in ffecom_sym_transform_assign_ (s=???) at f/com.c:7881
|
| 52 |
|
|
* 7881 if ((ffesymbol_save (s) || ffe_is_saveall ())
|
| 53 |
|
|
* (gdb) where
|
| 54 |
|
|
* #0 0x21aa4 in ffecom_sym_transform_assign_ (s=???) at f/com.c:7881
|
| 55 |
|
|
* Error accessing memory address 0xefffefcc: Invalid argument.
|
| 56 |
|
|
* (gdb)
|
| 57 |
|
|
*
|
| 58 |
|
|
*
|
| 59 |
|
|
* ahab% g77 -v -c quick.f
|
| 60 |
|
|
* gcc -v -c -xf77 quick.f
|
| 61 |
|
|
* Reading specs from /usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/specs
|
| 62 |
|
|
* gcc version 2.7.2
|
| 63 |
|
|
* /usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/f771 quick.f -quiet -dumpbase quick.f -version -fversion -o /var/tmp/cca003D2.s
|
| 64 |
|
|
* GNU F77 version 2.7.2 (sparc) compiled by GNU C version 2.7.2.
|
| 65 |
|
|
* GNU Fortran Front End version 0.5.18-960304 compiled: Mar 5 1996 16:12:46
|
| 66 |
|
|
* gcc: Internal compiler error: program f771 got fatal signal 11
|
| 67 |
|
|
*
|
| 68 |
|
|
*
|
| 69 |
|
|
* ahab% !gdb
|
| 70 |
|
|
* gdb /usr/local/lib/gcc-lib/*/*/f771 core
|
| 71 |
|
|
* GDB is free software and you are welcome to distribute copies of it
|
| 72 |
|
|
* under certain conditions; type "show copying" to see the conditions.
|
| 73 |
|
|
* There is absolutely no warranty for GDB; type "show warranty" for details.
|
| 74 |
|
|
* GDB 4.15.1 (sparc-sun-solaris2.4),
|
| 75 |
|
|
* Copyright 1995 Free Software Foundation, Inc...
|
| 76 |
|
|
* Core was generated by
|
| 77 |
|
|
* `/usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/f771 quick.f -quiet -dumpbase'.
|
| 78 |
|
|
* Program terminated with signal 11, Segmentation fault.
|
| 79 |
|
|
* Reading symbols from /usr/lib/libc.so.1...done.
|
| 80 |
|
|
* Reading symbols from /usr/lib/libdl.so.1...done.
|
| 81 |
|
|
* #0 0x43e04 in ffecom_sym_transform_assign_ (s=0x3a22f8) at f/com.c:7963
|
| 82 |
|
|
* Source file is more recent than executable.
|
| 83 |
|
|
* 7963 assert (st != NULL);
|
| 84 |
|
|
* (gdb) where
|
| 85 |
|
|
* #0 0x43e04 in ffecom_sym_transform_assign_ (s=0x3a22f8) at f/com.c:7963
|
| 86 |
|
|
* #1 0x38044 in ffecom_expr_ (expr=0x3a23c0, dest_tree=0x0, dest=0x0, dest_used=0x0, assignp=true) at f/com.c:2100
|
| 87 |
|
|
* #2 0x489c8 in ffecom_expr_assign_w (expr=0x3a23c0) at f/com.c:10238
|
| 88 |
|
|
* #3 0xe9228 in ffeste_R838 (label=0x3a1ba8, target=0x3a23c0) at f/ste.c:2769
|
| 89 |
|
|
* #4 0xdae60 in ffestd_stmt_pass_ () at f/std.c:840
|
| 90 |
|
|
* #5 0xdc090 in ffestd_exec_end () at f/std.c:1405
|
| 91 |
|
|
* #6 0xcb534 in ffestc_shriek_subroutine_ (ok=true) at f/stc.c:4849
|
| 92 |
|
|
* #7 0xd8f00 in ffestc_R1225 (name=0x0) at f/stc.c:12307
|
| 93 |
|
|
* #8 0xcc808 in ffestc_end () at f/stc.c:5572
|
| 94 |
|
|
* #9 0x9fa84 in ffestb_end3_ (t=0x3a19c8) at f/stb.c:3216
|
| 95 |
|
|
* #10 0x9f30c in ffestb_end (t=0x3a19c8) at f/stb.c:2995
|
| 96 |
|
|
* #11 0x98414 in ffesta_save_ (t=0x3a19c8) at f/sta.c:453
|
| 97 |
|
|
* #12 0x997ec in ffesta_second_ (t=0x3a19c8) at f/sta.c:1178
|
| 98 |
|
|
* #13 0x8ed84 in ffelex_send_token_ () at f/lex.c:1614
|
| 99 |
|
|
* #14 0x8cab8 in ffelex_finish_statement_ () at f/lex.c:946
|
| 100 |
|
|
* #15 0x91684 in ffelex_file_fixed (wf=0x397780, f=0x37a560) at f/lex.c:2946
|
| 101 |
|
|
* #16 0x107a94 in ffe_file (wf=0x397780, f=0x37a560) at f/top.c:456
|
| 102 |
|
|
* #17 0x96218 in yyparse () at f/parse.c:77
|
| 103 |
|
|
* #18 0x10beac in compile_file (name=0xdffffaf7 "quick.f") at toplev.c:2239
|
| 104 |
|
|
* #19 0x110dc0 in main (argc=9, argv=0xdffff994, envp=0xdffff9bc) at toplev.c:3927
|
