Titan Core Initial Contribution

[deliverable/titan.core.git] / function_test / Semantic_Analyser / xer / useunion_not_union_SE.ttcn

/******************************************************************************
 * Copyright (c) 2000-2014 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 ******************************************************************************/
module useunion_not_union_SE {	//^In TTCN-3 module `useunion_not_union_SE'://

type record uu { //^In type definition// \
                 //^error: USE-UNION can only applied to a CHOICE/union type//
}
with {
  variant "useUnion"

}

type enumerated truth { //^In type definition// \
                        //^error: USE-UNION can only applied to a CHOICE/union type//
  TRUE, FALSE, FILE_NOT_FOUND
}
with {
  variant "useUnion"

}

type record of integer ints //^In type definition// \
                            //^error: USE-UNION can only applied to a CHOICE/union type//
with {
  variant "useUnion"
}



}
with {
  encode "XML";
}