diff options
| -rw-r--r-- | gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/verylong/prog.adb | 4 |
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; |