Sync with 5.4.0

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

type record parent { //^In type definition//
  charstring trouble optional //^error: UNTAGGED field should not be marked OPTIONAL or DEFAULT//
}
with {
  variant (trouble) "untagged"
}

type charstring unt
with {
  variant "untagged"
}

external function enc_unt(in unt u) return octetstring //^In external function definition// \
  //^warning: UNTAGGED encoding attribute is ignored on top-level type$//
with { extension "prototype(convert) encode(XER:XER_EXTENDED)" }

type record parent2 {
  unt trouble optional // no message
}

}
with {
encode "XML";
}