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