function_test/Semantic_Analyser/xer/decimal_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 decimal_SE {     //^In TTCN-3 module `decimal_SE'://
  14
  15 // DECIMAL not on a float
  16 type record R { //^In type definition//  //^error: DECIMAL shall only be assigned to a real type//
  17   integer i,    //^In record field//     //^error: DECIMAL shall only be assigned to a real type//
  18   charstring s, //^In record field//     //^error: DECIMAL shall only be assigned to a real type//
  19   boolean b     //^In record field//     //^error: DECIMAL shall only be assigned to a real type//
  20 }
  21 with {
  22   variant "XSD:decimal"
  23   variant (i,s,b) "XSD:decimal"
  24 }
  25
  26 type union real { //^In type definition// //^error: DECIMAL shall only be assigned to a real type//
  27   float f
  28 }
  29 with {
  30   variant "XSD:decimal"
  31 }
  32
  33 }
  34 with {
  35   encode "XML";
  36 }