Rename two Ada test suite functions

I happened to notice that the Ada compiler emitted a warning when
compiling a couple of DAP tests.  This wasn't intentional, and this
patch renames the functions to match the filename.

diff --git a/gdb/testsuite/gdb.dap/ada-nested/prog.adb b/gdb/testsuite/gdb.dap/ada-nested/prog.adb
index cbd7ac2762ea15575d67238a54708a888ee91c14..f20b17e36302eedf14a72f3ad8b25965d487fc9c 100644 (file)
--- a/gdb/testsuite/gdb.dap/ada-nested/prog.adb
+++ b/gdb/testsuite/gdb.dap/ada-nested/prog.adb
@@ -13,7 +13,7 @@
 --  You should have received a copy of the GNU General Public License
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-procedure Foo is
+procedure Prog is
    X  : Integer := 12;
 
    procedure Outer (Outer_Arg : Integer) is
@@ -29,4 +29,4 @@ begin
    for I in 1 .. 20 loop
       Outer (1);
    end loop;
-end Foo;
+end Prog;

diff --git a/gdb/testsuite/gdb.dap/ada-scopes/prog.adb b/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
index 22586ef2dea74415f8c48a15371f7c178f2cccd9..17511f75eb310c552f1413a9f1d73b7366bc8387 100644 (file)
--- a/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
+++ b/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
@@ -15,7 +15,7 @@
 
 with Pack; use Pack;
 
-procedure Foo is
+procedure Prog is
    type Enum_Type is (one, two, three);
    Value : Enum_Type := three;
 
@@ -23,4 +23,4 @@ procedure Foo is
 begin
    Do_Nothing (Value'address);
    Do_Nothing (My_String'address);  -- STOP
-end Foo;
+end Prog;