function_test/Semantic_Analyser/xer/atr_untagged_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 atr_untagged_SE {        //^In TTCN-3 module `atr_untagged_SE'://
   9
  10 type record R { //^In type definition//
  11   record of universal charstring aa //^In record field// \
  12   //^error: A type with final encoding attribute UNTAGGED shall not have any of the final encoding instructions ANY-ATTRIBUTES, ANY-ELEMENT, ATTRIBUTE, DEFAULT-FOR-EMPTY, EMBED-VALUES, PI-OR-COMMENT, USE-NIL or USE-TYPE// \
  13   //^error: Neither the type with ATTRIBUTE, nor its enclosing type may be marked UNTAGGED//
  14 }
  15 with {
  16   variant (aa) "attribute";
  17   variant (aa) "untagged";
  18 }
  19
  20
  21 type record RR { //^In type definition//
  22   record of universal charstring aa //^In record field// \
  23   //^error: Neither the type with ATTRIBUTE, nor its enclosing type may be marked UNTAGGED//
  24 }
  25 with {
  26   variant (aa) "attribute";
  27   variant "untagged";
  28 }
  29
  30
  31
  32 }
  33 with {
  34   encode "XML";
  35 }
  36