summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/raise_ce.adb
blob: f526beef50efd2b272b87b9dc90a66ed26deeedc (plain)
1
2
3
4
procedure Raise_CE is
begin
   raise Constraint_Error;
end;