gcc/testsuite/gnat.dg/expect1.adb

   1 --  { dg-do run }
   2
   3 with GNAT.Expect; use GNAT.Expect;
   4 with Ada.Text_IO; use Ada.Text_IO;
   5 procedure expect1 is
   6    Process : Process_Descriptor;
   7 begin
   8    begin
   9       Close (Process);
  10       raise Program_Error;
  11    exception
  12       when Invalid_Process =>
  13          null;  -- expected
  14    end;
  15 end expect1;