1 /******************************************************************************
2 * Copyright (c) 2000-2016 Ericsson Telecom AB
3 * All rights reserved. This program and the accompanying materials
4 * are made available under the terms of the Eclipse Public License v1.0
5 * which accompanies this distribution, and is available at
6 * http://www.eclipse.org/legal/epl-v10.html
9 * Adrien Kirjak – initial implementation
12 ** @purpose 1:6.2, Ensure that indexed notation can be used for a set of type.
13 ** @verdict pass accept, ttcn3verdict:pass
14 ***************************************************/
15 module Sem_0602_TopLevel_013 {
17 type component GeneralComp {
20 type set of integer MySetOf;
22 testcase TC_Sem_0602_TopLevel_013() runs on GeneralComp {
24 var MySetOf v_allSets := {1,2,3};
25 var integer Integer1 :=3;
26 v_allSets[0] := Integer1;
27 Integer1 := v_allSets[1];
29 if ( match(v_allSets, {3,2,3}) and match(Integer1, 2)) {
38 execute(TC_Sem_0602_TopLevel_013());