diff mbox series

[pushed] Avoid some compiler warnings in gdb.ada

Message ID 20230427163205.3031287-1-tromey@adacore.com
State New
Headers
Series [pushed] Avoid some compiler warnings in gdb.ada |

Commit Message

Tom Tromey April 27, 2023, 4:32 p.m. UTC 
  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.
---
 gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb | 4 ++--
 gdb/testsuite/gdb.ada/verylong/prog.adb                   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)
diff mbox series

Patch

diff --git a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb
index c3bccb69696..502c1da37bc 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 766419d0a4f..63fba1d2d3a 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;