/*****************************************************************
 ** @author   STF 409
 ** @version  0.0.1
 ** @purpose  1:15.6.3, Ensure that access to record of indexes is forbidden when a previous index entry is a permutation with a *.
 ** @verdict  pass reject
 *****************************************************************/

module NegSem_150603_ReferencingRecordOfAndSetElements_008 {

    type component GeneralComp { }

    type record of integer RoI;

    testcase TC_NegSem_150603_ReferencingRecordOfAndSetElements_008() runs on GeneralComp {
        var template RoI m_one;
        var integer v_test;

        m_one := {permutation(0,1,3,*),2,?};
        v_test := valueof(m_one[5]); // shall cause an error as the permutation contains a * that is able to cover any record of indexes

        setverdict(fail);
    }

    control{
        execute(TC_NegSem_150603_ReferencingRecordOfAndSetElements_008());
    }

}