diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/complex.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/complex.exp | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/complex.exp b/gdb/testsuite/gdb.base/complex.exp new file mode 100644 index 00000000000..f3f25e561b7 --- /dev/null +++ b/gdb/testsuite/gdb.base/complex.exp @@ -0,0 +1,63 @@ +# Copyright 2003 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +if $tracelevel then { + strace $tracelevel +} + +set bug_id 0 + +set testfile complex +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +set options debug + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $options] != "" } { + # No support for __complex__, presumably. + unsupported "print complex packed value in C" + unsupported "print complex value in C" + return 0 +} + +# Start with a fresh gdb. + +if [get_compiler_info ${binfile}] { + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load $binfile + +if [runto f2] then { + get_debug_format + if {$gcc_compiled == 2 && [test_debug_format "DWARF 2"]} then { + setup_xfail "*-*-*" + } + gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ + "print complex packed value in C" +} + +if [runto f4] then { + gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0 \\* I\}" \ + "print complex value in C" +} + +return 0 |