No commit message

/*****************************************************************

 ** @author   STF 409

 ** @version  $Rev: 150 $

 ** @purpose  1:15.8, Ensure that a template(present) can be assigned to a template(value) variable.

 ** @verdict  pass accept, ttcn3verdict:pass

 *****************************************************************/

module Sem_1508_TemplateRestrictions_003 {

type component GeneralComp { }

type record ExampleType {

	integer a,

	boolean b optional

}

template(value) ExampleType exampleValue := {1, true};

testcase TC_Sem_1508_TemplateRestrictions_003() runs on GeneralComp {

	var template(value) ExampleType v_value;

	v_value := exampleValue;

	if (match(v_value, {1,true})) {

		setverdict(pass);

	} else {

		setverdict(fail);

	}

}

control{

    execute(TC_Sem_1508_TemplateRestrictions_003());

}

}

 No newline at end of file