* gcc.c-torture/compile/20080625-1.c: Skip for M32C.

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

package body TREE_STATIC_Def is

 procedure check (i : int; v : integer) is
 begin
    if i.value /= v then
      raise program_error;
    end if;
 end;
end;