gomp-20050608-branch/gcc/testsuite/gfortran.dg/g77/960317-1.f

   1 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