-# Copyright 2008-2013 Free Software Foundation, Inc.
+# Copyright 2008-2020 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
load_lib "ada.exp"
+if { [skip_ada_tests] } { return -1 }
+
standard_ada_testfile dummy start
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
runto "dummy.adb:$bp_location"
gdb_test "p /x \$pc" \
- "= 0x\[0-9a-zA-Z\]+" \
- "p /x \$pc"
+ "= 0x\[0-9a-zA-Z\]+"