/***************************************************
 ** @author   STF 470
 ** @version  0.0.1
 ** @purpose  1:6.1.2.2, Assign invalid values to list of types restricted boolean value.
 ** @verdict  pass reject
 ***************************************************/
module NegSem_06010202_ListOfTypes_008 {
    type boolean MyBoolean1 (false);	//only "false" is accepted


    type component GeneralComp {}

    testcase TC_NegSem_06010202_ListOfTypes_008() runs on GeneralComp {
        var MyBoolean1 v_b;
        v_b := true; // invalid
		setverdict(pass);
    }

    control{
        execute(TC_NegSem_06010202_ListOfTypes_008());
    }
}