gcc/testsuite/gnat.dg/expect1.adb

--  { dg-do run }

with GNAT.Expect; use GNAT.Expect;
with Ada.Text_IO; use Ada.Text_IO;
procedure expect1 is
   Process : Process_Descriptor;
begin
   begin
      Close (Process);
      raise Program_Error;
   exception
      when Invalid_Process =>
         null;  -- expected
   end;
end expect1;