function_test/Semantic_Analyser/xer/untagged_charenc_optional_SE.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 Ericsson Telecom AB
   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 untagged_charenc_optional_SE {   //^In TTCN-3 module `untagged_charenc_optional_SE'://
   9
  10 type record parent { //^In type definition//
  11   charstring trouble optional //^error: UNTAGGED field should not be marked OPTIONAL or DEFAULT//
  12 }
  13 with {
  14   variant (trouble) "untagged"
  15 }
  16
  17 type charstring unt
  18 with {
  19   variant "untagged"
  20 }
  21
  22 external function enc_unt(in unt u) return octetstring //^In external function definition// \
  23   //^warning: UNTAGGED encoding attribute is ignored on top-level type$//
  24 with { extension "prototype(convert) encode(XER:XER_EXTENDED)" }
  25
  26 type record parent2 {
  27   unt trouble optional // no message
  28 }
  29
  30 }
  31 with {
  32 encode "XML";
  33 }