/***************************************************
 ** @author   STF 487
 ** @version  0.0.1
 ** @purpose  1:5.4.1.1, verify that incompatible value in default value assignment of value formal parameters causes error
 ** @verdict  pass reject
 ***************************************************/

// The following requirement is tested:
// Restriction e)
// The expression of the formal parameters' default value has to be compatible with the type of the parameter.

module NegSem_05040101_parameters_of_kind_value_007 {
	type component GeneralComp {
	}

    function f(in integer p_int := 5.0) {
    }

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

	control{
		execute(TC_NegSem_05040101_parameters_of_kind_value_007());
	}
}
