/*****************************************************************
 ** @author   STF 470
 ** @version  0.0.1
 ** @purpose  1:6.2.9, Verify that an error is generated when a procedure port type definition contains no signatures
 ** @verdict  pass reject
 *****************************************************************/

// The following requirements are tested:
// Each port type definition shall have one or more lists indicating the allowed collection of
// ... procedure signatures with the allowed communication direction.

module NegSem_060209_CommunicationPortTypes_005 {

	type record MyType1 {
        integer f1,
        charstring f2
    }

	type record MyType2 {
	    integer g1,
	    charstring g2
	}

	type record MyType3 {
	    boolean h1,
        MyType3 h2 optional
	}

    type port MyMessagePortTypeOne procedure {
        address MyType1;
        map param (in integer p1, inout MyType2 p2);
        unmap param (in MyType3 p1, out integer p2);
    }

}