* gnat.dg/bit_packed_array5.ads: Move dg directive to...

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / raise_ce.adb

procedure Raise_CE is
begin
   raise Constraint_Error;
end;