diff options
author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-02-16 17:26:44 +0000 |
---|---|---|
committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-04-30 10:34:26 +0100 |
commit | bf7a4de1722a63c8b017d010e75d5e9e5e622f36 (patch) | |
tree | 82ae4065b73b0aa1ba90f21e2369234f48468a67 /gdb/testsuite/gdb.fortran/ptype-on-functions.exp | |
parent | bbe75b9d00cc6f0694ff26569505c349d55e35f1 (diff) | |
download | fsf-binutils-gdb-bf7a4de1722a63c8b017d010e75d5e9e5e622f36.zip fsf-binutils-gdb-bf7a4de1722a63c8b017d010e75d5e9e5e622f36.tar.gz fsf-binutils-gdb-bf7a4de1722a63c8b017d010e75d5e9e5e622f36.tar.bz2 |
gdb/fortran: print function arguments when printing function type
Before this commit using ptype on a Fortran function will include
information about the functions return type, but not the expected
arguments as it would for C or C++. After this commit argument types
are included in the ptype output.
For example, before GDB prints:
(gdb) ptype fun1
type = integer(kind=4) ()
(gdb) ptype is_bigger
type = logical(kind=4) ()
and after GDB prints:
(gdb) ptype fun1
type = integer(kind=4) (integer(kind=4))
(gdb) ptype is_bigger
type = logical(kind=4) (integer(kind=4), integer(kind=4))
gdb/ChangeLog:
* f-typeprint.c (f_type_print_varspec_suffix): Handle printing
function arguments.
gdb/testsuite/ChangeLog:
* gdb.fortran/ptype-on-functions.exp: New file.
* gdb.fortran/ptype-on-functions.f90: New file.
Diffstat (limited to 'gdb/testsuite/gdb.fortran/ptype-on-functions.exp')
-rw-r--r-- | gdb/testsuite/gdb.fortran/ptype-on-functions.exp | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp new file mode 100644 index 0000000..4ce7862 --- /dev/null +++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp @@ -0,0 +1,45 @@ +# Copyright 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/>. + +# This file contains a test for printing the types of functions. + +if { [skip_fortran_tests] } { return -1 } + +standard_testfile .f90 +load_lib "fortran.exp" + +if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} { + return -1 +} + +if ![runto MAIN__] then { + perror "couldn't run to breakpoint MAIN__" + continue +} + +gdb_test "ptype some_module::get_number" \ + "type = integer\\(kind=4\\) \\(Type __class_some_module_Number_t\\)" + +gdb_test "ptype some_module::set_number" \ + "type = void \\(Type __class_some_module_Number_t, integer\\(kind=4\\)\\)" + +gdb_test "ptype is_bigger" \ + "type = logical\\(kind=4\\) \\(integer\\(kind=4\\), integer\\(kind=4\\)\\)" + +gdb_test "ptype say_numbers" \ + "type = void \\(integer\\(kind=4\\), integer\\(kind=4\\), integer\\(kind=4\\)\\)" + +gdb_test "ptype fun_ptr" \ + "type = PTR TO -> \\( integer\\(kind=4\\) \\(\\)\\(REF TO -> \\( integer\\(kind=4\\) \\)\\)\\)" |