diff options
author | Joel Brobecker <brobecker@gnat.com> | 2007-01-04 05:39:01 +0000 |
---|---|---|
committer | Joel Brobecker <brobecker@gnat.com> | 2007-01-04 05:39:01 +0000 |
commit | fd678c65736388e1f0bd2500b16a8325963f06cd (patch) | |
tree | baa85ac2411dd861ca78a04aef37a3280887b883 /gdb/testsuite/gdb.ada/catch_ex | |
parent | b7c61d9abb91cd7ce1c91e634afd2351ebcdbc70 (diff) | |
download | fsf-binutils-gdb-fd678c65736388e1f0bd2500b16a8325963f06cd.zip fsf-binutils-gdb-fd678c65736388e1f0bd2500b16a8325963f06cd.tar.gz fsf-binutils-gdb-fd678c65736388e1f0bd2500b16a8325963f06cd.tar.bz2 |
* gdb.ada/catch_ex/foo.adb: New file.
* gdb.ada/catch_ex.exp: New testcase.
Diffstat (limited to 'gdb/testsuite/gdb.ada/catch_ex')
-rw-r--r-- | gdb/testsuite/gdb.ada/catch_ex/foo.adb | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/catch_ex/foo.adb b/gdb/testsuite/gdb.ada/catch_ex/foo.adb new file mode 100644 index 0000000..d8220d2 --- /dev/null +++ b/gdb/testsuite/gdb.ada/catch_ex/foo.adb @@ -0,0 +1,45 @@ +-- 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., 51 Franklin Street, Fifth Floor, Boston, +-- MA 02110-1301, USA + +procedure Foo is +begin + + begin + raise Constraint_Error; -- SPOT1 + exception + when others => + null; + end; + + begin + raise Program_Error; -- SPOT2 + exception + when others => + null; + end; + + begin + pragma Assert (False); -- SPOT3 + null; + exception + when others => + null; + end; + + raise Constraint_Error; -- SPOT4 + +end Foo; |