summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/expect1.adb
blob: 058fe42c913c42b9a0b20f1f768e20d191c14270 (plain)
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;