regression_test/profiler/prof1.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
   9 module prof1 {
  10
  11 type component C {}
  12
  13 const integer c1 := 7;
  14
  15 function f1(inout integer x) runs on C {
  16   x := x + c1;
  17 }
  18
  19 testcase tc1() runs on C {
  20   var integer x := 6;
  21   f1(x);
  22   log(x);
  23   x := x + 1;
  24 }
  25
  26 control {
  27   execute(tc1());
  28 }
  29
  30 }