gcc/testsuite/gnat.dg/expect1.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--  { 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;