/*****************************************************************
 ** @author   STF 521
 ** @version  0.0.1
 ** @purpose  1:5.4.1.4, Verify that in port parameters are not allowed
 ** @verdict  pass reject
 *****************************************************************/

// The following requirement is tested:
// Formal port parameters shall be inout parameters, which can optionally be indicated by the keyword inout.

module NegSem_05040104_parameters_of_kind_port_003 {

    type port P message {
        inout integer
    }

    type component C {
        port P p;
    }

    function f_test(in P p_port) {
        p_port.send(1);
    }

    testcase TC_NegSem_05040104_parameters_of_kind_port_003() runs on C {
        f_test(p);
        setverdict(pass);
    }

    control {
        execute(TC_NegSem_05040104_parameters_of_kind_port_003());
    }
}