/***************************************************
 ** @author   STF 433
 ** @version  0.0.1
 ** @purpose  1:24, Ensure setverdict accepts values only as the parameter
 ** @verdict  pass reject
 ***************************************************/
/*
 * #reqname  /Requirements/24 Test verdict operations/24.2 The Setverdict operation/Setverdict allowed verdict values
 **/

module NegSem_2402_setverdict_params_005 {
    type component TComp {}

    testcase TC_NegSem_2402_setverdict_params_005() runs on TComp {
        var  anytype v_var := { integer := 1 };
        setverdict(v_var.verdicttype);
    }

    control {
        execute(TC_NegSem_2402_setverdict_params_005())
    }
}