diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-01-17 16:31:56 +0000 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-03-06 18:11:31 +0000 |
| commit | 067630bdb553bb889104e3b064e4551531ddcedc (patch) | |
| tree | 3327cbb47953a59b2d8628a20641bab91faac310 /gdb/f-exp.y | |
| parent | 3be47f7aa99dc90190e642a4e191c9f049e0a934 (diff) | |
| download | gdb-067630bdb553bb889104e3b064e4551531ddcedc.zip gdb-067630bdb553bb889104e3b064e4551531ddcedc.tar.gz gdb-067630bdb553bb889104e3b064e4551531ddcedc.tar.bz2 | |
gdb/fortran: Add builtin 8-byte integer type with (kind=8) support
Add a new builtin type, an 8-byte integer, and allow GDB to parse
'integer (kind=8)', returning the new 8-byte integer.
gdb/ChangeLog:
* f-exp.y (convert_to_kind_type): Handle integer (kind=8).
* f-lang.c (build_fortran_types): Setup builtin_integer_s8.
* f-lang.h (struct builtin_f_type): Add builtin_integer_s8 field.
gdb/testsuite/ChangeLog:
* gdb.fortran/type-kinds.exp: Test new integer type kind.
Diffstat (limited to 'gdb/f-exp.y')
| -rw-r--r-- | gdb/f-exp.y | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index 980ee4b4..d256ff1 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -865,6 +865,8 @@ convert_to_kind_type (struct type *basetype, int kind) return parse_f_type (pstate)->builtin_integer_s2; else if (kind == 4) return parse_f_type (pstate)->builtin_integer; + else if (kind == 8) + return parse_f_type (pstate)->builtin_integer_s8; } error (_("unsupported kind %d for type %s"), |