Index: gdb/testsuite/gdb.ada/task_bp/pck.adb |
diff --git a/gdb/testsuite/gdb.ada/ptr_typedef/pck.adb b/gdb/testsuite/gdb.ada/task_bp/pck.adb |
similarity index 90% |
copy from gdb/testsuite/gdb.ada/ptr_typedef/pck.adb |
copy to gdb/testsuite/gdb.ada/task_bp/pck.adb |
index f2dfe8d504490314fffdc921a6c54211e92baa2c..c17d67be6602173cda1da3dec784c855934989fc 100644 |
--- a/gdb/testsuite/gdb.ada/ptr_typedef/pck.adb |
+++ b/gdb/testsuite/gdb.ada/task_bp/pck.adb |
@@ -14,8 +14,8 @@ |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
package body Pck is |
- procedure Do_Nothing (A : System.Address) is |
+ task body Dummy_Task is |
begin |
- null; |
- end Do_Nothing; |
+ accept Start; |
+ end Dummy_Task; |
end Pck; |