/***************************************************
 ** @author   STF 487
 ** @version  0.0.1
 ** @purpose  1:5.4.1.1, verify that template definitions cannot contain out value formal parameters
 ** @verdict  pass reject
 ***************************************************/

// The following requirement is tested:
// Restriction b)
// Formal value parameters of templates ... shall always be in parameters.

module NegSem_05040101_parameters_of_kind_value_003 {
	type component GeneralComp {
	}

    type record R
    {
        integer field1,
        integer field2
    }

    function f(out integer p_int) return integer {
        p_int := 2;
        return p_int;
    }

    template R m_t(out integer p_int) := {
        field1 := 0,
        field2 := f(p_int)
    }

	testcase TC_NegSem_05040101_parameters_of_kind_value_003() runs on GeneralComp {
        var integer v_int;
        log(m_t(v_int));
        setverdict(pass);
	}

	control{
		execute(TC_NegSem_05040101_parameters_of_kind_value_003());
	}
}
