PR libfortran/64770 Segfault when trying to open existing file with status="new".

[official-gcc.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;