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

/******************************************************************************
 * Copyright (c) 2000-2016 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
 *
 * Contributors:
 *   Balasko, Jeno
 *   Raduly, Csaba
 *
 ******************************************************************************/
module untagged_parent_not_record_SE {	//^In TTCN-3 module `untagged_parent_not_record_SE'://

// untagged *and character_encodable*

type set luft { //^In type definition// \
//^error: Enclosing type of an UNTAGGED character-encodable type is not record//
  charstring trouble
}
with {
  variant (trouble) "untagged"
}

}
with {
encode "XML";
}
Commit	Line	Data
114d1c9a	1	/******************************************************************************
d44e3c4f	2	* Copyright (c) 2000-2016 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
d44e3c4f	7	*
	8	* Contributors:
	9	* Balasko, Jeno
	10	* Raduly, Csaba
	11	*
114d1c9a EL	12	******************************************************************************/
	13	module untagged_parent_not_record_SE { //^In TTCN-3 module `untagged_parent_not_record_SE'://
	14
	15	// untagged and character_encodable
	16
	17	type set luft { //^In type definition// \
	18	//^error: Enclosing type of an UNTAGGED character-encodable type is not record//
	19	charstring trouble
	20	}
	21	with {
	22	variant (trouble) "untagged"
	23	}
	24
	25	}
	26	with {
	27	encode "XML";
	28	}