------- Additional Comments From tkoenig at gcc dot gnu dot org 2005-06-30
13:29 -------
g77 gets this right:
$ g77 -g array2.f
$ gdb ./a.out
GNU gdb Red Hat Linux (6.3.0.0-0.30.1rh)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or 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.
This GDB was configured as "ia64-redhat-linux-gnu"...Using host libthread_db
library "/lib/tls/libthread_db.so.1".
(gdb) b array2.f:8
Breakpoint 1 at 0x4000000000000db2: file array2.f, line 8.
(gdb) r
Starting program: /home/zfkts/Krempel/a.out
Breakpoint 1, MAIN__ () at array2.f:8
8 write (*, *) a(i, j)
Current language: auto; currently fortran
(gdb) p a
$1 = (( 1, 0, 65598, 0, -1357861061) ( -597610038, 65544, 0, -2147483648, -
169227304) ( 65513, 0, 0, -2019811328, 65515) ( 0, 448693, 0, 65598, 0) ( 0, 0,
0, 0, 0) )
(gdb) p a(1,1)
$2 = 1
--
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |19292
nThis| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22244
