From: Nick Roberts Date: Mon, 27 Mar 2006 00:27:09 +0000 (+0000) Subject: New files. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5cc40a5834a894e69901fc4a4e0e9b6cd9876e75;p=binutils-gdb.git New files. --- diff --git a/gdb/testsuite/gdb.mi/array.f b/gdb/testsuite/gdb.mi/array.f new file mode 100644 index 00000000000..4cc7381ae0e --- /dev/null +++ b/gdb/testsuite/gdb.mi/array.f @@ -0,0 +1,22 @@ +c Copyright 2006 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 2 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 GNU Emacs; see the file COPYING. If not, write to the +c Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +c Boston, MA 02110-1301, USA. + + INTEGER array(1:2,-1:1) + DATA array/11,21,12,22,13,23/ + CONTINUE + STOP + END diff --git a/gdb/testsuite/gdb.mi/mi-var-child-f.exp b/gdb/testsuite/gdb.mi/mi-var-child-f.exp new file mode 100644 index 00000000000..82f4f0c8e61 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-var-child-f.exp @@ -0,0 +1,51 @@ +# Copyright 2006 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 GNU Emacs; see the file COPYING. If not, write to the +# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +# Boston, MA 02110-1301, USA. + +# Test variable objects treat non-zero offsets in Fortran arrays correctly. + +load_lib mi-support.exp +set MIFLAGS "-i=mi" + +gdb_exit +if [mi_gdb_start] { + continue +} + +set testfile "array" +set srcfile ${testfile}.f +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } { + untested "Couldn't compile ${srcfile}" + return -1 +} + +mi_gdb_reinitialize_dir $srcdir/$subdir +mi_gdb_load ${binfile} + +mi_runto MAIN__ + +mi_gdb_test "-var-create array * array" \ + "\\^done,name=\"array\",numchild=\"3\",type=\"integer \\(2,-1:1\\)\"" \ + "create local variable array" + +mi_gdb_test "-var-list-children --all-values array" \ + "\\^done,numchild=\"3\",children=\\\[child=\{name=\"array.-1\",exp=\"-1\",numchild=\"2\",value=\"\\\[2\\\]\",type=\"integer \\(2\\)\"\},child=\{name=\"array.0\",exp=\"0\",numchild=\"2\",value=\"\\\[2\\\]\",type=\"integer \\(2\\)\"\},child=\{name=\"array.1\",exp=\"1\",numchild=\"2\",value=\"\\\[2\\\]\",type=\"integer \\(2\\)\"\}\\\]" \ + "get children of array" + +mi_gdb_test "-var-list-children --all-values array.-1" \ + "\\^done,numchild=\"2\",children=\\\[child=\{name=\"array.-1.1\",exp=\"1\",numchild=\"0\",value=\"11\",type=\"integer\"\},child=\{name=\"array.-1.2\",exp=\"2\",numchild=\"0\",value=\"21\",type=\"integer\"\}\\\]" \ + "get grandchildren of array (children of first element of second index)"