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

/******************************************************************************
 * Copyright (c) 2000-2015 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 usetype_with_untagged_SE {	//^In TTCN-3 module `usetype_with_untagged_SE'://

type union ut  //^In type definition// \
               //^error: Enclosing type of an UNTAGGED character-encodable type is not record.//
{
  charstring c //^error: Alternative of a union with USE-TYPE should not have UNTAGGED//
}
with {
  variant "useType";
  variant (c) "untagged"
}

}
with {
  encode "XML";
  variant "controlNamespace 'a' prefix 'a'";
}
Commit	Line	Data
114d1c9a	1	/******************************************************************************
3abe9331	2	* Copyright (c) 2000-2015 Ericsson Telecom AB
114d1c9a EL	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
	7	******************************************************************************/
	8	module usetype_with_untagged_SE { //^In TTCN-3 module `usetype_with_untagged_SE'://
	9
	10	type union ut //^In type definition// \
	11	//^error: Enclosing type of an UNTAGGED character-encodable type is not record.//
	12	{
	13	charstring c //^error: Alternative of a union with USE-TYPE should not have UNTAGGED//
	14	}
	15	with {
	16	variant "useType";
	17	variant (c) "untagged"
	18	}
	19
	20	}
	21	with {
	22	encode "XML";
	23	variant "controlNamespace 'a' prefix 'a'";
	24	}