mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-30 12:44:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

gdb/fortran: change default logical type to builtin_logical

Browse Source 
According to the Fortran standard, logical is of the size of a
'single numeric storage unit' (just like real and integer). For
gfortran, flang and ifx/ifort this storage unit (or the default
logical type) is of size kind 4, actually occupying 4 bytes of
storage, and so the default type for logical expressions in
Fortran should probably also be Logical*4 and not Logical*2.  I
adapted GDB's behavior to be in line with
gfortran/ifort/ifx/flang.
This commit is contained in:
Nils-Christian Kempke 2022-04-11 14:06:55 +02:00
parent ed9ec61174
commit 4ec8aa9e94
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gdb/f-lang.c
View File

@ -1570,7 +1570,7 @@ f_language::language_arch_info (struct gdbarch *gdbarch,
add (builtin->builtin_void);
lai->set_string_char_type (builtin->builtin_character);
lai->set_bool_type (builtin->builtin_logical_s2, "logical");
lai->set_bool_type (builtin->builtin_logical, "logical");
}
/* See language.h. */

8
gdb/testsuite/gdb.fortran/types.exp
View File

@ -48,10 +48,10 @@ proc test_logical_literal_types_accepted {} {
# Test the only possible values for a logical, TRUE and FALSE (and
# also true and false).
gdb_test "pt .TRUE." "type = logical\\*2"
gdb_test "pt .FALSE." "type = logical\\*2"
gdb_test "pt .true." "type = logical\\*2"
gdb_test "pt .false." "type = logical\\*2"
gdb_test "pt .TRUE." "type = logical\\*4"
gdb_test "pt .FALSE." "type = logical\\*4"
gdb_test "pt .true." "type = logical\\*4"
gdb_test "pt .false." "type = logical\\*4"
}
proc test_float_literal_types_accepted {} {