aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada/arrayptr
diff options
context:
space:
mode:
authorJoel Brobecker <brobecker@gnat.com>2008-01-03 13:15:43 +0000
committerJoel Brobecker <brobecker@gnat.com>2008-01-03 13:15:43 +0000
commita4d0b9c3e1ad2c359fc6bc1e7bb21ad506cdbc60 (patch)
tree1b716ec966230d625dfb6b78c760d9ef5bdb9311 /gdb/testsuite/gdb.ada/arrayptr
parentf192137b09a5f99ef0ab14f19cb7160871f25963 (diff)
downloadgdb-a4d0b9c3e1ad2c359fc6bc1e7bb21ad506cdbc60.zip
gdb-a4d0b9c3e1ad2c359fc6bc1e7bb21ad506cdbc60.tar.gz
gdb-a4d0b9c3e1ad2c359fc6bc1e7bb21ad506cdbc60.tar.bz2
* gdb.ada/arrayptr/pck.ads, gdb.ada/arrayptr/pck.adb,
gdb.ada/arrayptr/foo.adb: New files. * gdb.ada/arrayptr.exp: New testcase.
Diffstat (limited to 'gdb/testsuite/gdb.ada/arrayptr')
-rw-r--r--gdb/testsuite/gdb.ada/arrayptr/foo.adb24
-rw-r--r--gdb/testsuite/gdb.ada/arrayptr/pck.adb23
-rw-r--r--gdb/testsuite/gdb.ada/arrayptr/pck.ads22
3 files changed, 69 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/arrayptr/foo.adb b/gdb/testsuite/gdb.ada/arrayptr/foo.adb
new file mode 100644
index 0000000..edbf066
--- /dev/null
+++ b/gdb/testsuite/gdb.ada/arrayptr/foo.adb
@@ -0,0 +1,24 @@
+-- Copyright 2008 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 3 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, see <http://www.gnu.org/licenses/>.
+
+with Pck; use Pck;
+
+procedure Foo is
+ type String_Access is access String;
+
+ String_P : String_Access := new String'("Hello");
+begin
+ Do_Nothing (String_P'Address); -- STOP
+end Foo;
diff --git a/gdb/testsuite/gdb.ada/arrayptr/pck.adb b/gdb/testsuite/gdb.ada/arrayptr/pck.adb
new file mode 100644
index 0000000..38e1b35
--- /dev/null
+++ b/gdb/testsuite/gdb.ada/arrayptr/pck.adb
@@ -0,0 +1,23 @@
+-- Copyright 2008 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 3 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, see <http://www.gnu.org/licenses/>.
+
+package body Pck is
+
+ procedure Do_Nothing (A : System.Address) is
+ begin
+ null;
+ end Do_Nothing;
+
+end Pck;
diff --git a/gdb/testsuite/gdb.ada/arrayptr/pck.ads b/gdb/testsuite/gdb.ada/arrayptr/pck.ads
new file mode 100644
index 0000000..1dab958
--- /dev/null
+++ b/gdb/testsuite/gdb.ada/arrayptr/pck.ads
@@ -0,0 +1,22 @@
+-- Copyright 2008 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 3 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, see <http://www.gnu.org/licenses/>.
+
+with System;
+
+package Pck is
+
+ procedure Do_Nothing (A : System.Address);
+
+end Pck;