3f2f83ddcb
Fortran provide types whose values may be dynamically allocated
or associated with a variable under explicit program control.
The purpose of this commit is:
* to read allocated/associated DWARF tags and store them in
the dynamic property list of main_type.
* enable GDB to print the value of a dynamic array in Fortran
in case the type is allocated or associated (pointer to
dynamic array).
Examples:
(gdb) p vla_not_allocated
$1 = <not allocated>
(gdb) p vla_allocated
$1 = (1, 2, 3)
(gdb) p vla_ptr_not_associated
$1 = <not associated>
(gdb) p vla_ptr_associated
$1 = (1, 2, 3)
Add basic test coverage for most dynamic array use-cases in Fortran.
The commit contains the following tests:
* Ensure that values of Fortran dynamic arrays
can be evaluated correctly in various ways and states.
* Ensure that Fortran primitives can be evaluated
correctly when used as a dynamic array.
* Dynamic arrays passed to subroutines and handled
in different ways inside the routine.
* Ensure that the ptype of dynamic arrays in
Fortran can be printed in GDB correctly.
* Ensure that dynamic arrays in different states
(allocated/associated) can be evaluated.
* Dynamic arrays passed to functions and returned from
functions.
* History values of dynamic arrays can be accessed and
printed again with the correct values.
* Dynamic array evaluations using MI protocol.
* Sizeof output of dynamic arrays in various states.
The patch was tested using the test suite on Ubuntu 12.04 64bit.
gdb/ChangeLog:
* dwarf2read.c (set_die_type): Add read of
DW_AT_allocated and DW_AT_associated.
* f-typeprint.c: New include of typeprint.h
(f_print_type): Add check for allocated/associated
status of type.
(f_type_print_varspec_suffix): Add check for
allocated/associated status of type.
* gdbtypes.c (create_array_type_with_stride):
Add check for valid data location of type in
case allocated or associated attributes are set.
Length of an array should be only calculated if
allocated or associated is resolved as true.
(is_dynamic_type_internal): Add check for allocated/
associated.
(resolve_dynamic_array): Evaluate allocated/associated
properties.
* gdbtypes.h (enum dynamic_prop_node_kind): <DYN_PROP_ALLOCATED>
<DYN_PROP_ASSOCIATED>: New enums.
(TYPE_ALLOCATED_PROP, TYPE_ASSOCIATED_PROP): New macros.
(type_not_allocated): New function.
(type_not_associated): New function.
* valarith.c (value_subscripted_rvalue): Add check for
allocated/associated.
* valprint.c: New include of typeprint.h.
(valprint_check_validity): Add check for allocated/associated.
(value_check_printable): Add check for allocated/
associated.
* typeprint.h (val_print_not_allocated): New function.
(val_print_not_associated): New function.
* typeprint.c (val_print_not_allocated): New function.
(val_print_not_associated): New function.
gdb/testsuite/ChangeLog:
* gdb.fortran/vla-alloc-assoc.exp: New file.
* gdb.fortran/vla-datatypes.exp: New file.
* gdb.fortran/vla-datatypes.f90: New file.
* gdb.fortran/vla-history.exp: New file.
* gdb.fortran/vla-ptype-sub.exp: New file.
* gdb.fortran/vla-ptype.exp: New file.
* gdb.fortran/vla-sizeof.exp: New file.
* gdb.fortran/vla-sub.f90: New file.
* gdb.fortran/vla-value-sub-arbitrary.exp: New file.
* gdb.fortran/vla-value-sub-finish.exp: New file.
* gdb.fortran/vla-value-sub.exp: New file.
* gdb.fortran/vla-value.exp: New file.
* gdb.fortran/vla-ptr-info.exp: New file.
* gdb.mi/mi-vla-fortran.exp: New file.
* gdb.mi/vla.f90: New file.
90 lines
3.8 KiB
Text
90 lines
3.8 KiB
Text
# Copyright 2015 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
standard_testfile "vla-sub.f90"
|
|
|
|
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \
|
|
{debug f90 quiet}] } {
|
|
return -1
|
|
}
|
|
|
|
if ![runto_main] {
|
|
untested "could not run to main"
|
|
return -1
|
|
}
|
|
|
|
# Check the values of VLA's in subroutine can be evaluated correctly
|
|
|
|
# Try to access values from a fixed array handled as VLA in subroutine.
|
|
gdb_breakpoint [gdb_get_line_number "not-filled"]
|
|
gdb_continue_to_breakpoint "not-filled (1st)"
|
|
gdb_test "print array1" " = \\(\[()1, .\]*\\)" \
|
|
"print passed array1 in foo (passed fixed array)"
|
|
|
|
gdb_breakpoint [gdb_get_line_number "array1-filled"]
|
|
gdb_continue_to_breakpoint "array1-filled (1st)"
|
|
gdb_test "print array1(5, 7)" " = 5" \
|
|
"print array1(5, 7) after filled in foo (passed fixed array)"
|
|
gdb_test "print array1(1, 1)" " = 30" \
|
|
"print array1(1, 1) after filled in foo (passed fixed array)"
|
|
|
|
gdb_breakpoint [gdb_get_line_number "array2-almost-filled"]
|
|
gdb_continue_to_breakpoint "array2-almost-filled (1st)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *3, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was filled (passed fixed array)"
|
|
gdb_test "print array2(2,1,1)=20" " = 20" \
|
|
"set array(2,2,2) to 20 in subroutine (passed fixed array)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *20, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was mofified in debugger (passed fixed array)"
|
|
|
|
|
|
# Try to access values from a fixed sub-array handled as VLA in subroutine.
|
|
gdb_continue_to_breakpoint "not-filled (2nd)"
|
|
gdb_test "print array1" " = \\(\[()5, .\]*\\)" \
|
|
"print passed array1 in foo (passed sub-array)"
|
|
|
|
gdb_continue_to_breakpoint "array1-filled (2nd)"
|
|
gdb_test "print array1(5, 5)" " = 5" \
|
|
"print array1(5, 5) after filled in foo (passed sub-array)"
|
|
gdb_test "print array1(1, 1)" " = 30" \
|
|
"print array1(1, 1) after filled in foo (passed sub-array)"
|
|
|
|
gdb_continue_to_breakpoint "array2-almost-filled (2nd)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *3, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was filled (passed sub-array)"
|
|
gdb_test "print array2(2,1,1)=20" " = 20" \
|
|
"set array(2,2,2) to 20 in subroutine (passed sub-array)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *20, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was mofified in debugger (passed sub-array)"
|
|
|
|
|
|
# Try to access values from a VLA passed to subroutine.
|
|
gdb_continue_to_breakpoint "not-filled (3rd)"
|
|
gdb_test "print array1" " = \\(\[()42, .\]*\\)" \
|
|
"print passed array1 in foo (passed vla)"
|
|
|
|
gdb_continue_to_breakpoint "array1-filled (3rd)"
|
|
gdb_test "print array1(5, 5)" " = 5" \
|
|
"print array1(5, 5) after filled in foo (passed vla)"
|
|
gdb_test "print array1(1, 1)" " = 30" \
|
|
"print array1(1, 1) after filled in foo (passed vla)"
|
|
|
|
gdb_continue_to_breakpoint "array2-almost-filled (3rd)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *3, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was filled (passed vla)"
|
|
gdb_test "print array2(2,1,1)=20" " = 20" \
|
|
"set array(2,2,2) to 20 in subroutine (passed vla)"
|
|
gdb_test "print array2" " = \\( *\\( *\\( *30, *20, *3,\[()3, .\]*\\)" \
|
|
"print array2 in foo after it was mofified in debugger (passed vla)"
|