/***************************************************
 ** @author   STF 548
 ** @version  0.0.2
 ** @purpose  1:5.4.1.1, verify that the default value of value formal parameters can reference component variables
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/

// Background:
// Prior to the version TTCN-3:2017, the restriction 5.4.1.1.e didn't allow to refer to elements of the component type
// of the optional runs on clause in the default value expression.

module Sem_05040101_parameters_of_kind_value_023 {
	type component GeneralComp {
        var integer vc_int := 0;
	}

    function f(in integer p_int := vc_int) runs on GeneralComp {
    }

	testcase TC_Sem_05040101_parameters_of_kind_value_023() runs on GeneralComp {
        f();
        setverdict(pass);
	}

	control{
		execute(TC_Sem_05040101_parameters_of_kind_value_023());
	}
}
