function_test/Semantic_Analyser/xer/useunion_with_non_charenc_SE.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2016 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  * Contributors:
   9  *   Balasko, Jeno
  10  *   Raduly, Csaba
  11  *
  12  ******************************************************************************/
  13 module useunion_with_non_charenc_SE {   //^In TTCN-3 module `useunion_with_non_charenc_SE'://
  14
  15 type union ce
  16 {
  17   charstring s
  18 }
  19
  20
  21 type union uu {   //^In type definition//
  22   union {         //Alternative of a CHOICE/union with USE-UNION must be character-encodable//
  23     integer i
  24   } alt1
  25   , charstring h  // this alternative *is* character-encodable
  26   , ce ie         //Alternative of a CHOICE/union with USE-UNION must be character-encodable//
  27   , record {} emp //Alternative of a CHOICE/union with USE-UNION must be character-encodable//
  28 }
  29 with {
  30   variant "useUnion";
  31 }
  32
  33
  34 }
  35 with {
  36   encode "XML";
  37 }