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.

2 files changed, 4 insertions, 4 deletions

diff --git a/gdb/testsuite/gdb.dap/ada-nested/prog.adb b/gdb/testsuite/gdb.dap/ada-nested/prog.adb
index cbd7ac2..f20b17e 100644
--- 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 22586ef..17511f7 100644
--- 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;