diff options
| author | rupothar <rupesh.potharla@amd.com> | 2022-04-08 16:05:41 +0530 |
|---|---|---|
| committer | Kavitha Natarajan <kavitha.natarajan@amd.com> | 2022-04-25 14:58:30 +0530 |
| commit | 5f59e7e0c75a35f32f11bf6998c2e3de333fe3b2 (patch) | |
| tree | dec1fb834efabef863a6ce2d8f332aa793ee4c98 /gdb/gdbtypes.h | |
| parent | 2b718529b99d2ca53552558ba9b3ff3f22663795 (diff) | |
| download | binutils-gdb-5f59e7e0c75a35f32f11bf6998c2e3de333fe3b2.tar.gz | |
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
Diffstat (limited to 'gdb/gdbtypes.h')
| -rw-r--r-- | gdb/gdbtypes.h | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h index 769328cc9cd..7437e1db8ab 100644 --- a/gdb/gdbtypes.h +++ b/gdb/gdbtypes.h @@ -2092,7 +2092,6 @@ extern void allocate_gnat_aux_type (struct type *); #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type #define TYPE_RVALUE_REFERENCE_TYPE(thistype) (thistype)->rvalue_reference_type #define TYPE_CHAIN(thistype) (thistype)->chain -#define TYPE_DYN_PROP(thistype) TYPE_MAIN_TYPE(thistype)->dyn_prop_list /* * Note that if thistype is a TYPEDEF type, you have to call check_typedef. But check_typedef does set the TYPE_LENGTH of the TYPEDEF type, so you only have to call check_typedef once. Since allocate_value |