/*****************************************************************
 ** @author   STF 521
 ** @version  0.0.1
 ** @purpose  1:5.4.1.4, Verify that inout prefix can be used for port parameters
 ** @verdict  pass accept, ttcn3verdict:pass
 *****************************************************************/

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

module Sem_05040104_parameters_of_kind_port_002 {

    type port P message {
        inout integer
    }

    type component C {
        port P p;
    }

    function f_test(inout P p_port) {
        p_port.send(1);
        setverdict(pass);
    }

    testcase TC_Sem_05040104_parameters_of_kind_port_002() runs on C {
        f_test(p);
    }

    control {
        execute(TC_Sem_05040104_parameters_of_kind_port_002());
    }
}