* fold-const.c (make_range_step) <TRUTH_NOT_EXPR>: Bail out if the

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

-- { dg-do run }

with Derived_Type3_Pkg; use Derived_Type3_Pkg;

procedure Derived_Type3 is
begin
   Proc1;
   Proc2;
end;