gdb/fortran: Support for assumed rank zero
authorrupothar <rupesh.potharla@amd.com>
Fri, 8 Apr 2022 10:35:41 +0000 (16:05 +0530)
committerKavitha Natarajan <kavitha.natarajan@amd.com>
Mon, 25 Apr 2022 09:28:30 +0000 (14:58 +0530)
commit5f59e7e0c75a35f32f11bf6998c2e3de333fe3b2
treedec1fb834efabef863a6ce2d8f332aa793ee4c98
parent2b718529b99d2ca53552558ba9b3ff3f22663795
gdb/fortran: Support for assumed rank zero

If a variable is passed to function in FORTRAN as an argument the
variable is treated as an array with rank zero.  GDB currently does
not support the case for assumed rank 0.  This patch provides support
for assumed rank 0 and updates the testcase as well.

Without patch:
Breakpoint 1, arank::sub1 (a=<error reading variable:
  failed to resolve dynamic array rank>) at assumedrank.f90:11
11       PRINT *, RANK(a)
(gdb) p a
failed to resolve dynamic array rank
(gdb) p rank(a)
failed to resolve dynamic array rank

With patch:
Breakpoint 1, arank::sub1 (a=0) at assumedrank.f90:11
11       PRINT *, RANK(a)
(gdb) p a
$1 = 0
(gdb) p rank(a)
$2 = 0
gdb/gdbtypes.c
gdb/gdbtypes.h
gdb/testsuite/gdb.fortran/assumedrank.exp
gdb/testsuite/gdb.fortran/assumedrank.f90