diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-03-07 16:53:54 +0000 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-04-30 10:36:57 +0100 |
| commit | bc68014d16c30a6e90fdf9fc43e98be8cbbead9a (patch) | |
| tree | 7a4c9a61b37875f64f7919c9024272e0550fd165 /gdb/testsuite/gdb.mi | |
| parent | f1fdc960664c24d911d6189b94e5c054b4bb9053 (diff) | |
| download | gdb-bc68014d16c30a6e90fdf9fc43e98be8cbbead9a.zip gdb-bc68014d16c30a6e90fdf9fc43e98be8cbbead9a.tar.gz gdb-bc68014d16c30a6e90fdf9fc43e98be8cbbead9a.tar.bz2 | |
gdb/fortran: Add allocatable type qualifier
Types in Fortran can have the 'allocatable' qualifier attached to
indicate that memory needs to be explicitly allocated by the user.
This patch extends GDB to show this qualifier when printing types.
Lots of tests results are then updated to include this new qualifier
in the expected results.
gdb/ChangeLog:
* f-typeprint.c (f_type_print_base): Print 'allocatable' type
qualifier.
* gdbtypes.h (TYPE_IS_ALLOCATABLE): Define.
gdb/testsuite/ChangeLog:
* gdb.fortran/vla-datatypes.exp: Update expected results.
* gdb.fortran/vla-ptype.exp: Likewise.
* gdb.fortran/vla-type.exp: Likewise.
* gdb.fortran/vla-value.exp: Likewise.
Diffstat (limited to 'gdb/testsuite/gdb.mi')
| -rw-r--r-- | gdb/testsuite/gdb.mi/mi-vla-fortran.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp b/gdb/testsuite/gdb.mi/mi-vla-fortran.exp index bf65bf9..0759ccb 100644 --- a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp +++ b/gdb/testsuite/gdb.mi/mi-vla-fortran.exp @@ -77,10 +77,10 @@ mi_expect_stop "breakpoint-hit" "vla" "" ".*vla.f90" "$bp_lineno" \ mi_gdb_test "510-data-evaluate-expression vla1" \ "510\\^done,value=\"\\(.*\\)\"" "evaluate allocated vla" -mi_create_varobj_checked vla1_allocated vla1 "$real \\\(5\\\)" \ +mi_create_varobj_checked vla1_allocated vla1 "$real, allocatable \\\(5\\\)" \ "create local variable vla1_allocated" mi_gdb_test "511-var-info-type vla1_allocated" \ - "511\\^done,type=\"$real \\\(5\\\)\"" \ + "511\\^done,type=\"$real, allocatable \\\(5\\\)\"" \ "info type variable vla1_allocated" mi_gdb_test "512-var-show-format vla1_allocated" \ "512\\^done,format=\"natural\"" \ |