@@ -1,3 +1,9 @@
+2019-03-18 Andrew Burgess <andrew.burgess@embecosm.com>
+ Chris January <chris.january@arm.com>
+
+ * dwarf2read.c (dwarf2_init_complex_target_type): Use different
+ types for Fortran.
+
2019-03-18 Andrew Burgess <andrew.burgess@embecosm.com>
Chris January <chris.january@arm.com>
David Lecomber <david.lecomber@arm.com>
@@ -17547,16 +17547,35 @@ dwarf2_init_complex_target_type (struct dwarf2_cu *cu,
gdbarch *gdbarch = get_objfile_arch (objfile);
struct type *tt = nullptr;
- switch (bits)
+ switch (cu->language)
{
- case 32:
- tt = builtin_type (gdbarch)->builtin_float;
- break;
- case 64:
- tt = builtin_type (gdbarch)->builtin_double;
+ case language_fortran:
+ switch (bits)
+ {
+ case 32:
+ tt = builtin_f_type (gdbarch)->builtin_real;
+ break;
+ case 64:
+ tt = builtin_f_type (gdbarch)->builtin_real_s8;
+ break;
+ case 128:
+ tt = builtin_f_type (gdbarch)->builtin_real_s16;
+ break;
+ }
break;
- case 128:
- tt = builtin_type (gdbarch)->builtin_long_double;
+ default:
+ switch (bits)
+ {
+ case 32:
+ tt = builtin_type (gdbarch)->builtin_float;
+ break;
+ case 64:
+ tt = builtin_type (gdbarch)->builtin_double;
+ break;
+ case 128:
+ tt = builtin_type (gdbarch)->builtin_long_double;
+ break;
+ }
break;
}
@@ -400,6 +400,35 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show,
fprintfi_filtered (level, stream, "module %s", TYPE_NAME (type));
break;
+ case TYPE_CODE_FLT:
+ /* In the case where the float was extracted from a complex number
+ then the component part will not have a name set. Provide a
+ suitable name here.
+
+ QUESTION: Maybe we should be forcing the type name in the DWARF
+ parser rather than fixing up the missing name at the last minute?
+ I couldn't see any precedent for such fixing up though. */
+ if (TYPE_NAME (type) != NULL)
+ fprintfi_filtered (level, stream, "%s", TYPE_NAME (type));
+ else
+ {
+ gdbarch *gdbarch = get_type_arch (type);
+ switch (TYPE_LENGTH (type))
+ {
+ case 4:
+ type = builtin_f_type (gdbarch)->builtin_real;
+ break;
+ case 8:
+ type = builtin_f_type (gdbarch)->builtin_real_s8;
+ break;
+ case 16:
+ type = builtin_f_type (gdbarch)->builtin_real_s16;
+ break;
+ }
+ fprintfi_filtered (level, stream, "%s", TYPE_NAME (type));
+ }
+ break;
+
default_case:
default:
/* Handle types not explicitly handled by the other cases,
@@ -1,3 +1,10 @@
+2019-03-18 Andrew Burgess <andrew.burgess@embecosm.com>
+
+ * gdb.fortran/complex.exp: Expand.
+ * gdb.fortran/complex.f: Renamed to...
+ * gdb.fortran/complex.f90: ...this, and extended to add more
+ complex values.
+
2019-03-18 Andrew Burgess <andrew.burgess@embecosm.com>
* gdb.fortran/intrinsics.exp: Extend to cover MOD, CEILING, FLOOR,
@@ -13,7 +13,7 @@
# 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 .f
+standard_testfile .f90
if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90 quiet}]} {
return -1
@@ -24,13 +24,36 @@ if ![runto MAIN__] then {
continue
}
-set bp_location [gdb_get_line_number "stop"]
-gdb_test "break $bp_location" \
- "Breakpoint.*at.* file .*$srcfile, line $bp_location\\." \
- "breakpoint at stop"
-gdb_test "continue" \
- "Continuing\\..*Breakpoint.*" \
- "continue to breakpoint"
+gdb_breakpoint [gdb_get_line_number "stop"]
+gdb_continue_to_breakpoint "continue"
+
+gdb_test "print c" " = \\(1000,-50\\)"
+gdb_test "print c4" " = \\(1000,-50\\)"
+gdb_test "print c8" " = \\(321,-22\\)"
+gdb_test "print dc" " = \\(321,-22\\)"
+
+setup_kfail gdb/18644 "*-*-*"
+gdb_test "print c16" " = \\(-874,19\\)"
+
+gdb_test "whatis c" "type = complex\\(kind=4\\)"
+gdb_test "print \$_creal (c)" " = 1000"
+gdb_test "whatis \$" " = real"
+
+gdb_test "whatis c4" "type = complex\\(kind=4\\)"
+gdb_test "print \$_creal (c4)" " = 1000"
+gdb_test "whatis \$" " = real"
+
+gdb_test "whatis c8" "type = complex\\(kind=8\\)"
+gdb_test "print \$_creal (c8)" " = 321"
+gdb_test "whatis \$" " = real\\*8"
+
+gdb_test "whatis dc" "type = complex\\(kind=8\\)"
+gdb_test "print \$_creal (dc)" " = 321"
+gdb_test "whatis \$" " = real\\*8"
+
+gdb_test "whatis c16" "type = complex\\(kind=16\\)"
+setup_kfail gdb/18644 "*-*-*"
+gdb_test "print \$_creal (c16)" " = -874"
+gdb_test "whatis \$" " = real\\*16"
-gdb_test "print c" "\\\$$decimal = \\(1000,-50\\)"
deleted file mode 100644
@@ -1,24 +0,0 @@
-c Copyright 2007-2019 Free Software Foundation, Inc.
-
-c This program is free software; you can redistribute it and/or modify
-c it under the terms of the GNU General Public License as published by
-c the Free Software Foundation; either version 3 of the License, or
-c (at your option) any later version.
-c
-c This program is distributed in the hope that it will be useful,
-c but WITHOUT ANY WARRANTY; without even the implied warranty of
-c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-c GNU General Public License for more details.
-c
-c You should have received a copy of the GNU General Public License
-c along with this program. If not, see <http://www.gnu.org/licenses/>.
-
- real*8 a,b
- complex*16 c
-
- a = 1000
- b = -50
- c = cmplx(a,b)
- write(*,*) s
- stop
- end
new file mode 100644
@@ -0,0 +1,44 @@
+! Copyright 2007-2019 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/>.
+
+program test_complex
+ real*4 r4a, r4b
+ real*8 r8a, r8b
+ real*16 r16a, r16b
+
+ complex c
+ complex(kind=4) c4
+ complex(kind=8) c8
+ double complex dc
+ complex(kind=16) c16
+
+ r4a = 1000
+ r4b = -50
+ r8a = 321
+ r8b = -22
+ r16a = -874
+ r16b = 19
+
+ c = cmplx(r4a,r4b)
+ c4 = cmplx(r4a,r4b)
+ c8 = cmplx(r8a, r8b)
+ dc = cmplx(r8a, r8b)
+ c16 = cmplx(r16a, r16b)
+
+ print *, c, c4, c8, dc, c16 ! stop
+ print *, r4a, r4b
+ print *, r8a, r8b
+ print *, r16a, r16b
+end program test_complex