Avoid some compiler warnings in gdb.ada

Running gdb.ada/verylong.exp shows a warning from the Ada compiler:

prog.adb:16:11: warning: file name does not match unit name, should be "main.adb" [enabled by default]

This patch fixes the problem, and another similar one in
unchecked_union.exp.

2 files changed, 4 insertions, 4 deletions

diff --git a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb
index c3bccb6..502c1da 100644
--- a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb
+++ b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb
@@ -16,7 +16,7 @@
 with System;
 with Pck; use Pck;
 
-procedure Foo is
+procedure Unchecked_Union is
    type Key is (Alpha, Beta, Omega);
 
    type Inner(Disc : Key := Omega) is record
@@ -52,4 +52,4 @@ procedure Foo is
 
 begin
    Do_Nothing (Value'Address);          -- BREAK
-end Foo;
+end Unchecked_Union;
diff --git a/gdb/testsuite/gdb.ada/verylong/prog.adb b/gdb/testsuite/gdb.ada/verylong/prog.adb
index 766419d..63fba1d 100644
--- a/gdb/testsuite/gdb.ada/verylong/prog.adb
+++ b/gdb/testsuite/gdb.ada/verylong/prog.adb
@@ -13,8 +13,8 @@
 --  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 Main is
+procedure Prog is
    X : Long_Long_Long_Integer := Long_Long_Long_Integer'Last;
 begin
    null; -- START
-end Main;
+end Prog;