Titan Core Initial Contribution

[deliverable/titan.core.git] / function_test / Semantic_Analyser / xer / aa_untagged_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 aa_untagged_SE {	//^In TTCN-3 module `aa_untagged_SE'://

type record R { //^In type definition//
  record of universal charstring aa //^In record field// \
  //^error: A type with final encoding attribute UNTAGGED shall not have any of the final encoding instructions ANY-ATTRIBUTES, ANY-ELEMENT, ATTRIBUTE, DEFAULT-FOR-EMPTY, EMBED-VALUES, PI-OR-COMMENT, USE-NIL or USE-TYPE// \
  //^error: Neither the type with ANY-ATTRIBUTES, nor its enclosing type may be marked UNTAGGED//
}
with {
  variant (aa) "anyAttributes";
  variant (aa) "untagged";
}


type record RR { //^In type definition//
  record of universal charstring aa //^In record field// \
  //^error: Neither the type with ANY-ATTRIBUTES, nor its enclosing type may be marked UNTAGGED//
}
with {
  variant (aa) "anyAttributes";
  variant "untagged";
}



}
with {
  encode "XML";
}