function_test/Semantic_Analyser/xer/useunion_not_union_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_not_union_SE {  //^In TTCN-3 module `useunion_not_union_SE'://
  14
  15 type record uu { //^In type definition// \
  16                  //^error: USE-UNION can only applied to a CHOICE/union type//
  17 }
  18 with {
  19   variant "useUnion"
  20
  21 }
  22
  23 type enumerated truth { //^In type definition// \
  24                         //^error: USE-UNION can only applied to a CHOICE/union type//
  25   TRUE, FALSE, FILE_NOT_FOUND
  26 }
  27 with {
  28   variant "useUnion"
  29
  30 }
  31
  32 type record of integer ints //^In type definition// \
  33                             //^error: USE-UNION can only applied to a CHOICE/union type//
  34 with {
  35   variant "useUnion"
  36 }
  37
  38
  39
  40 }
  41 with {
  42   encode "XML";
  43 }