diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/complete/foo.adb')
| -rw-r--r-- | gdb/testsuite/gdb.ada/complete/foo.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/complete/foo.adb b/gdb/testsuite/gdb.ada/complete/foo.adb new file mode 100644 index 0000000..3cf60b6 --- /dev/null +++ b/gdb/testsuite/gdb.ada/complete/foo.adb @@ -0,0 +1,10 @@ +with Pck; use Pck; + +procedure Foo is + Some_Local_Variable : Integer := 1; + External_Identical_Two : Integer := 74; +begin + My_Global_Variable := Some_Local_Variable + 1; -- START + Proc (External_Identical_Two); +end Foo; + |