fortran/2284: gdb v6.6 adresses fortran arrays incorrectly.

[satyaakam@yahoo.co.in]

>Number:         2284
>Category:       fortran
>Synopsis:       gdb v6.6 adresses fortran arrays incorrectly.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          change-request
>Submitter-Id:   net
>Arrival-Date:   Tue Jul 10 18:28:01 UTC 2007
>Closed-Date:
>Last-Modified:
>Originator:     satyaakam@yahoo.co.in
>Release:        6.6
>Organization:
>Environment:

>Description:
gdb v6.6 can adress directly to fortran arrays, but do it incorrectly.

Here is a log that can be used as a testcase
1> cat main.F
      program test
      integer myarr(10)
      data myarr /1,2,3,4,5,6,7,8,9,0/
      print *, myarr(1)
      end
>How-To-Repeat:
$/gcc/v4.1.2/bin/gfortran -g main.F
$/gdb/v6.6/bin/gdb ./a.out
(gdb) b main.F:4
Breakpoint 1 at 0x8048569: file main.F, line 4.
(gdb) run
Starting program: /home/satyag/test/gf/a.out
Breakpoint 1, MAIN__ () at main.F:4
4             print *, myarr(1)
Current language:  auto; currently fortran
(gdb) p myarr(1)
$1 = 2
(gdb) quit
The program is running.  Exit anyway? (y or n) y
$gcc/v3.2.3/bin/g77  -g main.F
$gdb/v6.6/bin/gdb ./a.out
(gdb)  b main.F:4
Breakpoint 1 at 0x8048806: file main.F, line 4.
(gdb) run
Starting program: /home/satyag/test/gf/a.out

Breakpoint 1, MAIN__ () at main.F:4
4             print *, myarr(1)
Current language:  auto; currently fortran
(gdb) p myarr(1)
$1 = 1
(gdb) quit
The program is running.  Exit anyway? (y or n) y



>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: