diff options
| author | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:55 +0200 |
|---|---|---|
| committer | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:55 +0200 |
| commit | d4c948427dea866c6afb8d9ec7cf1f05dd1c9623 (patch) | |
| tree | e576be7a3ef4a0feccf9f9f2591eaf63d884752e /gdb/testsuite | |
| parent | 04f4c17c7a14ebb6c2212267b2ebc83f1376fe20 (diff) | |
| download | gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.zip gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.tar.gz gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.tar.bz2 | |
gdb/f-lang: add Integer*1 to Fortran builtin types
Add builtin_integer_s1 of size TARGET_CHAR_BIT to Fortran builtin types.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/type-kinds.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/types.exp | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.fortran/type-kinds.exp b/gdb/testsuite/gdb.fortran/type-kinds.exp index b054803..47b788b 100644 --- a/gdb/testsuite/gdb.fortran/type-kinds.exp +++ b/gdb/testsuite/gdb.fortran/type-kinds.exp @@ -56,6 +56,7 @@ proc test_basic_parsing_of_type_kinds {} { test_cast_1_to_type_kind "logical" "8" "\\.TRUE\\." "8" test_cast_1_to_type_kind "integer" "" "1" "4" + test_cast_1_to_type_kind "integer" "1" "1" "1" test_cast_1_to_type_kind "integer" "2" "1" "2" test_cast_1_to_type_kind "integer" "4" "1" "4" test_cast_1_to_type_kind "integer" "8" "1" "8" @@ -92,6 +93,7 @@ proc test_old_star_type_sizes {} { gdb_test "p ((logical*4) 1)" " = \\.TRUE\\." gdb_test "p ((logical*8) 1)" " = \\.TRUE\\." + gdb_test "p ((integer*1) 1)" " = 1" gdb_test "p ((integer*2) 1)" " = 1" gdb_test "p ((integer*4) 1)" " = 1" gdb_test "p ((integer*8) 1)" " = 1" diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp index 7bd51ca..625e021 100644 --- a/gdb/testsuite/gdb.fortran/types.exp +++ b/gdb/testsuite/gdb.fortran/types.exp @@ -74,7 +74,7 @@ proc test_float_literal_types_accepted {} { # Test the the primitive Fortran types, those that GDB should always # know, even if the program does not define them, are in fact, known. proc test_primitive_types_known {} { - foreach type {void character logical*1 integer*2 integer*8 \ + foreach type {void character logical*1 integer*1 integer*2 integer*8 \ logical*2 logical*8 integer logical*4 real \ real*8 real*16} { gdb_test "ptype $type" [string_to_regexp "type = $type"] |