function_test/Semantic_Analyser/xer/useunion_with_useunion_SE.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 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 useunion_with_useunion_SE {      //^In TTCN-3 module `useunion_with_useunion_SE'://
   9
  10 type union ce
  11 {
  12   charstring s
  13 }
  14 with {
  15   variant "useUnion";
  16 }
  17
  18 // All the fields of this type are character-encodable.
  19 // However, the unions achieve this by forbidden methods.
  20 type union uu { //^In type definition//
  21   union {       //^error: Alternative of a CHOICE/union with USE-UNION can not itself be a CHOICE/union with USE-UNION//
  22     integer i
  23   } alt1
  24   , charstring h
  25   , ce ie       //^error: Alternative of a CHOICE/union with USE-UNION can not itself be a CHOICE/union with USE-UNION//
  26 }
  27 with {
  28   variant "useUnion";
  29   variant (alt1) "useUnion";
  30 }
  31
  32
  33 }
  34 with {
  35   encode "XML";
  36 }