From: Per Bothner Date: Fri, 16 Sep 1994 23:55:01 +0000 (+0000) Subject: * pr-5646.ch, pr-5646.exp, Makefile.in: New testcase. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ab8b59f441b94580f923a3021e2f8c6c15f5a268;p=binutils-gdb.git * pr-5646.ch, pr-5646.exp, Makefile.in: New testcase. --- diff --git a/gdb/testsuite/gdb.chill/.Sanitize b/gdb/testsuite/gdb.chill/.Sanitize index f9fdaaa1086..5ef889aede4 100644 --- a/gdb/testsuite/gdb.chill/.Sanitize +++ b/gdb/testsuite/gdb.chill/.Sanitize @@ -37,6 +37,8 @@ pr-5020.ch pr-5020.exp pr-5022.ch pr-5022.exp +pr-5646.ch +pr-5646.exp result.ch result.exp diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index 1a6e1581c00..7abbcd7e2c2 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -1,3 +1,12 @@ +Fri Sep 16 16:55:03 1994 Per Bothner (bothner@kalessin.cygnus.com) + + * pr-5646.ch, pr-5646.exp, Makefile.in: New testcase. + +Tue Sep 6 13:21:27 1994 Per Bothner (bothner@kalessin.cygnus.com) + + * pr-5016.ch, pr-5016.exp, Makefile.in: New testcase. + * Makefile.in (.exe.check): New rule, to run just one test. + Tue Jun 14 16:20:18 1994 Per Bothner (bothner@kalessin.cygnus.com) * result.ch, result.exp, Makefile.in: New test case. diff --git a/gdb/testsuite/gdb.chill/Makefile.in b/gdb/testsuite/gdb.chill/Makefile.in index 144b1c1bcb2..94d33d19dc8 100644 --- a/gdb/testsuite/gdb.chill/Makefile.in +++ b/gdb/testsuite/gdb.chill/Makefile.in @@ -103,7 +103,7 @@ GDBFLAGS = -nx #### host, target, and site specific Makefile frags come in here. EXECUTABLES = chillvars.exe result.exe \ - pr-4975.exe pr-5016.exe pr-5020.exe pr-5022.exe + pr-4975.exe pr-5016.exe pr-5020.exe pr-5022.exe pr-5646.exe # To force pr-4975-grt to be compiled before pr-4975, so the # latter can use the former's grant file. diff --git a/gdb/testsuite/gdb.chill/pr-5646.ch b/gdb/testsuite/gdb.chill/pr-5646.ch new file mode 100644 index 00000000000..186fbb72c1e --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-5646.ch @@ -0,0 +1,15 @@ +y: MODULE + +<> USE_SEIZE_FILE "x.grt" <> +SEIZE a_ps; + +p: PROC (); + + DCL xx a_ps; + + xx := [a, b]; +END p; + +p(); + +END y; diff --git a/gdb/testsuite/gdb.chill/pr-5646.exp b/gdb/testsuite/gdb.chill/pr-5646.exp new file mode 100644 index 00000000000..e819110d719 --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-5646.exp @@ -0,0 +1,57 @@ +# Copyright (C) 1992 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +# This file was written by Per Bothner. (bothner@cygnus.com) + +if $tracelevel then { + strace $tracelevel +} + +proc do_tests {} { + global prms_id bug_id subdir objdir srcdir binfile prompt + + set prms_id 0 + set bug_id 0 + + # Start with a fresh gdb. + + gdb_exit + gdb_start + gdb_reinitialize_dir $srcdir/$subdir + gdb_load $objdir/$subdir/$binfile + + send "set language chill\n" ; expect -re "$prompt $" + + runto p + send "next\n" ; expect -re "$prompt $" + gdb_test_exact "print xx" {= [a:b]} +} + +# Check to see if we have an executable to test. If not, then either we +# haven't tried to compile one, or the compilation failed for some reason. +# In either case, just notify the user and skip the tests in this file. + +set binfile "pr-5646.exe" +set srcfile $binfile.ch + +if ![file exists $objdir/$subdir/$binfile] then { + warning "$binfile does not exist; tests suppressed." +} else { + do_tests +}