/***************************************************
 ** @author STF 470
 ** @version  0.0.1
 ** @purpose 1:6.5.2, Ensure that union is initialized by dot notation
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/
 
module Sem_06020501_referencing_fields_of_union_type_001 {
	type union MyUnionType 
	{	
		integer 		number,
		charstring 		string
	};	
	
	type component GeneralComp {	    	    
	};

	
	testcase TC_Sem_06020501_referencing_fields_of_union_type_001 () runs on GeneralComp {
		var MyUnionType v_mut ;
		v_mut.number := 0;
		
		if (v_mut.number == 0) {
			setverdict(pass);
		}
		else {
			setverdict(fail);
		}
	}
 
	control {
		execute(TC_Sem_06020501_referencing_fields_of_union_type_001());
	}
}
