/***************************************************
 ** @author   STF 409
 ** @version  0.0.1
 ** @purpose  1:6.3.2, Ensure that the IUT rejects assignments from incompatible types or type ranges
 ** @verdict  pass reject
 ***************************************************/

module NegSem_060302_structured_types_004 {

	type set SetType {
 	 integer  a(0..10) optional,
 	 integer  b(0..10) optional,
 	 boolean  c
	}
	type set ModifiedSet {
 	 integer  e 	   optional,
 	 integer  f(0..5)  ,
 	 boolean  g
	}



type component GeneralComp {
}

testcase TC_NegSem_060302_structured_types_004() runs on GeneralComp {

    var ModifiedSet v_set1:={f:=4,e:=8,g:=false};
    var SetType v_set2;

    v_set2:=v_set1;	//optionality mismatch
	setverdict(pass);

}

control{
    execute(TC_NegSem_060302_structured_types_004());
}

}
