#!perl

# Name: Mixed arithmetics
# Require: 4
# Desc:

require 'benchlib.pl';

$x = 0;

&runtest(20, <<'ENDTEST');

    $x = ($x + 2) % 333;
    $z = $x / 40;
    $y = $x * 40580;
    $x = 3;
    $x++;
    $x++;
    $x = $x + 1900.3;
    $x = $x + 1900.3;
    $x -= 1;

ENDTEST