anchor.diff:  redundant_case_1(4) -> d;
   redundant_case_1(_) -> d.
   
  -failure(Module, Conf) ->
  -    Src = filename:join(proplists:get_value(data_dir, Conf),
  -			atom_to_list(Module)),
  -    Out = proplists:get_value(priv_dir, Conf),
  -    io:format("Compiling: ~ts\n", [Src]),
  -    CompRc = compile:file(Src, [{outdir,Out},return,time]),
  -    io:format("Result: ~p\n",[CompRc]),
  -    case CompRc of
  -	error -> ok;
  -	{error,Errors,_} -> check_errors(Errors);
  -	_ -> ct:fail({no_error, CompRc})
  -    end,
  -    ok.
  -
  -check_errors([{_,Eds}|T]) ->
  -    check_error(Eds),
  -    check_errors(T);
  -check_errors([]) -> ok.
  -
  -check_error([{_,Mod,Error}|T]) ->
  -    check_error_1(Mod:format_error(Error)),
  -    check_error(T);
  -check_error([{Mod,Error}|T]) ->
  -    check_error_1(Mod:format_error(Error)),
  -    check_error(T);
  -check_error([]) -> ok.
  -
  -check_error_1(Str0) ->
  -    Str = lists:flatten(Str0),
  -    io:format("~s\n", [Str]),
  -    case Str of
  -	"internal"++_=Str ->
  -	    ct:fail(internal_compiler_error);
  -	_ ->
  -	    ok
  -    end.
  -
  --define(TC(Body), tc(fun() -> Body end, ?LINE)).
  -
   try_it(Module, Conf) ->
       Timetrap = {minutes,10},
       OtherOpts = [],			%Can be changed to [time] if needed
  
positive.code:        otp_5151,otp_5235,
         opt_crash,otp_5404,otp_5436,otp_5481,
         otp_5553,otp_5632,otp_5714,otp_5872,otp_6121,
         otp_7202,on_load,
         string_table,otp_8949_a,split_cases]}].
  
  init_per_suite(Config) ->
  
negative.code: 
  compiler_src() ->
      filelib:wildcard(filename:join([code:lib_dir(compiler), "src", "*.erl"])).
  
  make_compiler_dir(Priv, Dir0) ->
      Dir = filename:join(Priv, Dir0),
  