diff options
author | Daniel Jacobowitz <drow@false.org> | 2007-05-07 01:11:31 +0000 |
---|---|---|
committer | Daniel Jacobowitz <drow@false.org> | 2007-05-07 01:11:31 +0000 |
commit | be444858228e6add7b1b99a57435119ac1926779 (patch) | |
tree | c65271a95e2676c9c4c63d255ed2a1a4c450311a /gdb/testsuite/gdb.fortran/complex.exp | |
parent | 7c9283002dad24cf84011e40cd3d05231aae6854 (diff) | |
download | fsf-binutils-gdb-be444858228e6add7b1b99a57435119ac1926779.zip fsf-binutils-gdb-be444858228e6add7b1b99a57435119ac1926779.tar.gz fsf-binutils-gdb-be444858228e6add7b1b99a57435119ac1926779.tar.bz2 |
* gdb.fortran/complex.exp, gdb.fortran/complex.f: New files.
Diffstat (limited to 'gdb/testsuite/gdb.fortran/complex.exp')
-rw-r--r-- | gdb/testsuite/gdb.fortran/complex.exp | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp new file mode 100644 index 0000000..e78847d --- /dev/null +++ b/gdb/testsuite/gdb.fortran/complex.exp @@ -0,0 +1,46 @@ +# Copyright 2007 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. + +set testfile "complex" +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 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto MAIN__] then { + perror "Couldn't run to MAIN__" + 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_test "print c" "\\\$$decimal = \\(1000,-50\\)" |