old-cross-binutils/gdb/testsuite/gdb.ada/mi_catch_ex
..
foo.adb