function_test/Semantic_Analyser/xer/untagged_parent_not_record_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 untagged_parent_not_record_SE {  //^In TTCN-3 module `untagged_parent_not_record_SE'://
   9
  10 // untagged *and character_encodable*
  11
  12 type set luft { //^In type definition// \
  13 //^error: Enclosing type of an UNTAGGED character-encodable type is not record//
  14   charstring trouble
  15 }
  16 with {
  17   variant (trouble) "untagged"
  18 }
  19
  20 }
  21 with {
  22 encode "XML";
  23 }