* gcc-interface/trans.c (Call_to_gnu): Robustify test for function case

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

procedure Raise_CE is
begin
   raise Constraint_Error;
end;