Adapted as described by the CR

/*****************************************************************

 ** @author   STF 451

 ** @author   STF 487

 ** @version  0.0.1

 ** @purpose  1:14, Ensure that multiple calls can be send without ack using non-blocking signature

 ** @verdict  pass accept, ttcn3verdict:pass

		var integer MyComp;

	}

    function f_Server() runs on GeneralComp {

	timer t_guard;

	type component SystemComp {

	}

	const charstring key[3] := {"My String1", "hello", "Probe string"};

	t_guard.start( 5.0 );

	for ( var integer i := 0; i < 3; i := i + 1 ) {

		PCO.call( p_Sig1_001:{key[i]});}

	function f_Server() runs on GeneralComp {

		for (var integer i := 0; i < lengthof(key); i := i + 1) {

			PCO.getcall(p_Sig1_001:{key[i]});

		}

		setverdict(pass);

		t_guard.timeout;

		setverdict(fail);

	}

	function f_client() runs on GeneralComp {

		for (var integer i := 0; i < lengthof(key); i := i + 1) {

			PCO.call(p_Sig1_001:{key[i]}) ;

		}

	}

	testcase TC_Sem_1400_procedure_signatures_004() runs on GeneralComp system GeneralComp {

	testcase TC_Sem_1400_procedure_signatures_004() runs on GeneralComp system SystemComp {

		var GeneralComp server := GeneralComp.create("RemoteProcedure Service");

		var GeneralComp client := GeneralComp.create("RemoteProcedure Client");

		timer t_guard;

		connect(server:PCO, client:PCO);

		server.start(f_Server());

		client.start(f_client());

	   alt {

           [] client.done {

               server.stop;

           }

       }

		t_guard.start( 5.0 );

		alt {

			[] all component.done {}

			[] t_guard.timeout {

				setverdict(fail);

				all component.stop;

			}

		}

		disconnect(server:PCO);

	}

	control{

        execute(TC_Sem_1400_procedure_signatures_004());

		execute(TC_Sem_1400_procedure_signatures_004(), 10.0);

	}

}

 No newline at end of file